xPesimisTx
Üye
Açıklama:Turbo Pascalda 7.0 sürümünde bir tahmin oyunu yazdım. Bilgisayar 0 ila 101 arası bir sayıyı seçiyor [0 dahil 101 dahil değil 101-1 dahil] sizde o sayıyı tahmin etmeye çalışıyorsunuz. Kodlar altıntı değildir!
[NOT]Yukarıdaki kodda türkçe karakterler tam olarak gözükmüyor, ama not defterini açıp kodu içine yapıştırıp, uzantısını ".pas" olarak kaydedip Turbo Pascal editöründe açtığınızda düzelecektir.[/NOT]
Kod:
program tahminoyunu;
USES Crt;
Var
sayi: Array[1..3] of integer;
Begin
clrscr;
sayi[2]:=0;
writeln('www.MaxiGame.Org');
write('Devam etmek i‡in `ENTERï tu¾una bas�n�z!'); readln;
clrscr;
while sayi[2]=0 do
Begin
Randomize;
sayi[1]:=Random(101);
writeln('Tahmininizi Giriniz.');
write('Tahmininiz: '); readln(sayi[3]);
if sayi[3]=sayi[1]
then
Begin
writeln('Tebrikler Tahmininiz Do§ru!.');
write('Tekrar oynamak i‡in `ENTERï tu¾una bas�n�z.');
sayi[3]:=1;
readln;
End
else
Begin
writeln('Tahmininiz Yanl�¾!');
writeln('Bilgisayar�n tahmini: ',sayi[1]);
write('Tekrar oynamak i‡in `ENTERï tu¾una bas�n�z.');
readln;
End;
End;
End.[NOT]Yukarıdaki kodda türkçe karakterler tam olarak gözükmüyor, ama not defterini açıp kodu içine yapıştırıp, uzantısını ".pas" olarak kaydedip Turbo Pascal editöründe açtığınızda düzelecektir.[/NOT]
Son düzenleme: