Skip to content

Membuat game tebak angka dengan pascal

May 27, 2011

temen-temen yang mw belajar buat game sederhana dengan pascal ni gue da tutorial buat game tebak angka nie gue buat dari tutorial yang d buat oleh dosen gue n gue modif ndiri bro . . .

ni codinge bro . .

uses crt;
var
 x, tebakan,jumlah,bawah, atas : integer;
 lagi : char;
begin
 randomize;
 lagi:= ‘Y’;
 while (lagi=’Y’) or (lagi=’y’) do
 begin
 clrscr;
 writeln(‘komputer mau merandom angka please dech tebak’);
 writeln(‘nilainya dikit koq cuman 0 s/d 1000’);
 writeln(‘kamu tebak berapa angka yang keluar tersebut ‘);
 writeln(‘silahkan di coba tebak’);
 writeln;
 x:=random(1001);(*untuk mearandom angka yan mau di keluarkan*)

 jumlah:=0;
 bawah:=0;
 atas:=1000;
 tebakan :=-1;
 while(tebakan <> x) do
 begin
  tebakan:=0
  goto(1,15);
  write(‘tebakan anda(‘,bawah,’-‘,atas,’) ? ‘);
  readln(tebakan);
  goto(1,15);delline;
  if (tebakan < bawah) or (tebakan > atas then  
  begin
    goto(1,12);
    write(tebakan:4,’–> salah, kam*ret loe !!!’);
    end
  else
  begin
   if tebakan < x then
  begin
  goto(1,12);
  write(tebakan:4,’–> salah, kurang gedhe !!!’);
  bawah:=tebakan + 1;
  end;

  if tebakan > x then
  begin
  goto(1,12);
  write(tebakan:4,’–> salah, kurang cilik !!!’);
  atas:=tebakan – 1;
  end;
end;
jumlah := jumlah+1;
end;
goto(1,12);
write(tebakan:4,’–>>betul betul betul!!!’,jumlah,’kali anda nebak boz!’);
goto(1,22);
write(‘menebak yang lain (Y/T) ?? ‘);
readln(lagi);
end;
end.
nah nie codinge bro . .

moga bermanfaat bro  .

No comments yet

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: