Permainan “ADU JARI” (Pingsut)

Soal : Buatlah Algoritma, Flowchart dan Kode Progam Pascal untuk Permainan “ADU JARI” (Pingsut). Pemain 2 orang, yang masing-masing bisa mengajukan 3 kemungkinan, yaitu :”Jempol”, “Telunjuk”, dan “Kelingking”. Maksimal 15 baris program jika anda mampu “menghemat”  IF…
Kriteria kemenangan sebagai berikut :
1. Jika pemain 1 mengajukan Jempol dan pemain 2 mengajukan telunjuk maka pemain 1 Menang
2. Jika pemain 1 mengajukan Jempol dan pemain 2 mengajukan Kelingking maka pemain 1 Kalah
3. Jika pemain 1 mengajukan Telunjuk dan pemain 2 mengajukan Jempol maka pemain 1 Kalah
4. Jika pemain 1 mengajukan Telunjuk dan pemain 2 mengajukan Kelingking maka pemain 1 Menang
5. Jika pemain 1 mengajukan Kelingking dan pemain 2 mengajukan Jempol maka pemain 1 Menang
6. Jika pemain 1 mengajukan Kelingking dan pemain 2 mengajukan Telunjuk maka pemain 1 Kalah
7. Jika pemain 1 dan pemain 2 sama maka hasil adalah Serie
KALAU MUNGKIN SELESAIKAN HANYA DALAM SATU STATEMEN IF saja….  CONTOH RUN PROGRAM

Jawaban 

ALGORITMA :

1. Mulai

2. Baca n1,p1,n2,p2

3. Jika ((p1=’JEMPOL’)and(p2=’TELUNJUK’))or((p1=’TELUNJUK’)and(p2=’KELINGKING’))or((p1=’KELINGKING’)and(p2=’JEMPOL’)) maka cetak ‘PEMAIN 1 (’+n1+’) MENANG DAN PEMAIN 2 (‘+n2+’) KALAH’

Jika tidak, jika p1=p2 cetak ‘HASIL SERIE…’

Jika tidak cetak ‘PEMAIN 2 (’+n2+’) MENANG DAN PEMAIN 1 (‘+n1+’) KALAH’

4. Selesai

FLOWCHART

KODE PROGRAM :

var p1,p2,n1,n2:String;

begin

write('PEMAIN 1 ==> Nama :');readln(n1);

write('         ==> Jago :');readln(p1);

write('PEMAIN 2 ==> Nama :');readln(n2);

write('         ==> Jago :');readln(p2);

if((p1='JEMPOL')and(p2='TELUNJUK')) or((p1='TELUNJUK')and(p2='KELINGKING')) or((p1='KELINGKING')and(p2='JEMPOL')) then

   writeln('PEMAIN 1 ('+n1+') MENANG dan PEMAIN 2 ('+n2+') KALAH')

 else if(p1=p2) then writeln(' HASIL SERIE....')

 else

  writeln('PEMAIN 2 ('+n2+') MENANG dan PEMAIN 1 ('+n1+') KALAH') ;

readln;

end.