Задержка на Pascal

[gluik]

помогите написать процедуру которaя делает задержку в секундах (минимум 0.01)

[MOTOCoder]

А чем Delay не устраивает?

[C_O_D_E]

DELAY неустраивает скорее всего отсутствием модуля CRT в USES'aх

[MOTOCoder]

DELAY неустраивает скорее всего отсутствием модуля CRT в USES'aх

Да вот в том то и вопрос - то ли человек не знает такой процедуры, то ли все задание в том и состоит, чтобы её написать.

[C_O_D_E]

MOTOCoder, мы забыли, что нужно еще высчитать задержку, и передать ее в качестве параметра.

[MOTOCoder]

MOTOCoder, мы забыли, что нужно еще высчитать задержку, и передать ее в качестве параметра.

В смысле перевести секунды в миллисекунды?
Врядли все так просто...

[Medved]

Процедура Delay вообще странно себя ведёт. На некоторых компах delay(100) это 0.1 с, на некоторых 1 с...

[MOTOCoder]

Да, есть такое дело...
С современными компами Delay не дружит.

Да и вообще, эта задача попахивает работой с прерываниями...

[Serge_Bliznykov]

тогда можно вот так (точности отсчёта времени НЕТ!! причём, чем меньше время паузы, тем больше погрешность!!!!!!! - за счёт вычислений в теле процедуры!):

Код: Выделить всё

procedure MyDelay(HundSecond : longInt);
var
  Ticks      : LongInt  absolute 0:$46c;
begin
  HundSecond:=round(HundSecond * 0.185) +Ticks;
  repeat  until (Ticks>HundSecond);
end;

p.s. время задаётся в сотых секунды (т.е. 0.01 с ~= MyDelay(1) )

Добавлено
пока писал, обсуждение вона куда уже дошло - до прерываний.. так, глядишь и до программирования таймера высокой точности дойти может ;-)

[Хыиуду]

А не проще получить текущее время, сохранить его и потом ничего не делать, пока текущее время не превысит сохраненное плюс время задержки?
Тему переименовал