Question

Нарисовать танк в паскале. 100 БАЛЛОВ!!!!

Answer 1

Ответ:

Вот))

Объяснение:

Answer 2

Відповідь:

uses

Graph;

var

grDriver : Integer;

grMode : Integer;

ErrCode : Integer;

begin

grDriver:=Detect;

InitGraph(grDriver, grMode, '');

Line(180, 130, 270, 130);

Line(180, 130, 180, 160);

Line(270, 130, 270, 160);

{Дуло}

Line(270, 143, 370, 143);

Line(270, 147, 370, 147);

Line(370, 143, 370, 147);

Line(140, 160, 310, 160);

Line(140, 190, 310, 190);

Arc(140, 175, 90, 270, 15);

Arc(310, 175, 270, 90, 15);

Circle(155, 175, 10);

Circle(190, 175, 10);

Circle(225, 175, 10);

Circle(260, 175, 10);

Circle(295, 175, 10);

ReadLn;

CloseGraph;

end.

Пояснення:

Вводи в паскаль ети значения.