AŞAGI YUKARI Tutulan sayıyı 5 denemede bilicez.Tabi biraz şevkatli bilgisayar bize sayıyı küçült ve büğült deyiyoruses crt;
var
hak,a,i,x:byte;
begin clrscr;
randomize;
writeln('NOT 1 ile 50 ARASI SAYI GIRIN');
writeln(' 5 deneme sansn var ');
repeat
x:=random(50)+1;
if a>0 then
begin
writeln('NOT 1 ile 50 ARASI SAYI GIRIN');
writeln(' 5 deneme sansn var ');
end;
for i:=1 to 5 do
begin
write(i,'.HAKKIN=');
readln(hak);
if hak=x then
begin
writeln('HELAL ',i,'.DENEME"DE BILDIN');
i:=5;
end;
if hak>x then
writeln('sayiyi küçült');
if hak<x then
writeln(' SAYIYI BÜĞÜLT ');
end;
writeln('BILEMEDIN KOCUM HADI DENE');
readln;
clrscr;
a:=a+1;
until 1=2;
end.
var
hak,a,i,x:byte;
begin clrscr;
randomize;
writeln('NOT 1 ile 50 ARASI SAYI GIRIN');
writeln(' 5 deneme sansn var ');
repeat
x:=random(50)+1;
if a>0 then
begin
writeln('NOT 1 ile 50 ARASI SAYI GIRIN');
writeln(' 5 deneme sansn var ');
end;
for i:=1 to 5 do
begin
write(i,'.HAKKIN=');
readln(hak);
if hak=x then
begin
writeln('HELAL ',i,'.DENEME"DE BILDIN');
i:=5;
end;
if hak>x then
writeln('sayiyi küçült');
if hak<x then
writeln(' SAYIYI BÜĞÜLT ');
end;
writeln('BILEMEDIN KOCUM HADI DENE');
readln;
clrscr;
a:=a+1;
until 1=2;
end.