Mail

В этот день много лет назад...
17 декабря. В 1927 году (98 лет назад) - У мыса Код американская подводная лодка S-4 во время всплытия в сумерки попадает под форштевень эсминца "Поулдинг" водоизмещением 1200 т. От удара в носовом аккумуляторном отсеке образуется пробоина 300х750 мм, в которой застревает обломок форштевня эсминца. С затопленным отсеком лодка S-4 ложится на грунт на глубине более 30 метров. Через некоторое время по трубам вентиляции вода проникает в центральный пост. С двумя затопленными отсеками лодке не удается всплыть на поверхность. Из 39 членов экипажа в аварии погибают 13. Для спасения оставшихся в живых подводников организована грандиозная по тем временам спасательная операция. Спасательное судно американского флота "Фалкон" и опытные водолазы, несмотря на шторм, в течение 2,5 суток поддерживали связь с подводниками, однако поднять лодку на поверхность не смогли. Это было сделано лишь в марте 1928, после чего лодку восстановили. Суд признал виновными командиров столкнувшихся кораблей. Для успокоения общественности был отстранен командир сил охраны контрадмирал Брэмби "за отсутствие инициативы при руководстве работами по спасению S-4".

Turbo Pascal Documentation

Процедура Rewrite

     Функция: Создает и открывает новый файл.
     Описание: Rewrite(f [ : file; разм_записи : word ] )
     Примечания: Параметр f  является  файловой  переменной,
соответствующей  любому  типу файла. Он должен быть связан с
внешним  файлом  с  помощью   процедуры   Assign.   Параметр
"разм_записи"  представляет  собой  необязательное выражение
длиной в слово и может указываться только в том случае, если
f является нетипизованным файлом.
     Процедура Rewrite создает новый внешний файл, имя кото-
рого  присвоено  f. Если внешний файл с указанным именем уже
существует, то он удаляется и на его месте  создается  новый
пустой  файл. Если файл f уже открыт, то он сначала закрыва-
ется, а затем открывается вновь. Текущая позиция в файле ус-
танавливается  на начало файла. Если f было присвоено пустое
имя  (например,    Assign(f,'')),  то  после   обращения   к
процедуре  Reset(f)  будет ссылкой на стандартный файл ввода
(стандартный канал номер 1).
     Если f - текстовый файл,  то  он  становится  доступным
только по записи. После обращения к процедуре Rewrite Еоf(f)
принимает значение Тruе, если файл пуст, и значение False  в
противном случае.
     Если f  является  нетипизованным  файлом,  то  параметр
"разм_записи"  определяет  размер записи, который должен ис-
пользоваться при передаче данных. Если этот параметр опущен,
то он подразумевается равным по умолчанию 128 байтам.
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Отличия: В версии 3.0 Турбо-Паскаля  пустое  имя  файла
было недопустимо.
     Прочее: См. также процедуры Reset, Append, Assign.
     Пример:

var f : text;
begin
Assign(f,'NEWFILE,');
  Writeln(f,'Создается файл, в который записывается эта
             строка');
Close(f);
end.