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

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

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

Код к задаче: «Изменение значения при нажатии клавиши - Turbo Pascal»

textual
uses
  CRT;
...  
var Ch : Char;
...
begin
  ...
  Ch := ReadKey;
  case Ch of
    #32 : DUgol := 0;
    #13 : DUgol := Pi / 180;
  end;
  ...
end.

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


СОХРАНИТЬ ССЫЛКУ