Построение прямоугольника

Rectangle(x1,y1,x2,y2:integer);

Bar(x1,y1,x2,y2:integer) - рисует прямоугольник и закрашивает его цветом и стилем, определенным в процедуре SetFillStyle().

5. Построение дуг, окружностей, эллипсов.

Circle(x,y,<радиус> : word); - окружность указанного радиуса

Ellipse(x,y:integer; <нач_угол>,<кон_угол> :word; xR,yR : word) - построение эллиптических дуг.

X,Y - координаты центра,

xR, yR - длина горизонтальной и вертикальной полуосей в пикселах.

Угол отсчитывается против часовой стрелки и указывается в градусах. Дуга эллипса вычерчивается от заданного начального угла до конечного угла. Если значение начального угла 0, а конечного 360 - будет построен полный эллипс.

6. Построение закрашенного эллипса:

FillEllipse(x,y:integer; xR,yR);

X,Y - координаты центра,

xR, yR - длина горизонтальной и вертикальной полуосей в пикселах.

Стиль заполнения области внутри эллипса устанавливается процедурой SetFillStyle(), а самого эллипса - SetColor().

7. Заполнение внутренней или внешней области замкнутой фигуры.

FloodFill(x,y:integer; <цвет границы области>);

Стиль задан SetFillStyle()

X,Y - координаты точки внутри (или вне) замкнутой области.

Задача. Построить в центре экрана синий прямоугольник, закрасив его линиями вида \\ темно-серого цвета. Фон экрана сделать белым.