Question

Изобразить на экране ЭВМ следующий рисунок: Построение графических изображений в Паскале abc.net

Answer 1

Uses graphabc;
begin
line(300,100,600,100);
line(200,400,500,400);
line(500,400,600,100);
line(200,400,300,100);
//
line(700,250,583,150);
line(700,250,532,300);
//
circle(520,150,30);
circle(520,150,20);
//
line(300,300,350,300);
line(300,300,200,200);
line(200,200,200,150);
line(200,150,250,150);
line(250,150,400,200);
line(400,200,400,250);
line(400,250,350,300);
//
line(225,320,150,300);
line(225,320,150,350);
line(150,350,150,300);
//
floodfill(520,150,clblack);
floodfill(600,250,clblack);
floodfill(350,250,clblack);
floodfill(210,199,clblack);
floodfill(450,350,clgray);
floodfill(155,303,clblack);
end.