Turbo Pascal Documentation

Процедура Rectangle

Модуль Graph

     Функция: Рисует прямоугольник, используя текущий цвет и
тип строки.
     Описание: Rectangle(x1, y1, x2, x2 : integer)
     Примечания: Точка  с  координатами  (х1,у1)  определяет
верхний  левый  угол  прямоугольника, а точка с координатами
(х2,у2) определяет нижний правый угол  (0  <=  х1  <  х2  <=
GetМахХ и 0 <= у1 < у2 <= GetМахY).
     При вычерчивании  прямоугольника  будут  использоваться
текущий   тип   строки   и   цвет,  которые  устанавливаются
процедурой SetLineStyle.
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См.  также  процедуры  InitGraph,  SetViewPort,
Bar, GetViewSettings, Bar3D.
     Пример:

uses Graph;
var
   GraphDriver, GraphMode : integer;
   x1, y1, x2, y2 : integer;
begin
   GraphDriver := Detect;
   InitGraph(GraphDriver,GraphMode,'');
   if GraphResult <> grOk then
      Halt(1);
   Randomize;
   repeat
       x1 := Random(GetMaxX);
       y1 := Random(GetMaxY);
       x2 := Random(GetMaxX - x1) + x1;
       y2 := Random(GetMaxY - y1) + y1;
    Rectangle(x1,y1,x2,y2);
  until KeyPressed;
    CloseGraph;
end.