ReadLn (Hour, Min, Sec);
2. Складемо програму для перевірки, чи передує час Т1 часу T2 (у межах доби). Найпростішим способом розв'язування завдання є переведення часу, заданого у форматі Год:Хв:Сек в секунди, і порівняння отриманих значень. Опишемо змінні Timel, Тіme2: Integer. With Т1 Do Timel:= Hour*3600+Min*60+Sec; With Т2 Do Time2:= Hour*3600+Min*60+Sec; If Timel<Time2 Then writeLn (’так1) Else writeLn C’Hi1); 3. Обчислимо час D, що відокремлює моменти Т1 і T2: D=|T2-T1|. D:=Abs(Timel-Time2); 4. Переведемо час D, отриманий в секундах, у формат Год:Хв:Сек. Для цього опишемо змінні Hd, Md, Sd: integer. Hd:= D Div 3600; D:= D Mod 3600; Md:= D Div 60; Sd:= D Mod 60; WriteLn (Hd, ‘: ‘, Md, ‘: ', Sd); 5. Складіть програму для обчислення часу (Т1 + 1 секунда), враховуючи зміну доби. Блок-схема алгоритму:
6. Складемо програму обчислення часу (Т1+1 сек) за блок-схемою. Begin Write ('T1=>'); with ті DO
|
