AT YARISI 1.1 Bildiğimiz at yarışı bu atları koşarken izleye biliyorsunuz
NOT
yunu derlerken XP de ve Turbo pascal 7.1 'de derleyin
aksi taktirde atlar çok yavaş koşarlar (şikayetleriniz için [email protected]'mesajlarınızı yollayın)uses crt;
var
opara,kpara:longint;
z:array[1..5] of byte;
i,yed,aa,a,j,bb,b,cc,c,dd,d,ee,e,x,y:byte;
begin clrscr;
randomize;
kpara:=1000;
repeat
gotoxy(60,24);
write(' OrHuN SoFtWaRe ');
gotoxy(1,1);
writeln('1>BAYKUS-|');
writeln('2>GšLLš--|');
writeln('3>NACIYE-|');
writeln('4>NEMRUT-|');
writeln('5>SERGEN-|');
writeln('PARANIZ:',kpara);
write('HANGI ATA OYNUCAKSIN (1-2-3-4-5):');readln
;
write('NE KADAR YATIRCAKSIN :');readln(opara);
kpara:=kpara-opara;
repeat
i:=i+1;
clrscr;
a:=random(2)+1;
b:=random(2)+1;
c:=random(2)+1;
d:=random(2)+1;
e:=random(2)+1;
aa:=aa+a;
bb:=bb+b;
cc:=cc+c;
dd:=dd+d;
ee:=ee+e;
gotoxy(aa,1);write('1>BAYKUS-|');
gotoxy(bb,2);write('2>GšLLš--|');
gotoxy(cc,3);write('3>NACIYE-|');
gotoxy(dd,4);write('4>NEMRUT-|');
gotoxy(ee,5);write('5>SERGEN-|');
delay(9000);delay(9000);delay(9000);
until (aa=50) or (bb=50) or (cc=50) or (dd=50) or (ee=50);
z[1]:=aa;
z[2]:=bb;
z[3]:=cc;
z[4]:=dd;
z[5]:=ee;
readln;
for i:=1 to 4 do
for j:=i+1 to 5 do
if z<z[j] then
begin
yed:=z;
z:=z[j];
z[j]:=yed;
end;
if z[1]=aa then
z[1]:=1;
if z[1]=y then
writeln('SECT˜G˜N˜Z AT GELD˜')
else
writeln('KAYIP ETT˜N˜Z');
if y=z[1] then
begin
writeln('KAZANDIN');
kpara:=kpara+(opara*5);
end
else
writeln('ATINIZ GELMED˜');
readln;
clrscr;
if kpara<=0 then
writeln('PARANIZ BITTI OYNAYAMASSINIZ');
aa:=0;
bb:=0;
cc:=0;
dd:=0;
ee:=0;
for i:=1 to 5 do
z:=0;
i:=0;
until kpara<=0;
readln;
end.
NOT
yunu derlerken XP de ve Turbo pascal 7.1 'de derleyinaksi taktirde atlar çok yavaş koşarlar (şikayetleriniz için [email protected]'mesajlarınızı yollayın)uses crt;
var
opara,kpara:longint;
z:array[1..5] of byte;
i,yed,aa,a,j,bb,b,cc,c,dd,d,ee,e,x,y:byte;
begin clrscr;
randomize;
kpara:=1000;
repeat
gotoxy(60,24);
write(' OrHuN SoFtWaRe ');
gotoxy(1,1);
writeln('1>BAYKUS-|');
writeln('2>GšLLš--|');
writeln('3>NACIYE-|');
writeln('4>NEMRUT-|');
writeln('5>SERGEN-|');
writeln('PARANIZ:',kpara);
write('HANGI ATA OYNUCAKSIN (1-2-3-4-5):');readln
;write('NE KADAR YATIRCAKSIN :');readln(opara);
kpara:=kpara-opara;
repeat
i:=i+1;
clrscr;
a:=random(2)+1;
b:=random(2)+1;
c:=random(2)+1;
d:=random(2)+1;
e:=random(2)+1;
aa:=aa+a;
bb:=bb+b;
cc:=cc+c;
dd:=dd+d;
ee:=ee+e;
gotoxy(aa,1);write('1>BAYKUS-|');
gotoxy(bb,2);write('2>GšLLš--|');
gotoxy(cc,3);write('3>NACIYE-|');
gotoxy(dd,4);write('4>NEMRUT-|');
gotoxy(ee,5);write('5>SERGEN-|');
delay(9000);delay(9000);delay(9000);
until (aa=50) or (bb=50) or (cc=50) or (dd=50) or (ee=50);
z[1]:=aa;
z[2]:=bb;
z[3]:=cc;
z[4]:=dd;
z[5]:=ee;
readln;
for i:=1 to 4 do
for j:=i+1 to 5 do
if z<z[j] then
begin
yed:=z;
z:=z[j];
z[j]:=yed;
end;
if z[1]=aa then
z[1]:=1;
if z[1]=y then
writeln('SECT˜G˜N˜Z AT GELD˜')
else
writeln('KAYIP ETT˜N˜Z');
if y=z[1] then
begin
writeln('KAZANDIN');
kpara:=kpara+(opara*5);
end
else
writeln('ATINIZ GELMED˜');
readln;
clrscr;
if kpara<=0 then
writeln('PARANIZ BITTI OYNAYAMASSINIZ');
aa:=0;
bb:=0;
cc:=0;
dd:=0;
ee:=0;
for i:=1 to 5 do
z:=0;
i:=0;
until kpara<=0;
readln;
end.
