Game Tebak Angka Dengan Bahasa Pascal

cuma pgen berbagi ilmu,,,
ni source codenya:





program game_tebak_angka;
uses wincrt;
var tebak,angka : longint;
i,kesempatan,tingkat,sulit : Integer;
ulang : char;

begin
repeat
clrscr;
randomize;
angka:=random(1000);
{Proses pengacakan angka}


writeln (' Game Tebak Angka');
writeln (' By Binttank ');
writeln;
writeln ('Angka berada pada 0-1000 ');
writeln ('selamat bermain ');
repeat
begin
writeln;
writeln('Pilih tingkat kesulitan ');
writeln ('1. Mudah (Tebak 10x)');
writeln ('2. Menengah (tebak 9x) ' );
writeln ('3. Sulit (tebak 8x) ');
readln (tingkat);
end;
until (tingkat=3)or(tingkat=2)or(tingkat=1);

case tingkat of
1 : sulit:=11;
2 : sulit:=10;
3 : sulit:=9;
end;


for i:=1 to sulit do
begin
kesempatan:=sulit-1-i;
if (i=sulit) then
begin
writeln;
writeln (' **************************************');
writeln (' GAME OVER!!!!!!!! ');
writeln (' **************************************');
writeln (' Angka Yang benar adalah ',angka);
end
else
begin
writeln;
write ('Masukan Angka Tebakan = ');readln(tebak);
if (tebak < angka) then
begin
writeln ('tebakan terlalu kecil');
writeln ('kesempatan anda menebak tinggal ',kesempatan,'x');
end
else
begin
if (tebak > angka) then
begin
writeln ('tebakan terlalu besar');
writeln ('kesempatan anda menebak tinggal ',kesempatan,'x');
end
else
begin
writeln;
writeln (' **************************************');
writeln (' Kamu Menang!!! Tebakan benar ');
writeln (' **************************************');
i:=sulit;
end;
end;
end;
end;


writeln;
writeln;
repeat
begin
write ('apa ingin main lagi? (Y/T) ');readln(ulang);
end;
until (ulang='y')or(ulang='Y')or(ulang='t')or(ulang='T');

until (ulang='t') or (ulang='T'); {Syarat repeat pertama}

end.
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Leave a comment