Реализовать вывод данных с некоторой задержкой - PascalABC.NET
Формулировка задачи:
Как сделать так что бы в PascalABC.NET при выполнение программы в окне вывода результат некоторых действий не сразу появлялся?
То есть пример:
Появляется надпись"Привет"
а через некоторое время (которые мы обозначим) появится другая надпись...Спс за внимание=) Ответ если кто напишет напишите те пж понятным языком я в Паскале ток начал разбираться)
Решение задачи: «Реализовать вывод данных с некоторой задержкой»
textual
Листинг программы
uses timers; var t : Timer; procedure DoIt; begin writeln('Спасибо за внимание!'); t.Stop; end; begin t := Timer.Create(3000, DoIt); t.Start; writeln('Привет!'); // тут можно выполнять любые действия, при использовании Delay это невозможно... // через 3 секунды появится надпись, и таймер остановится... readln; end.
Объяснение кода листинга программы
- Используется модуль
timers
для работы с таймерами. - Создается переменная
t
типаTimer
. - Определяется процедура
DoIt
, которая будет выполняться по истечении времени. - В процедуре
DoIt
выводится сообщениеСпасибо за внимание!
. - Вызывается метод
Stop
для остановки таймера после выполнения процедурыDoIt
. - В основном блоке кода создается экземпляр таймера
t
с задержкой в 3000 миллисекунд (3 секунды). - Запускается таймер
t
. - Выводится сообщение
Привет!
. - Комментарий описывает возможность выполнения любых действий, но с использованием функции
Delay
это невозможно. - Через 3 секунды появится надпись и таймер остановится.
- В основном блоке кода добавлен вызов функции
readln
, чтобы программа ожидала ввода пользователя перед завершением. - Программа завершается.