Нужно сделать расчёт времени, Помогите Опции

[Artem7]

Начали изучать Pascal и дали задачу вводим начальное время (ч,м,с) конечное время (ч,м,с) и надо сделать так чтобы он находил количество времени прошедшее от начала до конца и ответ чтобы выводил в формате (ч,м,с)
P.S Мы только начали проходить Pascal так что прошу как можно проще реализовать потомучто сказали с базовыми навыками реализовать.

[IUnknown]

Все просто, на самом деле:

Program Primer2;
Var
   a,b,c:integer;
   d,f,e:integer;
   sec:longint;

Begin
   writeln('введите начальное время:'); readln(a,b,c);
   writeln('введите конечное время:'); readln(d,f,e);

   { Теперь переводим это время в секунды и из второго вычитаем первое }
   sec := 0;
   sec := sec + (e + 60 * f + 3600 * d) -
                (c + 60 * b + 3600 * a);


   { Выводим разницу: чтоб получить часы надо разделить НАЦЕЛО секунды на 3600,
      чтоб получить минуты - от общего числа секунд отнять 3600 * кол-во часов,
      и результат поделить на 60 (тоже нацело). Ну, а с секундами - все просто: достаточно
      взять остаток от деления sec на 60, это и будет число секунд }

   writeln('Разница = ', sec div 3600, ':',
           (sec - 3600 * (sec div 3600)) div 60, ':', sec mod 60);
   readln;
End.

Зачем понадобилось присваивать sec нулю, а потом прибавлять к нему то, что я прибавил (вместо того, чтобы сразу, без "sec + " записать то же самое) - попробуй догадаться сам (я бы попросил остальных участников пока не подсказывать, почему сделано именно так)

Сообщение отредактировано: IUnknown - 8.02.2012 19:59

[Artem7]

Зачем понадобилось присваивать sec нулю, а потом прибавлять к нему то, что я прибавил (вместо того, чтобы сразу, без "sec + " записать то же самое) - попробуй догадаться сам (я бы попросил остальных участников пока не подсказывать, почему сделано именно так)

Хм что то тут поразмыслил ничего не приходит на ум, может потому что только начал работать с паскалем(((
Не могли бы вы сказать для чего?