Programalama > PASCAL

Etiketler: sayi, tahmin, etme.......

Ort. 0
Puan ver:
Var
tahmin,deneme,sayi:integer;
Begin
deneme:=0;
sayi:=random(100); { 0 ile 100 arası rastgele sayı üretir }
Repeat
 writeln('Tahmin edin = ');readln(tahmin);
 if (tahmin<sayi) then writeln('Daha büyük');
 if (tahmin>sayi) then writeln('Daha küçük');
 deneme:=deneme+1;
Until (tahmin=sayi);
writeln(deneme,' kere sonunda sayıyı buldunuz.');
End.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.