Question

Составьте программу которая рисует прямоугольник синего цвета с кординатами противоположных вершин (140,80) и (320,200).Залейте прямоугольник вертикальной штриховой фиолетового цвета, (Pascal ABC)

Answer 1

uses GraphABC;
begin
  SetWindowSize(400, 400);
  SetWindowTitle('Синий прямоугольник с фиолетовой штриховкой');
  SetBrushStyle(bsHatch);
  SetBrushColor(clMagenta);
  SetBrushHatch(bhVertical);
  FillRectangle(140,80,320,200);
  SetPenColor(clBlue);
  DrawRectangle(140,80,320,200);
end.