Menebak Angka (Pascal)


Ni adalah game tebak angka yang di keluarkan oleh komputer menggunakan progarm pascal…..

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.

silahkan di copy dan di modif sesuai keinginan anda😀

7 Tanggapan

  1. bagus…………semoga mnjadi ilmu yang bermanfaat

    • AMIN….. tu kalo misalnya pengen tambah penasaran range na di naikin ampe 10000 aja😀

  2. makasih bro, aku jadi
    lebih termotivasi buat belajar pemrograman.

  3. @ arul

    bagus semoga jadi programer yang hebat ya😉

  4. wah, oke niy.. thanks ya zim😀

  5. thanks atas tulisanyya, berguna bgi sy yg baru belajar,,,

  6. thanks atas tulisannya,,, berguna bagi sy yang baru belajar,

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: