Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Практика продвинутого программирования на Pascal _ Асинхронный ввод на Паскале

Автор: ag58 25.06.2013 20:01

Добрый день!
Научите как запрограммировать на Паскале:
Например, печатается какой-то символ бесконечно. Нажимается другой символ и начинает печататься нажатый символ.
То есть, при нажатии какого-то символа (в любое время) изменяется ход программы.
Заранее спасибо, Александр.


Автор: APAL 25.06.2013 22:11

Функция READKEY Вам в помощь:

Цитата
ReadKey (функция) (модуль Crt)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Читает символ из буфера клавиатуры.

Объявление:
Function ReadKey : Char;

Режим:
Windows, Real, Protected

Замечания:
Символ не отображается на экране.


{ReadKey.PAS}
 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 { Пример программы для функции ReadKey }

 Uses Сrt;

 Var C : Char;

 Begin
  WriteLn('Нажмите любую клавишу:');
  C:=Readkey;
  WriteLn('Вы нажали ', C, ', с кодом ASCII равным ', Ord©, '.');
 End.


Или еще пример:
...
Repeat
If KeyPressed then Ch:=ReadKey;
If Ch=#0 then Ch:=ReadKey; {проверка на функциональную клавишу (расширенный код)}
Write(Ch);
Until Ch=#27; {#27 - код нажатия ESC}
...