Mail

В этот день много лет назад...
26 ноября. В 1971 году (53 года назад) - Законом СССР устанавливается минимальный размер заработной платы рабочих и служащих - 70 руб. в месяц, который официально останется неизменным в течение почти 20 лет.

Turbo Pascal Documentation

Процедура Assign

     Функция: Присваивает имя внешнего файла файловой  пере-
менной.
     Описание: Аssign(f; имя : string)
     Примечания: Параметр f является файловой переменой  лю-
бого типа файла, а "имя" должно представлять собой выражение
строкового типа. Дальнейшие операции с f будут выполняться с
внешним  файлом  с  именем, заданным параметром "имя". После
обращения к процедуре Аssign связь, установленная между  пе-
ременной  f  и внешним файлом будет существовать до тех пор,
пока не будет выполнена другая процедура Аssign для перемен-
ной f. Имя состоит из маршрута (пути доступа), определяющего
доступ к 0 или более каталогов, имена которых отделены  друг
от друга с помощью обратной косой черты и за которыми следу-
ет действительное имя файла:

     Диск:\имя_кат\имя_кат\...\имя_кат\имя_файла

     Если путь доступа начинается с обратной косой черты, то
поиск  начинается в корневом каталоге, в противном случае он
начинается в текущем  каталоге.  "Диск"  представляет  собой
идентификатор  диска  (А-Z).  Если  "Диск" и двоеточие будут
опущены, то используется назначенный по умолчанию дисковод.
     Каталог "\имя_кат\имя_кат\...\имя_кат" является  корне-
вым  каталогом  и путем доступа к подкаталогу, в котором со-
держится имя файла. Параметр "имя_файла" может содержать  до
восьми  символов, за которыми могут следовать точка и расши-
рение имени файла, длиной до трех символов. Максимально  до-
пустимая длина всего имени файла составляет 79 символов.
     Ограничения: Процедура Аssign не должна  использоваться
для открытого файла. Когда параметр "имя" представляет собой
пустую строку, возникает особый случай, то есть  Length(имя)
равно  нулю.  В этом случае параметр f оказывается связанным
со стандартным файлом ввода или стандартным  файлом  вывода.
Эти  специальные  файлы  позволяют инициализировать средство
изменения направления ввода-вывода операционной системы ДОС.
Если  присвоено  пустое имя, то после обращения к Rеset(f) f
будет указывать на стандарный файл ввода, а после  обращения
к Rеwritе(f) f будет указывать на стандартный файл вывода.
     Пример: (Делается попытка назначить для вывода програм-
мы вместо ДОС устройство РRN, диск и т.д.)

var f : text;
begin
   Assign(f,'');                { стандартный вывод }
   Rewrite(f);
   Writeln(f,'стандартный вывод...');
   Close(f);
end;

Функция AssignCrt

Модуль Сrt

     Функция: Связывает текстовый файл  с  устройством  СRТ.
(терминалом).
     Описание: AssignCrt(var f: Text)
     Примечания: Процедура АssignCrt работает  точно  также,
как  стандартная  процедура Аssing, за исключением того, что
имени файла не указывается. Вместо этого текстовый файл свя-
зывается с устройством CRТ (терминалом).
     Это позволяет позволяет ускорить вывод  (или  ввод)  по
сравнению  с той скоростью, которая была бы возможна при ис-
пользовании стандартного вывода (или ввода).
     Пример:

uses Crt;
var
    f : text;
begin
Write('Вывести на экран или на устройство печати? [S, P]');
  if UpCase(ReadKey) = 'P' then
     Assign(f,'PRN')   { вывод на устройство печати }
  else
     AssignCrt(f);     { вывод на экран; используются под-
                         программы работы с экраном, осу-
                         ществляющие быстрый вывод информа-
                         ции }
     Rewrite(f);
     Writeln(f,'Быстрый вывод через программы CRT...');
     Close(f)
  end.