Rasgele üretilen sayının bizim girdiğimiz sayı ile karşılaştırarak aynı olup olmadığını bulan program. Yanlışsa kullanıcıya 9 kere daha girme hakkı verilecek.
uses crt;
var
i,a,b:integer;
begin
randomize;
a:=random(100);
for i:=1 to 10 do
begin
writeln('sayı girin:');readln(b);
if(a=b)then
begin
writeln('doğru');break;end
else if(a<>b)and(a>b)then
writeln('yanlış! yukarıda değer gir')
else if(a<>b)and(b>a)then
writeln('yanlış! aşağıda bir değer gir');
end;
readln;
end.
Linkback: https://www.buyuknet.com/rasgele-uretilen-sayi-t8609.0.html