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

[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