Program myprog1;
Uses Crt;
Var
x: Char;
Begin
x:=ReadKey; {Если до этого момента никакая клавиша не была нажата, то ReadKey ожидает нажати}
{Теперь, в зависимости от той или иной нажатой клавиши, выполняем определённые действия}
Case x of
'a': Begin
{Нажата клавиша a}
WriteLn('Нажата клавиша <a>');
WriteLn('Имитируем Abort...');
End;
'd': Begin
{Нажата клавиша d}
WriteLn('Нажата клавиша <d>');
Write('Имитируем бурную деятельность...');
End;
else
{Этот блок выполняется, если нажата любая другая клавиша кроме a и d.
Вставлять его желательно, т.к. люди часто ошибаются и им надо об ошибке сообщить.}
WriteLn('Эге! Про эту клавишу мы не договаривались - ', x);
End;
End.
Program myprog2;
Uses Crt;
Var
x: Char;
Begin
Repeat
x:=ReadKey;
WriteLn('Нажата клавиша - ', x);
Until x = #27;
WriteLn('Выход из программы...');
End.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.