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

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


textual

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

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



Похожие ответы
  1. В переменную типа Byte “упаковано” 4 маленьких неотрицательных целых значений, каждое из которых занимает по 2 соседних бита. Вывести все эти значения в десятичном виде в порядке их размещения внутри байта справа налево.

  1. Здравствуйте.Столкнулся с такой проблемой. Походу программы мне понадобилось очистить переменную типа char. Т.е. допустим в переменной C лежала 5

  1. Пусть R- переменная типа char. Что будет напечатано при выполнении следующих операторов программы

  1. Почему не выводит отрицательное нечётное число?? в чём ошибка, помогите пожалуйста исправить сильно не изменяя код, я конечно понимаю что он не оптимизирован, но всё же...

  1. Добрый вечер! Необходима помощь в проверке числа что это число, и проверки строки что это строка. Помогите плз. нужен только вот этот кусочек кода. Заранее благодарен.

  1. Нет индексного свойства по умолчанию для типа real. Изменение типа переменных не принесло успехов. Просьба помочь разобраться в ошибке, возможно исправить код. За ранее спасибо.

  1. Помогите пожалуйста составить процедуру или функцию преобразования массива в строку