модуль graph/не знаете почему?

[Sazary]

Сообщение от Desha

И что делать?

Насколько я знаю, во Free Pascal эта процедура работает корректно.

Еще вот такой вариант придумал:

uses crt,dos;
var h,m,s,ms : word;
s2,ms2 : word;

begin
clrscr;
gettime(h,m,s,ms);
while true do
 begin
 gettime(h,m,s2,ms2);
 if ((s2-s=1) or (abs(s2-s)=59)) and (abs(ms2-ms)<5) then
  break;
 end;
writeln('Proshla 1 sekunda');
readln;
end.

Погрешность в 5 миллисекунд (можно изменить в последнем условии if'а.

[Desha]

Sazary, спасибо за внимание.

[OCTAGRAM]

Как вариант, использовать часы из модуля DOS.

P. S. Всё, увидел

[capta1n]

ну или delay повторить несколько раз циклом

[Sazary]

Сообщение от capta1n

ну или delay повторить несколько раз циклом

И как вы с собираетесь с помощью цикла получить нужную задержку, если сама процедура 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;

Сообщение от Sazary

как вы с собираетесь с помощью цикла получить нужную задержку, если сама процедура delay работает непредсказуемо?

без комментариев...

[OCTAGRAM]

В Интернете нашёл MAX_CRT.

[capta1n]

пораскиньте извилиной, sazary

[Sazary]

Сообщение от capta1n

пораскиньте извилиной, sazary

Мне это расценивать как оскорбление?
Вам больше нечего сказать? Оно и заметно.