Question

помогииитеее через Pascal ABC инфоорматика​

Answer 1

uses GraphABC;

var

 p:array[0..7]of Point;

begin

 p[0].x := 100; p[0].y := 50;

 p[1].x := 200; p[1].y := 150;

 p[2].x := 200; p[2].y := 200;

 p[3].x := 100; p[3].y := 400;

 p[4].x := 150; p[4].y := 200;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2],p[3],p[4]); // хвост

 p[0].x := 200; p[0].y := 150;

 p[1].x := 200; p[1].y := 200;

 p[2].x := 300; p[2].y := 250;

 p[3].x := 500; p[3].y := 250;

 p[4].x := 550; p[4].y := 200;

 p[5].x := 550; p[5].y := 150;

 p[6].x := 500; p[6].y := 100;

 p[7].x := 300; p[7].y := 100;

 SetBrushColor(rgb(200,200,200));

 Polygon(p[0],p[1],p[2],p[3],p[4],p[5],p[6],p[7]); // тело

 p[0].x := 300; p[0].y := 100;

 p[1].x := 350; p[1].y := 50;

 p[2].x := 500; p[2].y := 100;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2]); // верхний плавник

 p[0].x := 300; p[0].y := 250;

 p[1].x := 350; p[1].y := 300;

 p[2].x := 500; p[2].y := 250;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2]); // нижний плавник

 SetBrushColor(rgb(0,0,0));

 rectangle(550,150,560,200); // рот

 SetBrushColor(rgb(70,70,70));

 circle(500,150,10); // внешний круг глаза

 SetBrushColor(rgb(0,0,0));

 circle(500,150,5); // внутренний круг глаза

end.