Задача по информатике надо сделать анимацию летящего самолёта с которого падают ядра в graphABC
Задача по информатике надо сделать анимацию летящего самолёта с которого падают ядра в graphABC
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы