Sayi tahmin oyunu bizim aklımızdan tuttuğumuz sayıyı bilgisayarın bulan program.
Sayi tahmin oyunu bizim aklımızdan tuttuğumuz sayıyı bilgisayarın bulan program.
Program Tahmin_et_bakalim;
uses crt;
label en_bas;
var
tahmin, ts : integer;
alt,ust:integer;
tus:char;
begin
clrscr;
writeln('Simdi aklinizdan bir sayi tutun ve eger
benim söyledigim sayi');
writeln('sizin tuttugunuz sayidan küçükse çik anlaminda "ç" harfine, büyükse');
writeln('in anlamindaki "i" harfine bir defa basin.');
writeln;
writeln('Not: Sayi 1 ile 100 arasinda olmali!');
writeln;
writeln('Hazirsaniz Enter''a basin..');
readln;
clrscr;
alt:=1;
ust:=1001;
ts:=0;
gotoxy(1,1);write('Benim Tahminim...: ');
gotoxy(1,3);write('Ne yapiyim (i/ç).: ');
tahmin:=500;
while ((tus <>'d')and(tus<>'D')) do begin
gotoxy(20,1);write(tahmin,' ');
gotoxy(20,3);
tus:=readkey;
while ((tus<>'i')and (tus<>'I') and(tus<>'ç')
and(tus<>'Ç')and(tus<>'D')and(tus<>'d')) do
tus:=readkey;
if tus in['i','I'] then begin
ust:=tahmin;
tahmin:=(alt+ust) div 2;
end;
if tus in['Ç','ç'] then begin
alt:=tahmin;
tahmin:=(alt+ust) div 2;
end;
ts:=ts+1;
if (tus in['d','D']) then begin
gotoxy(1,5);write('Aferin Bana!',' ');
gotoxy(1,6);write('Tahmin Sayim: ',ts);
break;
end;
if ts=10 then begin
gotoxy(1,5); write('benimle dalgamı geçiyorsun!!!');
break; end; end;
readkey;
end.
Linkback: https://www.buyuknet.com/sayi-tahmin-oyunu-bizim-aklimizdan-tuttugumuz-sayiyi-bilgisayarin-bulan-program-t38143.0.html