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

Shift: TShiftState);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

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

procedure FillZap(ind: integer);

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

const

n=10;

type

TSprite= record

X,Y : integer;

vectX, vectY: integer;

koef_a, koef_b: real;

speed : integer;

Gr : TBitmap;

end;

TRocket= record

X,Y: integer;

Gr : TBitmap;

Destroed: Boolean;

end;

var

Form1: TForm1;

a:integer=0;

Su25: array [1..n] of TSprite;