Rasgele Üretilen Sayı

deliman17.11.2008 - 17:56
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

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Rasgele Üretilen Sayı
Rasgele Üretilen Sayı
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2