Меню программы - 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.

Объяснение кода листинга программы

  1. В начале кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
  2. Переменная ch типа char предназначена для хранения символа, введенного пользователем.
  3. В цикле repeat происходит ожидание ввода пользователя до тех пор, пока не будет нажата клавиша с определенным символом.
  4. Если пользователь нажимает клавишу '1', то в консоль записывается число 1.
  5. Если пользователь нажимает клавишу '2', то в консоль записывается число 2.
  6. Если пользователь нажимает клавишу '3', то в консоль записывается число 3.
  7. Если пользователь нажимает клавишу '4', то в консоль записывается число 4.
  8. Если пользователь нажимает клавишу #27 (это ASCII-код символа 'Ctrl+Space'), то цикл прерывается и программа завершается.
  9. Конец программы.

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы