Напишите программу для ежика из смешариков, нарисовать в pascal abc. размер поля 800*600.

Ответ:

kamilamih

06.10.2020 10:43

Uses GraphABC;
Begin
SetWindowSize(800,600);
SetWindowTitle ('Ёжик');
SetPenWidth(15);
{рисуем ноги}
SetPenColor(clMaroon);
MoveTo(320,520);
LineTo(320,600);
LineTo(460,600);
LineTo(460,520);
LineTo(420,520);
LineTo(390,580);
LineTo(360,520);
LineTo(320,520);
MoveTo(390,580);
LineTo(390,600);
FloodFill(340,540,clFuchsia);
FloodFill(440,540,clFuchsia);
{рисуем туловище}
Circle(390,315,200);
FloodFill(390,315,clFuchsia);
{рисуем очки}
SetPenColor(clPurple);
Circle(320,300,70);
Circle(460,300,70);
MoveTo(260,260);
LineTo(220,240);
MoveTo(520,260);
LineTo(560,240);
{рисуем глаза}
Circle(340,310,30);
FloodFill(340,310,clBlack);
Circle(440,310,30);
FloodFill(440,310,clBlack);
{рисуем нос и рот}
SetPenColor(clMaroon);
MoveTo(360,370);
LineTo(420,370);
MoveTo(390,370);
LineTo(390,400);
SetPenColor(clRed);
MoveTo(360,440);
LineTo(420,440);
LineTo(390,460);
LineTo(360,440);
{рисуем челку}
SetPenColor(clMaroon);
MoveTo(380,120);
LineTo(390,180);
LineTo(400,120);
MoveTo(380,140);
LineTo(340,190);
MoveTo(400,140);
LineTo(440,190);
{рисуем руки}
MoveTo(200,400);
LineTo(180,440);
LineTo(180,500);
LineTo(200,520);
LineTo(240,520);
LineTo(240,480);
LineTo(220,480);
LineTo(220,460);
LineTo(240,450);
FloodFill(200,440,clFuchsia);
MoveTo(580,400);
LineTo(600,440);
LineTo(600,500);
LineTo(580,520);
LineTo(540,520);
LineTo(540,480);
LineTo(560,480);
LineTo(560,460);
LineTo(540,450);
FloodFill(580,440,clFuchsia);
{рисуем иголки}
SetPenColor(clPurple);
MoveTo(180,330);
LineTo(100,240);
LineTo(140,220);
LineTo(180,220);
LineTo(180,120);
LineTo(200,100);
LineTo(220,120);
LineTo(280,120);
LineTo(390,20);
LineTo(500,120);
LineTo(560,120);
LineTo(580,100);
LineTo(600,120);
LineTo(600,220);
LineTo(640,220);
LineTo(680,240);
LineTo(600,330);
FloodFill(380,80,clBlue);
End.

Напишите программу для ежика из смешариков, нарисовать в pascal abc. размер поля 800*600.