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.

Share on Google Plus

About Mustafa RF

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.
    Blogger Comment
    Facebook Comment