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

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

delay(100);

end;

until keypressed;

1:

setcolor(black);

setfillstyle(1,1);

SetBkcolor(1);

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

for i:=1 to 90 do

begin

sector(getmaxx div 2,getmaxy div 2,0,i,400,400);

sector(getmaxx div 2,getmaxy div 2,90,90+i,400,400);

sector(getmaxx div 2,getmaxy div 2,180,180+i,400,400);

sector(getmaxx div 2,getmaxy div 2,270,270+i,400,400);

end;

setcolor(Magenta);

settextstyle(7,0,8);

outtextxy((getmaxx div 2)-(TextWidth('Good luck!!!') div 2),

(getmaxy div 2)-180,'Good luck!!!');

Delay(1000);

closegraph;

end;

END.

UNIT Retrace;

INTERFACE

Procedure WaitRetraceMode;

IMPLEMENTATION

Procedure WaitRetraceMode;