Как сделать задержку в паскале abc
Сообщение от D61C76h
Программа простая. Вот держи код:
var x0,y0,x1,y1,x2,y2,x,y,d0,d1,d2:Real; begin Writeln('Vvedite koordinati 1 vershini: '); Readln(x0,y0); Writeln('Vvedite koordinati 2 vershini: '); Readln(x1,y1); Writeln('Vvedite koordinati 3 vershini: '); Readln(x2,y2); Writeln('Vvedite koordinati tochki: '); Readln(x,y); d0:=((y0-y1)*x+(x1-x0)*y+(x0*y1-x1*y0))/sqrt(Sqr(x1-x0)+sqr(y1-y0)); d1:=((y1-y2)*x+(x2-x1)*y+(x1*y2-x2*y1))/sqrt(Sqr(x2-x1)+sqr(y2-y1)); d2:=((y2-y0)*x+(x0-x2)*y+(x2*y0-x0*y2))/sqrt(Sqr(x0-x2)+sqr(y0-y2)); if d0 < d1 then if d0 < d2 then Writeln('Pryamaya iz tochek 1,2: ', d0) else Writeln('Pryamaya iz tochek 2,3: ', d2) else if d1 < d2 then Writeln('Pryamaya iz tochek 2,3: ', d1) else Writeln('Pryamaya iz tochek 1,3: ', d2); Readln; end.Друг, не работает, как надо! Выдает иногда отрицательное число вообще, даже если внутри треугольнику точка взята. Да дело даже не в этом - учитель сказал, что она лично делала через формулу полупериметров, как-то выражала. Ну это уже чистая геометрия пошла=)
Как сделать задержку в паскале abc
Параметр MS - число миллисекунд.
Время, на которое процедура Delay задерживает выполнение программы является приближенным значением параметра MS, так что задержка не будет длиться ровно MS миллисекунд.
Например, Delay(1000) не будет задерживать программу ровно на 1 секунду.
Известные проблемы
В фирменных версиях Turbo Pascal на современных компьютерах может возникать ошибка 200: деление на ноль , поэтому популярны патчи, устраняющие эту проблему. Самый популярный патч устраняет ошибку 200 , но при этом создаёт другую проблему: длительность Delay сильно уменьшается, непредсказуемо, причём. Большинство патчей различаются в том, как именно пропатчена процедура Delay. Помимо самого популярного патча есть и другие, увеличивающие разрядность счётчика. Попытка хороша, но работает это только в настоящей однозадачной среде DOS, а в среде Windows использовать на 100% процессор — не нормально, к тому же, процессорное время, выделенное конкретной программе, может отличаться при разной нагрузке.
В School Pak из множества вариантов был выбран такой, который ориентируется только на системное время и при этом пытается разгрузить процессор во время ожидания. Это работает и в NTVDM , и в School Pak . В обычном DOSBox длительность Delay в пропатченных программах не изменяется, но процессор загружен, поэтому специально для School Pak был написан резидент IDLE.COM, разгружающий процессор во время простоев (а это основное состояние интерактивных программ).
Скачать пропатченный CRT.TPU
CRT.TPU обычно находится внутри библиотеки TURBO.TPL. При большом желании вы можете извлекать и помещать обратно модули .TPU с помощью утилиты TPUMOVER. Мы, однако, решили не плодить путаницу и предоставляем для скачивания только TURBO.TPL целиком.
См. также
Пример
Язык:
Русский
English
Пример использования таймера
Данная программа выводит 1 каждые 100 миллисекунд в течение 3 секунд:
uses Timers; procedure TimerProc; begin write(1); end; begin var t := new Timer(100,TimerProc); t.Start; Sleep(3000); end. Вызов Sleep здесь обязателен, иначе программа после создания таймера сразу закончится, и обработчик таймера ни разу не сработает.
как сделать задержку/таймер в паскаль АВС? pascal abc
нужно сделать программу с зацикливанием в которой каждую секунду к переменной будет прибавлятся 1 и достигнув определенного значения, значение переменной скидывается до нуля и после этого следует пауза в три секунды и таймер идет заного
Как писали на многих форумах пробовал delay но не судьба видать (пример в фото)
Так же хочу сказать что информация по поводу сброса значения на определенной величине не нужна интересует только то как сделать задержку в определенный отрезок времени перед дальнейшим выполнением последующих операторов
Лучший ответ
Остальные ответы
где uses добавь запятую и напиши crt - console run time
позволит использовать следующие команды.
delay(число);
clrscr; очистка экрана.
соня лисионкаваУченик (97) 2 года назад
твой сраный crt с graphabc не работает
Илья777™ Мастер (1831) соня лисионкава, боже деффки всегда такие туговатые?