Listing Program
program Mia;
uses crt;
var
x,tebakan,jumlah : integer;
lagi : char;
begin
randomize;
lagi:='Y';
while(lagi='Y') or (lagi='y') do
begin
clrscr;
writeln('Program akan mengeluarkan
nilai secara acak yang nilainya antara 0-2000ï');
writeln(' Tugas anda menebak berapa
angka yang dikeluarkan tersebut !');
x:= random(2001);
jumlah:=0;
tebakan:=-1;
while (tebakan <> x) do
begin
tebakan:=0;
gotoXY(1,15);
writeln('masukan nilai tebakan anda :
');readln(tebakan);
gotoXY(1,15);DelLine;
if tebakan < x then begin
gotoXY(1,12); write(tebakan:4,'======> anda belum beruntung, nilai masih
kurang besar!!');
end;
if tebakan > x then
begin
gotoXY(1,12);write(tebakan:4,'======>
anda belum beruntung, nilai masih kurang kecil!!');
end;
jumlah:=jumlah+1;
end;
GotoXY(1,12);
write(tebakan:4,'======> benar,
',jumlah,'kali anda menebak !!');
GotoXY(1,22);
write('Menebak yang lain lagi (Y/T)?');
readln(lagi);
end;
end.
Output
Program
0 komentar:
Posting Komentar