Меню программы - 1 обработчик реагирует на все клавиши - Turbo Pascal
Формулировка задачи:
Решил замутить в Паскаль игру. Работаю с меню, но на удивление, не срабатывает обработчик клавиш
Где ошибка?
Решение задачи: «Меню программы - 1 обработчик реагирует на все клавиши»
textual
Листинг программы
uses crt; var ch:char; begin repeat if keypressed then begin ch:= readkey; if ch= '1' then write(1){...}; if ch= '2' then write(2){...}; if ch= '3' then write(3){...}; if ch= '4' then write(4){...}; if ch = #27 then exit; end; until ch=#27; end.
Объяснение кода листинга программы
- В начале кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
- Переменная ch типа char предназначена для хранения символа, введенного пользователем.
- В цикле repeat происходит ожидание ввода пользователя до тех пор, пока не будет нажата клавиша с определенным символом.
- Если пользователь нажимает клавишу '1', то в консоль записывается число 1.
- Если пользователь нажимает клавишу '2', то в консоль записывается число 2.
- Если пользователь нажимает клавишу '3', то в консоль записывается число 3.
- Если пользователь нажимает клавишу '4', то в консоль записывается число 4.
- Если пользователь нажимает клавишу #27 (это ASCII-код символа 'Ctrl+Space'), то цикл прерывается и программа завершается.
- Конец программы.