Mail

В этот день много лет назад...
2 декабря. В 1805 году (218 лет назад) - Аустерлицкое сражение. В сражении, получившем название "Битва трех императоров", армия Наполеона (73 тысячи человек) наносит тяжелое поражение объединенной русско-австрийской армии (86 тысяч человек). Командующим считается М. И. Кутузов, но фактически он отстранен от принятия решений императором Александром I, который принял план австрийского генерала Ф. Вейротера, не учитывавший маневра противника и без достаточных сведений от обстановке. Союзники теряют убитыми и ранеными 27 тысяч человек, французы - около 12 тысяч. У России самые внушительные потери: 21 тыс. убитых и раненых.

Turbo Pascal Documentation

Процедура CloseGraph
Модуль Graph

     Функция: Останавливает работу графической системы.
     Описание: CloseGraph
     Примечания: Данная процедура  восстанавливает  исходный
режим экрана (который был установлен до инициализации графи-
ки) и освобождает в динамически распределяемой  области  па-
мять, используемую графическим драйвером.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также  процедуры  CloseGraph,  DetectGraph,
InitGraph, RestoreCrtMode, SetGraphMode.
     Пример:

grDriver := Detect;  { установить автоматическое распозна-
                        вание аппаратуры }
InitGraph(grDriver,grMode,'');
  ...
CloseGraph;