Uses Graph;
VAR
x1, y1, x2, y2:integer;
GraphDriver,GraphMode:integer;
procedure L(x1, y1, x2, y2:word);
begin
SetColor(red);
Line (x1, y1, x2, y2);
end;
Begin
GraphDriver:=detect;
InitGraph(GraphDriver, GraphMode, '');
SetBkColor(white); {<------------------вот строчка которая должна менять цвет фона}
x1:=150; y1:=450; x2:=100; y2:=350; L (x1, y1, x2, y2);
x1:=100; y1:=350; x2:=350; y2:=350; L (x1, y1, x2, y2);
x1:=350; y1:=350; x2:=300; y2:=450; L (x1, y1, x2, y2);
x1:=150; y1:=450; x2:=300; y2:=450; L (x1, y1, x2, y2);
x1:=200; y1:=350; x2:=200; y2:=20; L (x1, y1, x2, y2);
x1:=200; y1:=20; x2:=250; y2:=40; L (x1, y1, x2, y2);
x1:=250; y1:=40; x2:=200; y2:=40; L (x1, y1, x2, y2);
x1:=200; y1:=50; x2:=300; y2:=250; L (x1, y1, x2, y2);
x1:=300; y1:=250; x2:=200; y2:=350; L (x1, y1, x2, y2);
read(x1);
CloseGraph;
End.
заранее благодарен.
Добавлено через 7 мин.
FloodFillтоже не работает...