Ответы
Ответ:
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.
Объяснение: