Реферат: Разработка игровой программы на языке программирования Turbo Pascal

outtextxy(j,50,b);

outtextxy(j,90,d);

j:=j-2;

i:=i+2;

if keypressed then goto 1;

end;

color:=getcolor;

settextstyle(4,0,1);

for i:=1 to 10 do

begin

setcolor(black);

outtextxy(230,getmaxy-20-i+1,e);

delay(100);

setcolor(color);

outtextxy(230,getmaxy-20-i,e);

end;

settextstyle(4,0,15);

setviewport(1,1,639,479,false);

repeat

for i:=15 downto 1 do

begin

if(i=1)or(i=5)then continue;

setcolor(i);

outtextxy((GetMaxX div 2)-(TextWidth(t) div 2),180,t);

delay(100);

end;

for i:=1 to 15 do

begin

if(i=1)or(i=5)then continue;