Mail

В этот день много лет назад...
26 ноября. В 1956 году (68 лет назад) - В Ленинграде принимается решение о передаче "Караульного дома" на площади Мира (ныне Сенная) для устройства автобусного вокзала.

Turbo Pascal Documentation

Процедура Close

     Функция: Закрывает открытый файл.
     Описание: Close(f)
     Примечания: Параметр f представляет собой файловую  пе-
ременную  любого типа файла, который был предварительно отк-
рыт с помощью процедур Rеset, Rеwrite или Аppеnd. Для  внеш-
него  файла, связанного с переменной f полностью выполняется
его обновление и затем он закрывается, после  чего  файловый
канал  ДОС  для данного файла освобождается для последующего
использования.
     При использовании директивы компилятора {I-}  IОRеsult
будет  возвращать 0, если операция завершилась успешно и не-
нулевой код ошибки в противном случае.
     Прочее: См.  также  процедуры  Append,  Assign,  Reset,
Rewrite.
     Пример:

var f: file;
begin
   Assign(f,'\AUTOEXEC.BAT');            { открыть файл }
   Reset(f,1);
   Writeln('Размер файла = ',FileSize);
   Close(f);                             { закрыть файл }
end.

Процедура CloseGraph

Модуль Graph

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

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