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
Title : membuat game tebak angka dalam bahasa pembrograman turbo pascal
Description : kali ini saya mencoba saling berbagi tentang bagaimana caranya membuat permainan tebak angka yang sederhana dalam bahasa pemrograman Pascal....