Laman

Senin, 31 Januari 2011

Game Tebak Angka Dengan Pascal

bahasa pemrograman pascal atau basic dapat dimanfaatkan untuk membuat game
sederhana. berikut ini adalah listing program untuk membuat game tebak angka dengan
program delphi atau pascal


program game;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var a,b,jawab, tanya,langkah : integer;
begin
langkah:=0;
a:=0;
repeat
a:= a +1;
jawab := random(100);
until a = 5;
repeat
write('Coba tebak angka dari 1 sampai 100 : ');readln(tanya);
if(tanya>jawab)then
writeln('Angka terlalu besar') ;
if(tanya
writeln('Angka terlalu kecil');
langkah:=langkah+1;
until jawab=tanya;
writeln('Selamat! Anda menjawab dalam ',langkah,' langkah');
readln;
end.

program ini sebenarnya menggunakan prinsip dasar dari binary search yaitu
membandingkan sebuah bilangan apakah lebih besar atau lebih kecil dari bilangan yang
dijadikan acuan sehingga pada akhirnya dengan pemindahan atau penukaran bilangan
akan diperoleh bilangan yang terurut. Semoga info ini berguna bagi pembaca untuk
pengembangan berikutnya ^^

0 komentar:

Posting Komentar

Thanx dah mau komen