Структура типа "Время" - Часы, минуты, секунды - Pascal

Формулировка задачи:

"1)Структура типа "Время" - Часы, минуты, секунды Написать функцию, в которую Ты передаёшь переменную типа "Время", и функция возвращает эту же переменню, на 1 секунду больше

Код к задаче: «Структура типа "Время" - Часы, минуты, секунды - Pascal»

textual
type
  TTime = record
    h, m, s: ShortInt;
  end;
 
function AddSec(var t: TTime): Boolean;
begin with t do begin
    Inc(s);
    Inc(m,s div 60); s:=s mod 60;
    Inc(h,m div 60); m:=m mod 60;
    AddSec:=h div 24>0; h:=h mod 24;
end; end;

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ