Küçük bi Şans Oyunu 
Rakibini Seç Skor Tahmin Etsin İddayı Kazan
=========================================================
uses crt;
var
s1,s2:byte;
tk:byte;{takm adlar de§ikenini girdik}
tus:char;{men yapmak iin de§iken belirledik}
label
en_bas,en_son;
begin en_bas:
randomize;
s1:=random(6);
s2:=random(6);
textbackground(3);
clrscr;
gotoxy(25,3); highvideo; textcolor(yellow); writeln('A-FENERBAHE');
gotoxy(25,4); highvideo; textcolor(red);writeln('B-GALATASARAY');
gotoxy(25,5); highvideo; textcolor(white);writeln('C-BEKTA');
gotoxy(25,6); highvideo; textcolor(blue);writeln('D-TRABZONSPOR');
gotoxy(60,6); highvideo; textcolor(red); writeln('IKI (ESC) ');
gotoxy(15,10); write('Seiminiz: ');
tus:=readkey;
if tus in ['A','a'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(yellow);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(blue);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(yellow); writeln('>>>>>FeNeRbAhe<<<<<');
gotoxy(1,4); highvideo; textbackground(blue);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(yellow);
writeln(' ');
writeln('1-GS');
writeln('2-BJK');
writeln('3-TS');
write('Rakibinizi Seiniz: ');
readln(tk);
CASE tk OF
1 : writeln('FB: ',s1,' - GS: ',s2);
2 : writeln('FB: ',s1,' - BJK: ',s2);
3 : writeln('FB: ',s1,' - TS: ',s2)
else writeln(' LTFEN RAKBNZ SENZ!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MEN N "G" TUUNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('IKI (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['B','b'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(yellow);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(red);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(yellow); writeln('>>>>>GaLaTaSaRaY<<<<<');
gotoxy(1,4); highvideo; textbackground(red);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(yellow);
writeln(' ');
writeln('1-FB');
writeln('2-BJK');
writeln('3-TS');
write('Rakibinizi Seiniz: ');
readln(tk);
CASE tk OF
1 : writeln('GS: ',s1,' - FB: ',s2);
2 : writeln('GS: ',s1,' - BJK: ',s2);
3 : writeln('GS: ',s1,' - TS: ',s2)
else writeln(' LTFEN RAKBNZ SENZ!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MEN N "G" TUUNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('IKI (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['C','c'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(black);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(white);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(black); writeln('>>>>>BeiKtA<<<<<');
gotoxy(1,4); highvideo; textbackground(white);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(black);
writeln(' ');
writeln('1-FB');
writeln('2-GS');
writeln('3-TS');
write('Rakibinizi Seiniz: ');
readln(tk);
CASE tk OF
1 : writeln('BJK: ',s1,' - FB: ',s2);
2 : writeln('BJK: ',s1,' - GS: ',s2);
3 : writeln('BJK: ',s1,' - TS: ',s2)
else writeln(' LTFEN RAKBNZ SENZ!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MEN N "G" TUUNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('IKI (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['D','d'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(red);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(blue);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(red); writeln('>>>>>TrAbZoNsPoR<<<<<');
gotoxy(1,4); highvideo; textbackground(blue);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(red);
writeln(' ');
writeln('1-FB');
writeln('2-GS');
writeln('3-BJK');
write('Rakibinizi Seiniz: ');
readln(tk);
CASE tk OF
1 : writeln('TS: ',s1,' - FB: ',s2);
2 : writeln('TS: ',s1,' - GS: ',s2);
3 : writeln('TS: ',s1,' - BJK: ',s2)
else writeln(' LTFEN RAKBNZ SENZ!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MEN N "G" TUUNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('IKI (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in [#27] then goto en_son else clrscr; gotoxy(10,8); writeln('LTFEN SEMNZ YAPINIZ!!!');
gotoxy(10,9); writeln('ANASAYFAYA DNMEK N "ENTER" TUUNA BASINIZ!! '); readln; goto en_bas;
readln;
en_son:
end.
Rakibini Seç Skor Tahmin Etsin İddayı Kazan=========================================================
uses crt;
var
s1,s2:byte;
tk:byte;{takm adlar de§ikenini girdik}
tus:char;{men yapmak iin de§iken belirledik}
label
en_bas,en_son;
begin en_bas:
randomize;
s1:=random(6);
s2:=random(6);
textbackground(3);
clrscr;
gotoxy(25,3); highvideo; textcolor(yellow); writeln('A-FENERBAHE');
gotoxy(25,4); highvideo; textcolor(red);writeln('B-GALATASARAY');
gotoxy(25,5); highvideo; textcolor(white);writeln('C-BEKTA');
gotoxy(25,6); highvideo; textcolor(blue);writeln('D-TRABZONSPOR');
gotoxy(60,6); highvideo; textcolor(red); writeln('IKI (ESC) ');
gotoxy(15,10); write('Seiminiz: ');
tus:=readkey;
if tus in ['A','a'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(yellow);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(blue);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(yellow); writeln('>>>>>FeNeRbAhe<<<<<');
gotoxy(1,4); highvideo; textbackground(blue);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(yellow);
writeln(' ');
writeln('1-GS');
writeln('2-BJK');
writeln('3-TS');
write('Rakibinizi Seiniz: ');
readln(tk);
CASE tk OF
1 : writeln('FB: ',s1,' - GS: ',s2);
2 : writeln('FB: ',s1,' - BJK: ',s2);
3 : writeln('FB: ',s1,' - TS: ',s2)
else writeln(' LTFEN RAKBNZ SENZ!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MEN N "G" TUUNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('IKI (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['B','b'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(yellow);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(red);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(yellow); writeln('>>>>>GaLaTaSaRaY<<<<<');
gotoxy(1,4); highvideo; textbackground(red);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(yellow);
writeln(' ');
writeln('1-FB');
writeln('2-BJK');
writeln('3-TS');
write('Rakibinizi Seiniz: ');
readln(tk);
CASE tk OF
1 : writeln('GS: ',s1,' - FB: ',s2);
2 : writeln('GS: ',s1,' - BJK: ',s2);
3 : writeln('GS: ',s1,' - TS: ',s2)
else writeln(' LTFEN RAKBNZ SENZ!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MEN N "G" TUUNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('IKI (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['C','c'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(black);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(white);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(black); writeln('>>>>>BeiKtA<<<<<');
gotoxy(1,4); highvideo; textbackground(white);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(black);
writeln(' ');
writeln('1-FB');
writeln('2-GS');
writeln('3-TS');
write('Rakibinizi Seiniz: ');
readln(tk);
CASE tk OF
1 : writeln('BJK: ',s1,' - FB: ',s2);
2 : writeln('BJK: ',s1,' - GS: ',s2);
3 : writeln('BJK: ',s1,' - TS: ',s2)
else writeln(' LTFEN RAKBNZ SENZ!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MEN N "G" TUUNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('IKI (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in ['D','d'] then begin clrscr;
gotoxy(1,1); highvideo; textbackground(red);
writeln(' ');
gotoxy(1,2); highvideo; textbackground(blue);
writeln(' ');
gotoxy(30,3); highvideo; textcolor(red); writeln('>>>>>TrAbZoNsPoR<<<<<');
gotoxy(1,4); highvideo; textbackground(blue);
writeln(' ');
gotoxy(1,5); highvideo; textbackground(red);
writeln(' ');
writeln('1-FB');
writeln('2-GS');
writeln('3-BJK');
write('Rakibinizi Seiniz: ');
readln(tk);
CASE tk OF
1 : writeln('TS: ',s1,' - FB: ',s2);
2 : writeln('TS: ',s1,' - GS: ',s2);
3 : writeln('TS: ',s1,' - BJK: ',s2)
else writeln(' LTFEN RAKBNZ SENZ!! ');
end;
gotoxy(45,24); highvideo; textbackground(3);textcolor(red); writeln('ANA MEN N "G" TUUNA BASINIZ!!');
gotoxy(55,23); highvideo; textbackground(3); textcolor(red); writeln('IKI (ESC)');
tus:=readkey;
if tus in ['G','g'] then goto en_bas ;
end;
if tus in [#27] then goto en_son else clrscr; gotoxy(10,8); writeln('LTFEN SEMNZ YAPINIZ!!!');
gotoxy(10,9); writeln('ANASAYFAYA DNMEK N "ENTER" TUUNA BASINIZ!! '); readln; goto en_bas;
readln;
en_son:
end.
