Berikut ini adalah program untuk membuat permainan tebak bilangan :
Program Tebakbil;
uses wincrt,crt;
var
pilih: char;
bil_acak,tebakan,kesempatan: integer;
label mulai;
begin
mulai :
clrscr;
randomize; {panggil bilangan acak}
bil_acak := random(100) + 1; {hasilkali sebuah bilangnn acak yang harus
ditebak }
kesempatan := 6; {banyak kesempatan menebak }
tebakan :=1000;{beri nilai awal tebakkan}
writeln('saya memiliki bilangan antara 1 dan 100. ');
write('Cobalah Anda Tebak ! '); readln (tebakan);
while (kesempatan > 0 ) and (tebakan <> bil_acak) do {selagi masih punya
kesempatan menebak};
begin
if tebakan = bil_acak then
writeln('Tepat sekali, Anda memang hebat ! ')
else
begin
dec(kesempatan);
if kesempatan = 0 then begin
writeln ('Maaf ya, anda kehabisan kesempatan menebak.');
writeln('Bilangan tersebut adalah', bil_acak,'.');
end
else
if tebakan > bil_acak then
begin
writeln('adauh,Kurang daripada, ', tebakan);
writeln('(Anda masih punya ', kesempatan,'kesempatan menebak. )');
end
else
begin
writeln('Ah, lebih besar daripad ', tebakan);
writeln('Anda masih punya ',kesempatan ,'kesempatan menebak. ) ');
end;
end;
end;
writeln('Anda ingin bermain lagi? [Y/T] ');
readln(pilih); if upcase(pilih)='Y' then goto mulai;
end.
