|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
10.06.2009, 20:50 | #1 |
Новичок
Джуниор
Регистрация: 10.06.2009
Сообщений: 1
|
Срочно!!!!
Здравствуйте!
Дана задача: в окне показывается текущее время с дискретностью 10с (часы, минуты, секунды) в трех часовых поясах. вот готовая программа: 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. вопрос: почему h>24? |