Question

Нарисовать ТАНК в программe Pascal ABC вот пример

Answer 1

program Tank;
uses graphabc;
var w,h:integer;
begin
w:=WindowWidth;
h:=WindowHeight;
circle(w div 2 - 80, h div 2 + 50,18);
circle(w div 2 - 40, h div 2 + 50,18);
circle(w div 2 - 00, h div 2 + 50,18);
circle(w div 2 + 40, h div 2 + 50,18);
circle(w div 2 + 80, h div 2 + 50,18);
Arc (w div 2 - 80, h div 2 + 50, 25, 270, 90);
Arc (w div 2 + 80, h div 2 + 50, 25, 270, 450);
line(w div 2 - 80, h div 2 + 50 - 25, w div 2 + 80, h div 2 + 50 - 25);
line(w div 2 - 80, h div 2 + 50 + 25, w div 2 + 80, h div 2 + 50 + 25);
line(w div 2 - 80, h div 2 - 20, w div 2 - 80, h div 2 + 25);
line(w div 2 + 80, h div 2 - 20, w div 2 + 80, h div 2 + 25);
line(w div 2 - 80, h div 2 - 20, w div 2 + 80, h div 2 - 20);
line(w div 2 - 60, h div 2 - 30, w div 2 + 60, h div 2 - 30);
line(w div 2 - 60, h div 2 - 30, w div 2 - 80, h div 2 - 20);
line(w div 2 + 60, h div 2 - 30, w div 2 + 80, h div 2 - 20);
rectangle(w div 2 + 80, h div 2, w div 2 + 180, h div 2 + 10);
circle(w div 2 + 60, h div 2, 15);
line(w div 2 + 60 - 15, h div 2, w div 2 + 60 + 15, h div 2);
line(w div 2 + 60, h div 2 - 15, w div 2 + 60, h div 2 + 15);
end.