Mail

В этот день много лет назад...
2 декабря. В 1951 году (72 года назад) - В состав военно-морского флота СССР входит первая подводная лодка проекта 613, с которого начнется строительство подлодок второго поколения. По многим техническим показателям это - лучшая лодка среднего водоизмещения своего времени: самая глубоководная (до 200 м), может находиться под водой до 10 дней, небывалая дальность хода - почти 9 тысяч километров. Впервые в мире их корпус покрыт резиной, за счет чего они становятся самыми бесшумными. С этих лодок будут совершены первые в мире пуски ракет. До 70-х они будут составлять ядро советских подводных сил.

Turbo Pascal Documentation

Функция FilePos

     Функция: Возвращает текущую позицию в файле.
     Описание: FilePos(f)
     Тип резльтата: Длинный целый (longint).
     Примечания: Параметр f представляет собой файловую  пе-
ременную.  Если  текущей  позицией является начало файла, то
функция FilePos(f) возвращает значение 0. Если текущей пози-
цией в файле является конец файла, то есть Еоf(f) возвращает
значение   Тruе,   то   значение,   возвращаемое    функцией
FilePos(f),  совпадает  со  значением, возвращаемым функцией
FileSizе(f) (размером файла).
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Ограничения: Эта функция не  может  использоваться  для
текстового файла. Файл должен быть открыт.
     Прочее: См. также процедуры FileSize, Seek.
     Отличия: Результат функции в версии 3.0 был целого  ти-
па.