Запишите формат оператора позволяющего вывести ** экран закрашеный прямоугольник с...

Question

Запишите формат оператора позволяющего вывести на экран закрашеный прямоугольник с указанием значения каждого параметра

Answer 1

Procedure Rectangle(x1,y1,x2,y2: integer); 
        Рисует прямоугольник , заданный координатами противоположных вершин (x1,y1) и (x2,y2) 

(x1,y1) - координаты левого верхнего угла
(x2,y2) - координаты правого нижнего угла.

Например:
Rectangle (100,100,540,380);

FloodFill (320, 240, clGold); - закрашивает замкнутую область золотым цветом