объясните пожалуйста

[Arcueid1691]

Здравствуйте! Вот задание: Дана задача: в окне показывается текущее время с дискретностью 10с (часы, минуты, секунды) в трех часовых поясах.
Программу я написала, а вот почему h>24?? если h= или < 24 то программа не работает. Объяснение что , если в одном часовом поясе 01.00, а на другом на 3 часа раньше, а в сутках 24 часа, при вычислении мы получим отрицательное значение -02.00. следовательно нужно добавить еще 24 часа. Такое объяснение препода не устроило. как можно иначе объяснить?
Вот кусочек программы

h:=h-3;if h>24 then h:=h+24;
if s mod 10=0 then
writeln(h,' : ',m,' : ',s);
h:=h-11;
if h>24 then h:=h+24;

[Sazary]

Эм.. Какой-то странный кусочек.. Может, вот так?

 h:=h-3;
 if h<0 then h:=h+24;
 if s mod 10=0 then
  writeln(h,' : ',m,' : ',s);
 h:=h-11;
 if h<0 then h:=h+24;

Ведь проверяем на положительность..

[Arcueid1691]

Попробовала с Вашим кусочком, программа не те результаты выдает. вот полный код программы

program lab;
uses dos,crt;
var
h,m,s,s100:word;
begin
clrscr;
repeat window(31,11,50,16);
textbackground(5);
textcolor(+128);
Gettime(h,m,s,s100);
if s mod 10=0 then
writeln(h,' : ',m,' : ',s);

h:=h-3;if h>24 then h:=h+24;
if s mod 10=0 then
writeln(h,' : ',m,' : ',s);
h:=h-11;
if h>24 then h:=h+24;

if s mod 10=0 then
writeln(h,' : ',m,' : ',s);

until keypressed;


end.

работает исправно, все отлично, только в объяснении проблема...

[Sazary]

Работает потому, что переменные типа word, то есть, беззнаковые. И когда они получают значение меньше нуля, то становятся равными МАКСИМАЛЬНОЕ_ЗНАЧЕНИЕ_ТИПА_WORD - то, что получилось.

Попробуйте выводить значение h после того, как отнимаете от него 3 или 11 и увидите, что получается число за 65 тысяч.

Например: у меня сейчас 22 часа. Отнимаю от этот 30 (чтобы получить отрицательное значение) и вывожу результат:

65528

[Arcueid1691]

Так чтобы он не выдавал значение за 65 тыс. я и задала h>24 ...

[Sazary]

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

Как тут по-другому объяснить-то? Он вообще сказал, что конкретно ему не нравится в объяснении? Или что-то вроде "не покатит"?

[Arcueid1691]

ничего конкретного он не сказал, типа "не покатит" и все. Вот и задаюсь теперь этим вопросом почему h>24?...

[Sazary]

А мое объяснение не подойдет? )

Вообще, на месте 24 может стоять и другое число (больше 24) (ведь если h-3 будет отрицательно, то конечное значение будет довольно большое).
Можно написать так:

if not (h<=24) then h:=h+24;

может, преподу больше понравится )

[Arcueid1691]

спасибо за помощь) попробую так объяснить.

[Arcueid1691]

Спасибо ОГРОМЕННОЕ!!! защитила лабу))))