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

Question

Информатика

Игорич

12 августа, 03:26

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

+4

Ответы (1)

Знаете ответ на вопрос?

Филарет · 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.