Аватар
Информатика, опубликовано 2018-08-22 22:58:25 by Гость

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

Аватар
Ответ оставил Гость

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.

Вопрос
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.