Составьте программу которая рисует прямоугольник синего цвета с кординатами противоположных вершин (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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
