Изменение значения при нажатии клавиши - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Привет, есть фрагмент программы " Ugol := 0; DUgol :=1*Pi/180; " Как сделать так что-бы при нажатии кнопки Пробел значение "DUgol :=1*Pi/180;" изменялось на "DUgol := 0;" а когда нажимаешь Enter возвращалось обратно на "DUgol :=1*Pi/180;"

Решение задачи: «Изменение значения при нажатии клавиши»

textual
Листинг программы
  1. uses
  2.   CRT;
  3. ...  
  4. var Ch : Char;
  5. ...
  6. begin
  7.   ...
  8.   Ch := ReadKey;
  9.   case Ch of
  10.     #32 : DUgol := 0;
  11.     #13 : DUgol := Pi / 180;
  12.   end;
  13.   ...
  14. end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для написания приложений под операционную систему Windows. В начале кода подключается библиотека CRT (Console Read/Write), которая позволяет работать с консолью. Далее объявляются переменные: Ch типа Char, которая будет хранить символ, нажатый клавишей, и DUgol типа Integer, которая будет хранить значение угла в градусах. Затем идет блок begin-end, внутри которого находится переменная Ch, которая считывается с помощью функции ReadKey. Далее происходит проверка значения переменной Ch с помощью оператора case. Если нажата клавиша с кодом 32 (Space), то значение переменной DUgol устанавливается равным 0. Если нажата клавиша с кодом 13 (Enter), то значение переменной DUgol устанавливается равным произведению числа Пи на 180. После блока case идет продолжение кода, который может содержать дополнительные операции с переменными. Таким образом, данный код позволяет изменять значение переменной DUgol в зависимости от нажатой клавиши.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.222 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы