Важно:Сразу прошу вас не пишите готовую программу ,а только объясните сам алгоритм в кратце:
Это задача с онлайн олимпиады:http://www.hsin.hr/coci/
Даётся нынешнее время и время планировки,нужно сколько осталось(таймер своего рода).
Пример:
input
20:00:00
04:00:00
output
08:00:00

input
12:34:56
14:36:22
output
02:01:26

Не могу понять алгоритм,ну никак?

П.С:Вольво сразу предупреди если я что-то не то сделал,может не учёл правила

Переводи стартовое и финальное время в секунды, отнимай одно от другого, и результат - опять в часы:минуты:секунды...

Возможен один исключительный случай - если результат будет отрицательным. Сам догадаешься, что надо сделать в этом случае?

Спасибо,но я об этом ,знал. Только не говори что если знал почему не сказалюЯ именно и на это зацикливаюсь:Вот например с этим примером:

???

Я тебе сказал, что есть исключительный случай? Вот он... Тебе надо догадаться, что делать...

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

(20:00:00-04:00:00)+((24:00:00-20:00:00)/2)
Может это???


Добавлено через 1 мин.

Нужен ли перевод?

зачем такие сложности?!
подумай, в каком случае время будет отрицательным... сразу станет понятно, что надо сделать

ага, нашла:

ну,незнаю...когда есть дело АМ и РМ?То есть если стрелка перейдёт 12...

Добавлено через 58 сек.
Что нашла?

AM -> PM у тебя отслеживается: 11:00 -> 13.00
разница, как видишь, положительна.

про ограничения.
вот это:

прибавлю к получившемуся отрицательному 24:00:00???

Да.
Смотри: когда происходит переход на новые сутки, мы считаем, сколько осталось старых суток и сколько возьмется от новых, т.е.:
(24:00-20:00)+04:00=(04:00-20:00)+24:00

урррррррррррраааааааааа!спасибо

Добавлено через 15 мин.
В чём проблема?

type
time=array [1..3] of byte;
var
a,b:time;
c,d:string[8];
e,f:int64;
Procedure Strong(var c:string[8]; var a:time);
var
x:byte;
y:integer;
Begin
For x:=1 to 2 do
Begin
Val(Copy(c,1,Pos(':',c)-1),a[x],y);
Delete(c,1,Pos(':',c));
End;
Val(c,a[3],y);
End;
Begin
ReadLn©;
Strong(c,a);
ReadLn(d);
Strong(d,b);
If c=d then WriteLn('00:00:00');
e:=(b[1]*3600+b[2]*60+b[3])-(a[1]*3600+a[2]*60+a[3]);
If (a[1]>=b[1]) and (a[2]>=b[2]) and (a[3]>a[3]) then e:=e+24*3600;
Write(e div 3600,':');
e:=e mod 3600;
Write(e div 60,':');
Write(e mod 60);
End.

Добавлено через 14 мин.
Может проверите?.Всё готово:

type
time=array [1..3] of byte;
var
a,b:time;
c,d:string[8];
e,f:int64;
Procedure Strong(var c:string[8]; var a:time);
var
x:byte;
y:integer;
Begin
For x:=1 to 2 do
Begin
Val(Copy(c,1,Pos(':',c)-1),a[x],y);
Delete(c,1,Pos(':',c));
End;
Val(c,a[3],y);
End;
Begin
ReadLn©;
Strong(c,a);
ReadLn(d);
Strong(d,b);
e:=(b[1]*3600+b[2]*60+b[3])-(a[1]*3600+a[2]*60+a[3]);
If (a[1]>=b[1]) and (a[2]>=b[2]) and (a[3]>=b[3]) then e:=e+24*3600;
If e div 3600<10 then Write('0',e div 3600,':')
else Write(e div 3600,':');
e:=e mod 3600;
If e div 60<10 then Write('0',e div 60,':')
else Write(e div 60,':');
If e mod 60<10 then Write('0',e mod 60)
else Write(e mod 60);
End.

Добавлено через 2 мин.
Не нужно проверять он прошёл все тесты=по-моему...

Какая из них? У тебя в программе НЕ одна проблема... Первая из них: ты уверен, что в FPC индексация строк начинается с 1?

Добавлено через 1 мин.
P.S. Это же самое делается в 3 строки (с использованием такого мощного компилятора - тем более) ...

Kak?

Обо что споткнулся я?

Вот об это:

If (a[1]>=b[1]) and (a[2]>=b[2]) and (a[3]>=b[3]) then e:=e+24*3600;

А если так:
с = '20:00:00' и d = '04:10:10', то что ты получишь в результате, подумай...

.

Я ж показал тебе: условие не выполняется, а увеличивать E все равно надо... Ответы читай внимательно, все равно готового решения не будет...

Absolute True Solution:
Абсолютное Правильное Решение:


Добавлено через 2 мин.
Вольво:Извини до этого не видел твои посты и я не искал готовых решений