Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Время на Паскале

1.8K
27 февраля 2003 года
dfcvova
44 / / 18.11.2002
Подскажите как можно написать часы.
463
01 марта 2003 года
waterman
178 / / 17.01.2003
Цитата:
Originally posted by dfcvova
Подскажите как можно написать часы.



Какие часы? Со стрелками или электронные? И что именно тебя интересует: графический вывод или реализация TSR?

1.8K
01 марта 2003 года
dfcvova
44 / / 18.11.2002
Цитата:
Originally posted by waterman


Какие часы? Со стрелками или электронные? И что именно тебя интересует: графический вывод или реализация TSR?



Меня интересуют электронные часы.

686
07 марта 2003 года
shob_vas
9 / / 20.04.2000
Цитата:
Originally posted by dfcvova


Меня интересуют электронные часы.


Насколько я помню в стандартных функциях модуля дос есть процедура gettime. Она выдает время с точностью до секунды.

463
08 марта 2003 года
waterman
178 / / 17.01.2003
Цитата:
Originally posted by shob_vas

Насколько я помню в стандартных функциях модуля дос есть процедура gettime. Она выдает время с точностью до секунды.



До 0,1 секунды.

1.8K
08 марта 2003 года
dfcvova
44 / / 18.11.2002
Цитата:
Originally posted by waterman


До 0,1 секунды.



Может кто поможет написать

463
09 марта 2003 года
waterman
178 / / 17.01.2003
Цитата:
Originally posted by dfcvova


Может кто поможет написать



Так это же тривиально. В зависимости от времени выводишь цифирь красивую :) Чему тут помогать-то?.. :-/

269
25 марта 2003 года
Greenering
892 / / 04.02.2003
Цитата:
Originally posted by dfcvova
Подскажите как можно написать часы.


Лови
из хелпа выдрано
uses Dos, Crt;

var
h, m, s, hund : Word;
function LeadingZero(w : Word) : String;
var
s : String;
begin
Str(w:0,s);
if Length(s) = 1 then
s := '0' + s;
LeadingZero := s;
end;
begin
repeat
GetTime(h,m,s,hund);
Writeln('It is now ',LeadingZero(h),':',
LeadingZero(m),':',LeadingZero(s),
'.',LeadingZero(hund));
until keypressed;
end.
цифирки прыгают по экрану
так что разбирайся
можно сделать и поудобоваримее

1.8K
25 марта 2003 года
dfcvova
44 / / 18.11.2002
Цитата:
Originally posted by Greenering

Лови
из хелпа выдрано
uses Dos, Crt;

var
h, m, s, hund : Word;
function LeadingZero(w : Word) : String;
var
s : String;
begin
Str(w:0,s);
if Length(s) = 1 then
s := '0' + s;
LeadingZero := s;
end;
begin
repeat
GetTime(h,m,s,hund);
Writeln('It is now ',LeadingZero(h),':',
LeadingZero(m),':',LeadingZero(s),
'.',LeadingZero(hund));
until keypressed;
end.
цифирки прыгают по экрану
так что разбирайся
можно сделать и поудобоваримее




Огромнейшее спосибо

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог