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 ^^
