Добрый день!
Научите как запрограммировать на Паскале:
Например, печатается какой-то символ бесконечно. Нажимается другой символ и начинает печататься нажатый символ.
То есть, при нажатии какого-то символа (в любое время) изменяется ход программы.
Заранее спасибо, Александр.
Функция READKEY Вам в помощь:
{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}
...