Помогите срочно!! Как нарисовать движущуюся ракету в паскале ABC, саму ракету нарисовала, а как привести в движение не знаю((
Answers & Comments
alexfedor932Как то так, можешь заменить так что бы ракета вверх двигалась. 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.
2 votes Thanks 1
AdiDaSkaSwAg13
спасибо большое!! А чтобы она вверх двигалась нужно вместо y поставить i-?
alexfedor932
нет, я просто поставил цикл который за один свой проход увеличивал координату X на один, тебе нужно будет i+ поставить под каждой Y координатой. Где то так line (300,i+60,240,i+120); А если поставить i- ракета просто уйдет за экран влево
Answers & Comments
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.