program pr;uses crt, graphABC;var driver,mode :integer;beginsetwindowwidth(1024);setwindowheight(600);setpencolor(clBlack);rectangle(100,100,400,400);rectangle(150,150,200,300);rectangle(300,150,350,300);rectangle(375,99,340,10);line(100,100,250,10);line(250,10,400,100);circle(600,50,50);floodfill(600,50,clBlue);circle(250,65,30);floodfill(250,65,clRed);setpencolor(clblue);rectangle(225,150,275,300);line(250,150,250,300);line(175,150,175,300);line(325,150,325,300);setpencolor(clred);circle(600,300,25);circle(575,340,25);circle(625,340,25);circle(550,380,25);circle(600,380,25);circle(650,380,25);end.
Незнаю подойдет рисунок или нет но делал сам
незнаю подойдет или нет
program pr;
uses crt, graphABC;
var driver,
mode :integer;
begin
setwindowwidth(1024);
setwindowheight(600);
setpencolor(clBlack);
rectangle(100,100,400,400);
rectangle(150,150,200,300);
rectangle(300,150,350,300);
rectangle(375,99,340,10);
line(100,100,250,10);
line(250,10,400,100);
circle(600,50,50);
floodfill(600,50,clBlue);
circle(250,65,30);
floodfill(250,65,clRed);
setpencolor(clblue);
rectangle(225,150,275,300);
line(250,150,250,300);
line(175,150,175,300);
line(325,150,325,300);
setpencolor(clred);
circle(600,300,25);
circle(575,340,25);
circle(625,340,25);
circle(550,380,25);
circle(600,380,25);
circle(650,380,25);
end.
Незнаю подойдет рисунок или нет но делал сам
program pr;
uses crt, graphABC;
var driver,
mode :integer;
begin
setwindowwidth(1024);
setwindowheight(600);
setpencolor(clBlack);
rectangle(100,100,400,400);
rectangle(150,150,200,300);
rectangle(300,150,350,300);
rectangle(375,99,340,10);
line(100,100,250,10);
line(250,10,400,100);
circle(600,50,50);
floodfill(600,50,clBlue);
circle(250,65,30);
floodfill(250,65,clRed);
setpencolor(clblue);
rectangle(225,150,275,300);
line(250,150,250,300);
line(175,150,175,300);
line(325,150,325,300);
setpencolor(clred);
circle(600,300,25);
circle(575,340,25);
circle(625,340,25);
circle(550,380,25);
circle(600,380,25);
circle(650,380,25);
end.
незнаю подойдет или нет