membuat game tebak angka dalam bahasa pembrograman turbo pascal

kali ini saya mencoba saling berbagi tentang bagaimana caranya membuat permainan tebak angka yang sederhana dalam bahasa pemrograman Pascal. Rekan-rekan dapat mengembangkannya dan berbagi kembali..

berikut listing programnya :

program galih;
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-2000ï);
writeln(' Tugas anda menebak berapa angka yang dikeluarkan tersebut !');

x:= random(2001);

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.

dan berikut ini adalah tampilan outputnya:

 

Semoga bermanfaat dan mohon pengembangannya.....
jangan lupa untuk berbagi ilmu kembali.






Sumber : http://www.galih-afm.com