Question

напишите плизз как решить задание?
Которая изобразит на экране монитора прямоугольник,разделенный диагоналями на 4 закрашенных в разные цвета треугольника.Толщину линии установите в 4 пикселя.

Answer 1

uses
  GraphABC;

begin
  SetWindowSize(800, 600);
  SetPenWidth(4);
  SetPenColor(clMagenta);
  DrawRectangle(100, 100, 500, 500);
  Line(100, 100, 500, 500);
  Line(100, 500, 500, 100);
  SetPenColor(clRed);
  FloodFill(300, 200, clRed);
  FloodFill(400, 300, clGreen);
  FloodFill(400, 450, clBlue);
  FloodFill(150, 300, clYellow);
end.