30.12.2010, 08:18 | #1 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Электронные часы
|
30.12.2010, 08:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваш топик очень похож по содержанию на эти Электронные часы "Электроника" 7-06м Электронные сигареты Электронные часы-будильник. Электронные часы VST 719-3 |
30.12.2010, 09:54 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Вы знаете, к величайшему сожалению наши экстрасенсы-ясновидцы уже разъехались на новогодние/рождественские каникулы, а из оставшихся никто не сможет угадать, на каком языке программирования нужно выполнить задание, к какому сроку, какие часы - цифровые или с циферблатом и стрелками и т.п. Так что, не имея подобной информации, мы, увы, бессильны. |
|
30.12.2010, 11:41 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Uses Crt,Dos; VAR hour,min,sec_old,sec_new:Word; sec100,msec,usec:Word; BEGIN ClrScr; GetTime(hour,min,sec_new,sec100); Repeat Repeat sec_old:=sec_new; GetTime(hour,min,sec_new,sec100); Until sec_old<>sec_new; GoToXY(1,1); If (min<10) and (sec_new<10) then Write(hour:2,':0',min,':0',sec_new) else If sec_new<10 then Write(hour:2,':',min,':0',sec_new) else If min<10 then Write(hour:2,':0',min,':',sec_new) else Write(hour:2,':',min,':',sec_new); Until KeyPressed; ReadKey; END. В программе применена процедура GetTime (модуль DOS). Но! Дело в том, что, в зависимости от реализации Паскаль-транслятора, она может иметь три набора параметров: 1. GetTime(hour, min, sec:Word); (считываются часы, минуты и секунды). 2. GetTime(hour, min, sec, sec100:Word); (считываются часы, минуты, секунды и сотые доли секунд; в моём Паскале - именно такая). 1. GetTime(hour, min, sec, msec, usec:Word); (считываются часы, минуты, секунды, миллисекунды, микросекунды). Какой именно вариант предусмотрен в PascalABC я не знаю, это нужно установить Вам. На всякий случай все параметры описаны в перечне параметров (раздел VAR), Вам лишь нужно (при необходимости) в двух местах подправить перечень параметров процедуры GetTime. В любом случае интервалы времени, меньшие секунды, на экран не выводятся. |
|
30.12.2010, 14:56 | #5 (permalink) |
Технарёнок
Регистрация: 30.12.2010
Сообщений: 77
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Огромное спасибо,я и не думал что так можно,мне говорили что это делать нужно через For.Ещё раз с наступающем вас.Желаю успехов в новом году.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
05.01.2011, 13:12 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Обсуждение проблем, связанных с решением задачи в разных версиях Паскаля, перенесено в тему Паскаль: сравнение версий, глюки и т.п.
|
08.01.2011, 22:57 | #7 (permalink) |
Бэтмен-любитель
Регистрация: 22.09.2010
Сообщений: 227
Записей в дневнике: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 149
|
uses crt;
var min,sec:integer; begin clrscr; for min :=1 to 3 do begin for sec:=1 to 60 do begin delay(1000); gotoXY(1,1) ; write (min,':',sec,'') ; if keypressed then halt end; end; end. |
10.01.2011, 20:50 | #9 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|