Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Январь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 123
от 09.01.2006, 17:21

Администратор:Калашников О.А.
В рассылке:Подписчиков: 143, Экспертов: 37
В номере:Вопросов: 1, Ответов: 2

Вопрос № 32657: Помагите написать процедуру SledSek, которая изменяет запись Vremia(Время)? Я делала так но он сказал что надо подругому...

Вопрос № 32.657
Помагите написать процедуру SledSek, которая изменяет запись Vremia(Время)?
Я делала так но он сказал что надо подругому

Приложение:

Отправлен: 04.01.2006, 17:20
Вопрос задала: Alisa (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Angeral
Здравствуйте, Alisa!Попробуйте так
procedure SledSek;
var Vremia:record;
s:integer;
end;
begin
S:=0;
while C<24 do
begin
while M<60 do
begin
while S<60 do
begin
inc(S);
end
S:=0
M:=M+1
end;
M:=0;
C:=C+1;
end;
end

Приложение:

Ответ отправил: Angeral (статус: 1-ый класс)
Отправлен: 04.01.2006, 17:30
Оценка за ответ: 5
Комментарий оценки:
как я поняла S-это секунды ,М-минуты,С-часы?!
Отвечает: sir henry
Здравствуйте, Alisa!
Может быть ее надо было оформить не в виде процедуры, а в виде функции? Чтобы возвращался результат? Вопрос непонятен. "По другому" - это как?
Пример 1 (функция):
Function SledSek((sec: word): word;
Begin
SledSek:=sec+1;
End;
Или аналог:
Function SledSek(sec: word): word;
Begin
Inc(sec);
SledSek:=sec;
End;
Тогда в основной программе Вы можете сразу же получать следующую секунду:
Program mmm;
var
Hour, Min, Secs, Secs100: word;

Function SledSek(sec: word): word;

Begin
{Получаем время}
GetTime(Hour, Min, Secs, Secs100);
{Выводим на экран следующую секунду}
WriteLn(SledSec(Secs));
End.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 05.01.2006, 08:30

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное