Mail

В этот день много лет назад...
22 апреля. В 1370 году (656 лет назад) - По приказу короля Франции Карла V закладывается первый камень в основание крепости Бастилия. Крепость должна была защищать своими стенами Париж от атак англичан. Первоначально Бастилия проектировалась как укрепленные ворота, но уже Карл VI превратит ее в настоящую крепость, возведя стены на всех открытых участках. Восемь башен крепости высотой выше 30 метров, связанные стенами равной высоты и окруженные рвом шириной в 25 метров, будут возвышаться над городом. Завершится строительство было почти два века спустя. При кардинале Ришелье Бастилия станет использоваться как государственная тюрьма, каковой и будет оставаться до взятия восставшим народом 14 июля 1789. По постановлению Учредительного собрания Бастилия будет снесена. С 1880 день взятия Бастилии отмечается во Франции как национальный праздник.

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.