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