Kod: Tümünü seç
program oyun;
uses crt;
const
prog = 'iyi günler';
var
i,sayi,tahmin,seviye:integer;
cev:char;
label basla,byebye;
procedure yonver;
begin
if sayi>tahmin then
begin
textcolor(green);
writeln('yüksek değer girin...');
end
else if sayi<tahmin then
begin
textcolor(cyan);
writeln('düşük değer girin...');
end
else
begin
textcolor(yellow);
writeln('tebrikler...');
end
end;
procedure son;
begin
textcolor(red);
writeln('oyun bitti keybettiniz...');
end;
begin
highvideo();
sayi:=0;
tahmin:=0;
basla:
write('seviye seçin 1:kolay,2:orta,3:zor,4:çık : ');
readln(seviye);
case seviye of
1 : begin
seviye:=25;
end;
2 : begin
seviye:=50;
end;
3 : begin
seviye:=100;
end;
4 : begin
goto byebye;
end;
else writeln('hatali seçim seviye 2 öntanımlı');
seviye:=50;
end;
writeln('0 ila ',seviye,' arasi tahin yapın.');
randomize;
sayi:=random(seviye);
for i:=1 to 10 do
begin
textcolor(white);
write('kalan tahmin ',11-i,' : ');
readln(tahmin);
if sayi=tahmin then
begin
clrscr;
writeln('dogru tahmin');
yonver;
break;
end
else
begin
clrscr;
if i=10 then
begin
son;
end
else
begin
writeln('yanlış tahmin');
yonver;
end;
end;
end;
textcolor(white);
write('tekrar denemek istermisiniz ? : ');
readln(cev);
if cev in ['E' , 'e' ] then
begin
goto basla;
end
else
byebye:
begin
textcolor(white);
clrscr;
gotoxy(15,15);writeln('Teşekkür ederiz... '+prog);
end;
normvideo();
end.Programın Derlenmiş Hali :
