Question

По информатике надо сделать анимацию летящего самолёта с которого ядра в graphabc

Answer 1

Uses graphABC;
var i:integer;

procedure progectile(x:integer);
var i:integer;
begin;
for i:=30 to windowheight+30 do
begin;
setpencolor(clwhite);
circle(x,i-1,4);
setpencolor(clred);
circle(x,i,2);
sleep(10);
end;
end;

begin;
maximizewindow;
for i:=2 to windowwidth do
begin;
setpencolor(clwhite);
rectangle(i-1,18,i+5,24);
setpencolor(clblue);
line(i,20,i+10,20);
line(i+5,20,i+3,18);
line(i+5,20,i+3,22);
sleep(100);
if i mod 30=0 then progectile(i);
end;
end.