Реферат: Разработка приложений для Windows, представляющего собой компьютерную игру Сбей самолет

//==============================================================================

procedure Calc;

var i: integer;

begin

For i:=1 to n do

begin

if Su25[i].Y>Form1.Image1.Height then FillZap(i);

Su25[i].X:=round(Su25[i].Y*Su25[i].koef_a+Su25[i].koef_b);

inc(Su25[i].Y,random(10));

end;

if rocket.Destroed<>true then dec(rocket.Y,10);

if rocket.Y<-10 then

begin

rocket.Destroed:=true;

rocket.Y:=Form1.Image1.Height+10;

end;

end;

//==============================================================================

procedure ClearScr;

begin

Form1.Image1.Canvas.Brush.Color:=clBlack;

Form1.Image1.Canvas.FillRect(Rect(0,0,Form1.Image1.Width,Form1.Image1.Height));

end;

//==============================================================================

procedure LoadImages_;

var i: integer;

begin

For i:=1 to n do

begin