program game pascal

PROGRAM GAME PASCAL

program linda;

uses crt;

var

x,tebakan,jumlah : integer;

lagi : char;

begin

randomize;

lagi:='Y';

while(lagi='Y') or (lagi='y') do

begin

clrscr;

writeln('Program akan mengeluarkan nilai secara acak yang nilainya antara 0-30');

writeln(' Tugas anda menebak berapa angka yang dikeluarkan tersebut !');

x:= random(30);

jumlah:=0;

tebakan:=-1;

while (tebakan <> x) do

begin

tebakan:=0;

gotoXY(1,15);

writeln('masukan nilai tebakan anda : ');readln(tebakan);

gotoXY(1,15);DelLine;

if tebakan < x then begin gotoXY(1,12); write(tebakan:4,'======> anda belum beruntung, nilai masih kurang besar!!');

end;

if tebakan > x then

begin

gotoXY(1,12);write(tebakan:4,'======> anda belum beruntung, nilai masih kurang kecil!!');

end;

jumlah:=jumlah+1;

end;

GotoXY(1,12);

write(tebakan:4,'======> benar, ',jumlah,'kali anda menebak !!');

GotoXY(1,22);

write('Menebak yang lain lagi (Y/T)?');

readln(lagi);

end;

end. program linda;

uses crt;

var

x,tebakan,jumlah : integer;

lagi : char;

begin

randomize;

lagi:='Y';

while(lagi='Y') or (lagi='y') do

begin

clrscr;

writeln('Program akan mengeluarkan nilai secara acak yang nilainya antara 0-30');

writeln(' Tugas anda menebak berapa angka yang dikeluarkan tersebut !');

x:= random(30);

jumlah:=0;

tebakan:=-1;

while (tebakan <> x) do

begin

tebakan:=0;

gotoXY(1,15);

writeln('masukan nilai tebakan anda : ');readln(tebakan);

gotoXY(1,15);DelLine;

if tebakan < x then begin gotoXY(1,12); write(tebakan:4,'======> anda belum beruntung, nilai masih kurang besar!!');

end;

if tebakan > x then

begin

gotoXY(1,12);write(tebakan:4,'======> anda belum beruntung, nilai masih kurang kecil!!');

end;

jumlah:=jumlah+1;

end;

GotoXY(1,12);

write(tebakan:4,'======> benar, ',jumlah,'kali anda menebak !!');

GotoXY(1,22);

write('Menebak yang lain lagi (Y/T)?');

readln(lagi);

end;

end.

Listing Program Game Pascal :

 

Output nya :