Program Iterasi (Tebak Angka)

Fungsi:  Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya

Hint :  Permainan ini tidak akan asik bila dilakukan sendirian.

Screen Shot:

uses crt;

var a,teb,c,d,rhs:integer;

begin

Write('Bilangan Rahasia : ');readln(rhs);

clrscr;

repeat

write('masukan Tebakan anda : ');readln(teb);

if (teb<>rhs) and (teb>rhs) then

writeln('Bilangan terlalu besar!')

else if (teb<>rhs) and (teb

writeln('bilangan terlalu kecil');

until (teb=rhs);

writeln('Tebakan Anda Benar!!!!, selamat!!!!');

readln;

end.