Question

срочно создайте код на паскале ракеты без кружочков.

Answer 1

Ответ:

uses GraphABC;

begin

 var x0 := Window.Width div 2;

 var y0 := 100;

 var scale := 15;

 

 // корпус

 var x1 := x0 + 2 * scale;

 var y1 := y0 + 5 * scale;

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 y1 += 13 * scale;

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 x1 -= 4 * scale;

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 y1 -= 13 * scale;

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 (x1, y1) := (x1 + 2 * scale, y1 - 5 * scale);

 Line(x0, y0, x1, y1);

 

 // левое крыло

 (x0, y0) := (x1 - 2 * scale, y1 + 18 * scale);

 (x1, y1) := (x0 - 1 * scale, y0 + 2 * scale);

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 (x1, y1) := (x1 - 1 * scale, y1);

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 (x1, y1) := (x1, y1 - 5 * scale);

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 (x1, y1) := (x1 + 2 * scale, y1 - 3 * scale);

 Line(x0, y0, x1, y1);

 

 // правое крыло

 (x0, y0) := (x1 + 4 * scale, y1);

 (x1, y1) := (x0 + 2 * scale, y0 + 3 * scale);

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 (x1, y1) := (x1, y1 + 5 * scale);

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 (x1, y1) := (x1 - 1 * scale, y1);

 Line(x0, y0, x1, y1);

 (x0, y0) := (x1, y1);

 (x1, y1) := (x1 - 1 * scale, y1 - 2 * scale);

 Line(x0, y0, x1, y1);

end.

Объяснение: