Question

Нарисовать в паскале знак неровная дорога

Answer 1

uses graphABC;
begin 
setwindowsize(600, 650); 
setbrushcolor(rgb(255, 0, 0)); 
setpencolor(rgb(255, 0, 0)); 
pie(300, 165, 51, 240, -60);  
pie(75, 550, 51, 60, 360); 
pie(525, 550, 51, 120, -180); 
line(256, 137, 31, 525); 
line(300, 165, 75, 550); 
line(300, 165, 525, 550); 
line(75, 550, 525, 550); 
line(345, 140, 570, 525); 
line(75, 602, 525, 602); 
floodfill(200, 275, rgb(255, 0, 0)); 
floodfill(400, 300, rgb(255, 0, 0)); 
floodfill(300, 575, rgb(255, 0, 0)); 
setpencolor(rgb(0, 0, 0)); 
setbrushcolor(rgb(0, 0, 0)); 
line(100, 525, 148, 447); 
line(500, 525, 445, 433); 
line(100, 525, 500, 525); 
pie(200, 475, 60, 10, 170); 
pie(400, 475, 60, 10, 170); 
setbrushcolor(rgb(255, 255, 255)); 
setpencolor(rgb(0, 0, 0)); 
arc(300, 430, 50, 330, 210); 
floodfill(300, 500, rgb(0, 0, 0)); 
{Следующие команды - дубликаты некоторых прошлых. 
Они нужны чтобы убрать белые
линии  появившиеся при заливке} 
setbrushcolor(rgb(0, 0, 0)); 
pie(200, 475, 60, 0, 180); 
pie(400, 475, 60, 0, 180); 
setbrushcolor(rgb(255, 0, 0)); 
setpencolor(rgb(255, 0, 0)); 
pie(300, 165, 52, 240, -60);  
pie(75, 550, 52, 60, 360); 
pie(525, 550, 52, 120, -180);
end.