Question

Составьте программу для рисования улитки. Сделайте надпись "Тише едешь-дальше будешь!" Делать в АВС.Помогите пожалуйста!!​

Answer 1

Ответ:

uses GraphABC;

var i,x,u:integer;

begin

FloodFill(1,1,clGreen);

SetFontSize (27);

SetBrushStyle (bsClear);

SetFontColor(clyellow);

TextOut (45,50,'Тише едешь - дальше будешь!');

SetBrushStyle (bsSolid);

SetPenWidth(7);

SetPenColor(clBrown);

x:=1;

u:=0;

for i:=1 to 120 do

begin

Arc(300,250,x,u,u+11);

x:=x+1;

u:=u+10

end;

for i:=1 to 19 do

begin

Arc(300,250,x,u,u+11);

x:=x-1;

u:=u+10

end;

FloodFill(300,251,clBrown);

SetPenColor(clOlive);

SetBrushColor(clOlive);

Ellipse(200,350,430,410);

Circle(430,345,35);

SetPenWidth(7);

Line(450,320,470,280);

Line(460,330,500,290);

Circle(470,280,7);

Circle(500,290,7);

SetBrushColor(clBlack);

Circle(435,335,10);

SetPenWidth(5);

SetPenColor(clBlack);

Arc(455,363,11,175,271)

end.

Объяснение: