Question

Помогите срочно!! Как нарисовать движущуюся ракету в паскале ABC, саму ракету нарисовала, а как привести в движение не знаю((

Answer 1

Как то так, можешь заменить так что бы ракета вверх двигалась.
Program raketa;
uses graphabc;
var i:integer;
begin
For i:=1 to 300 do begin
line (i+300,60,i+240,120);
line (i+240,120,i+240,360);
line (i+360,120,i+360,360);
line (i+240,360,i+360,360);
line (i+300,60,i+360,120);
line (i+240,210,i+210,240);
line (i+210,240,i+240,240);
line (i+360,210,i+390,240);
line (i+390,240,i+360,240);
circle (i+300,150,15);
circle (i+300,210,15);
circle (i+300,270,15);
line (i+240,360,i+180,450);
line (i+180,450,i+420,450);
line (i+420,450,i+360,360);
line (i+330,450,i+330,370);
line (i+300,450,i+300,365);
line (i+270,450,i+270,370);
ClearWindow;
end;
end.
end.

Answer 2

спасибо большое!! А чтобы она вверх двигалась нужно вместо y поставить i-?

Answer 3

нет, я просто поставил цикл который за один свой проход увеличивал координату X на один, тебе нужно будет i+ поставить под каждой Y координатой. Где то так line (300,i+60,240,i+120); А если поставить i- ракета просто уйдет за экран влево

Answer 4

Спасибо просто огромное,выручили!!!!!