Program Game Kertas Batu Gunting Pascal

Hai sob, gimana nih kabarnya? Pasti baik lah, kalau kurang baik Saya doakan semoga sobat diberi Kesehatan kembali, dan bagi yang masih sehat ayo sama-sama kita bersyukur kepada Allah atas karunianya sehingga Kita masih diberi kesehatan.

Program Game Kertas Batu Gunting Pascal

Oke, kali ini Saya akan membagikan sebuah Program Game Pascal nih sob, ya bisa dibilang game ini adalah game yang sering kita mainkan bersama teman-teman ketika Kita masih kecil nih, tapi sekarang Kita akan bermain dengan komputer nih sob.

Cara mainnya gampang ko sob, Sobat hanya perlu menginput kata 'Kertas' atau 'Batu' atau 'Gunting', nanti sobat akan beradu dengan computer dengan sendirinya. Siapa pun yang menang, ia akan mendapatkan satu point. Selebihnya akan dijelaskan didalam program ini ya sob. Yuk, langsung saja copy nih programnya.

program gunting_kertas_batu;
uses crt;
const
gsd='================================================================================';
 gs='--------------------------------------------------------------------------------';
var
skoranda, babak, skorcom, i, pilihan, com:byte;
input, ket, pilihancom, pemenang:string;
begin
clrscr;

textcolor(12);
       write(gsd);gotoxy(1,3);write(gsd);
textcolor(10);
       gotoxy(20,2);write('Selamat Datang Di Game Kertas, Gunting, Batu');
textcolor(11);
       gotoxy(1,4);write(gs);gotoxy(1,10);write(gs);gotoxy(1,12);write(gs);
textcolor(13);
       gotoxy(2,5);write('Aturan Main :');
       gotoxy(2,6);write('- Game ini terdiri dari 5 babak');
       gotoxy(2,7);write('- Setiap babak, Anda dan Computer akan beradu');
       gotoxy(2,8);write('- Bagi yang memenangkan permainan di setiap babak, ia akan mendapatkan 1 skor');
       gotoxy(2,9);write('- Skor yang paling banyak, Dialah pemenangnya');
textcolor(15);
       gotoxy(2,11);write('Tekan ENTER untuk mulai bermain');readln;
clrscr;
textcolor(12);
       write(gsd);gotoxy(1,3);write(gsd);
       skoranda:=0; skorcom:=0;
for babak:=1 to 5 do begin
textcolor(10);
       gotoxy(35,2);write('Babak Ke-',babak);
textcolor(11);
       gotoxy(1,4);write(gs);gotoxy(1,6);write(gs);
       gotoxy(1,10);write(gs);gotoxy(1,12);write(gs);
textcolor(15);
       gotoxy(15,5);write('Skor Anda : ');
       gotoxy(53,5);write('Skor Computer : ');
       gotoxy(2,7);write('Masukkan Pilihan Anda :               ');
       gotoxy(2,8);write('Pilihan Computer      :               ');
       gotoxy(2,9);write('Keterangan            :                                 ');
       gotoxy(28,11);write('Pemenang : ');
textcolor(14);
       pilihan:=3;
       gotoxy(26,7);readln(input);
             if pilihan=3 then ket:='Pilihan Yang Anda Masukan Salah';
             if (input='GUNTING') or (input='gunting') or (input='Gunting') then pilihan:=0;
             if (input='KERTAS') or (input='kertas') or (input='Kertas') then pilihan:=1;
             if (input='BATU') or (input='batu') or (input='Batu') then pilihan:=2;
             randomize;
             com:=random(3);
             case com of
             0: pilihancom:='Gunting';
             1: pilihancom:='Kertas';
             2: pilihancom:='Batu';end;
             if (pilihan=0) and (com=0) or (pilihan=1) and (com=1) or (pilihan=2) and (com=2) then
             ket:='Seri';
             if (pilihan=0) and (com=1) or (pilihan=1) and (com=2) or (pilihan=2) and (com=0) then begin
             ket:='Anda Menang'; skoranda:=skoranda+1;
             gotoxy(27,5);write(skoranda);end;
             if (pilihan=0) and (com=2) or (pilihan=1) and (com=0) or (pilihan=2) and (com=1) then begin
             ket:='Anda Kalah'; skorcom:=skorcom+1;
             if pilihan=3 then delay(1000);
             gotoxy(69,5);write(skorcom);end;
       gotoxy(26,8);write(pilihancom);
       gotoxy(26,9);write(ket);
       delay(2000);
end;
       if skoranda = skorcom then pemenang:='Tak Ada Yang Menang';
       if skoranda > skorcom then pemenang:='Anda Pemenangnya';
       if skoranda < skorcom then pemenang:='Computer Pemenangnya';
       gotoxy(39,11);write(pemenang);
       gotoxy(28,14);write('Tekan ENTER untuk keluar');
       repeat
       for i:=1 to 15 do begin
       textcolor(i);gotoxy(34,13);write('TERIMA KASIH');end;
       until keypressed;
end.

Cara menjalankan file tersebut: