HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 октября. В 1943 году (75 лет назад) - Подводная лодка "Звон" в своем пятом боевом походе обнаруживает японский конвой, состоящий из трех больших танкеров и двух транспортов. Охрану несет лишь один эсминец, который ходит кругами, обследуя район. Подводной лодке удается поднырнуть к самому конвою так, что она смешивается с кораблями японцев, и эсминец не может засечь ее радиолокатором. Почти в упор "Звон" дает залп пятью торпедами по танкерам, и поражает все три судна. Затем лодка собирается поразить транспорт, но он резко разворачивается и идет на таран. У лодки, зажатой между пылающими танкерами и транспортом, времени, чтобы уйти под воду, уже не остается. Нос транспорта нависает над "Звоном". Дальнейшее командир лодки капитан О`кейн описывает следующим образом: "Это было как в мелодраматическом боевике. "Звон" метнулся прямо внутрь циркуляции транспорта, и, спасая корму, я приказал положить руль лево на борт. Транспорт открыл огонь из пушек и пулеметов. Однако снаряды проносились над нашими головами, не задевая лодки. Положение было отчаянным. Тут я взглянул на корму и увидел, что, на наше счастье, транспорту придется продолжить поворот, чтобы избежать столкновения с грузовым судном, которое также шло на таран. Наскоро прицепившись, я выстрелил веером торпеды из кормовых аппаратов с углом растворения, перекрывавшим длину обеих целей. В этот же момент грузовое судно врезалось в правую раковину транспорта. Столкновение и четыре торпеды "Звона" решили судьбу грузового судна: оно затонуло почти мгновенно, уйдя под воду с большим дифферентом на нос, а транспорт застыл на месте, задрав корму под углом в тридцать градусов". Таким образом, за один бой лодке удалось уничтожить пять кораблей.
 
 

Turbo Pascal Documentation

Процедура PackTime

Модуль Dos


     Функция: Преобразует запись DateTime (дата и  время)  в
четырехбайтовое   значение,  преобразуя  длинный  целый  тип
представления даты и времени, используемый  процедурой  Set-
Time.
     Описание: PackTime(var DT: DateTime; var  Time  :  lon-
gint)
     Примечания: Запись DateTime описана в модуле Dos следу-
ющим образом:

DateTime = record
               Year, Month, Day, Hour, Min, Sec : word;
            end;

     Для полей данной записи не выполняется проверка на пра-
вильность границ.
     Прочее:   См.  также  процедуры  UnPackTime,   GetTime,
SetTime, GetFTime, SetFTime.




HOME