Yazılım Adası

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.