Нарисуйте картину с помощью программы в паскаль

Question

Нарисуйте картину с помощью программы в паскаль

Answer 1

Ответ:

Объяснение:

uses graphABC;

begin

setwindowsize(500,500);

setpenwidth(4);

arc(250,200,50,-90,90);

arc(250,320,70,-90,90);

line(230,150,250,150);

line(230,250,250,250);

line(230,390,250,390);

line(230,150,230,390);

floodfill(260,200,clbrown);

floodfill(260,320,clbrown);

setbrushcolor(clcream);

circle(230,100,50);

arc(240,150,30,30,-190);

floodfill(240,140,clbrown);

setbrushcolor(clwhite);

circle(240,90,20);

ellipse(240,75,260,105);

setbrushcolor(clblack);

circle(250,90,5);

arc(350,150,100,130,-200);

arc(220,40,100,-60,0);

arc(270,43,35,-60,90);

arc(344,40,25,40,-170);

 

line(290,180,390,140);

line(390,140,380,60);

line(380,60,400,50);

 

line(300,200,390,230);

line(390,230,400,180);

line(400,180,420,180);

 

line(230,180,110,170);

line(110,170,150,100);

line(150,100,130,80);

 

line(230,210,140,240);

line(140,240,120,290);

line(120,290,100,270);

 

line(320,310,380,370);

line(380,370,350,430);

line(350,430,380,430);

 

line(310,360,330,380);

line(330,380,250,430);

line(250,430,280,430);

end.

Comments

uses GraphABC;
begin
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.

Answer 2

Ответ:

uses GraphABC;

begin

SetPenWidth(5);  

Rectangle(15,15,625,465);

Rectangle(105,250,125,400);

FloodFill(110,255,clGray);

SetBrushColor(clGreen);

FillEllipse(60,135,170,305);

Rectangle(305,190,320,290);

FloodFill(310,195,clGray);

SetBrushColor(clGreen);

FillEllipse(267,75,357,210);

Rectangle(503,130,515,195);

FloodFill(510,145,clGray);

SetBrushColor(clGreen);

FillEllipse(475,25,545,135);

end.

Объяснение:

Смотри картинку

---