Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2016, 23:02   #1
Ktoto2
 
Регистрация: 22.12.2016
Сообщений: 9
По умолчанию Изменение значения при нажатии клавиши

Привет, есть фрагмент программы " Ugol := 0; DUgol :=1*Pi/180; "
Как сделать так что-бы при нажатии кнопки Пробел значение "DUgol :=1*Pi/180;" изменялось на "DUgol := 0;" а когда нажимаешь Enter возвращалось обратно на "DUgol :=1*Pi/180;"
Ktoto2 вне форума Ответить с цитированием
Старый 15.01.2017, 12:47   #2
Дмитрий456
 
Регистрация: 19.09.2015
Сообщений: 9
По умолчанию

Код:
Program zadacha;
uses crt;
const Pi = 3.14;
var Ugol, DUgol:real;
    ch:char;
begin
clrscr;
Ugol := 0;
DUgol := 1*Pi/180;
repeat
  ch:=readkey;
    case ch of
      #13: DUgol :=1*Pi/180;
      #32: DUgol := 0;
    end;
  writeLn('Ответ: ',DUgol);
  writeLn('Для выхода нажмите Esc...');
until(ch = #27);
end.
Дмитрий456 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++ выход при нажатии клавиши Praud Помощь студентам 13 22.07.2013 17:28
Вызов формы при нажатии клавиши Veryn4ik1993 C# (си шарп) 2 11.03.2013 12:41
Событие при нажатии клавиши. werrey Общие вопросы Delphi 3 09.06.2011 21:33
завершение цикла при нажатии клавиши LLIyPI/IK Общие вопросы C/C++ 8 12.02.2010 13:29
Событие при нажатии клавиши Enter Inbox Общие вопросы Delphi 4 12.06.2007 14:18