Реферат: Программ-игра «Морской бой», с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры

flang :integer; {С какой стороны плывёт корабль}

croldx :integer;

cr_ind2 :integer;

cr_ind:longint; {Рабочая переменная}

c:char; {Хранение нажатых клавиш}

{Флаги}

b :boolean; {Флаг нажатия клавиш "стрелок"}

fire :boolean; {Стрельба}

swim :boolean; {Перемещение}

promah :boolean; {Промах}

vzriv :boolean; {Взрыв}

const

{Два константных массива точек для хранения координат скал}

trin1:array[1..4] of PointType=

((x:-70;y:380),(x:60;y:20),(x:150;y:350),(x:-70;y:380));

trin2:array[1..4] of PointType=

((x:670;y:380),(x:560;y:5),(x:500;y:350),(x:670;y:400));

{Процедура вывода прицела и пушки на экран}

procedure target(ix:integer;bb:boolean);

const iy=200;

begin

if bb then begin {Отображение}

SetColor(green);

SetFillStyle(SolidFill,green);

FillEllipse(ix,430,26,100);

SetColor(lightgreen);

Line(ix-10,iy,ix+10,iy);

Line(ix,iy-10,ix,iy+10);

end else begin {Стирание}