программа pascal abc

Ответ от Петрина Александр[гуру]
изучайте функции line, lineto

Ответ от Cublen[гуру]
program dom;
uses graphABC,crt;
begin
setwindowwidth(500);
setwindowheight(600);
SetPenColor(clblue);
line(200,200,100,300); delay(100);
line(200,200,300,300); delay(100);
line(100,300,150,400); delay(100);
line(150,400,250,400); delay(100);
line(300,300,250,400); delay(100);
line(200,200,200,400); delay(100);
FloodFill(110,300,clFuchsia ); delay(100);
FloodFill(210,300,clred );
end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]