Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 11 стр.

                                                                                 11




      Используя эти особенности можно очистить буфер ввода, задав в
   программе:
           Var symbol: char;
           While Keypressed do symbol:=Readkey;
      Следующий цикл организует процесс ожидания нажатия любой клавиши:
           Repeat   . . . Until Keypressed;

      Можно организовать процесс ожидания нажатия определенных клавиш,
   например, цифровых,: от 0 до 9, а затем в зависимости от того какая была
   введена цифра, произвести определенные действия.
            Uses crt;
              Var sym: char;
            Begin
                   Writeln(' Для выбора варианта нажмите клавишу от 0 до 9');
                   {Очиска буфера клавиатуры}
                           While Keypressed do sym:=Readkey;
                   Repeat
                          sym := Readkey;
                   Until (sym in ['0'..'9']); {Цикл закончится только в том случае,
                                     если будет нажата одна из цифровых клавиш}
                          {Обработка кода нажатой клавиши}
                   Case sym of
            '0': begin … end;
            '1': begin … end;
            '2': begin … end;
                   ...
            '9': begin … end;
                   End; {Case}
            End.
      При использовании процедуры Readkey в буфер клавиатуры помещаются
расширенные коды нажатых клавиш. Если нажимается любая алфавитно-
цифровая клавиша, расширенный код совпадает с ASCII-кодом соответствующего
символа. При нажатии функциональных клавиш F1…F10, клавиш управления
курсором, клавиш Insert, Home, Delete, End, Page Up, Page Down в буфер
помещается двухбайтная последовательность: сначала символ #0, а затем
расширенный код клавиши. Таким образом, значение #0, возвращаемое функцией
Readkey, используется для того, чтобы указать программе на генерацию
расширенного кода. Получив это значение, программа должна еще раз обратиться
к функции Readkey, чтобы прочитать расширенный код клавиши. Расширенные
коды клавиш можно посмотреть в книгах, с описанием языка Турбо Паскаль [1,2],
а можно воспользоваться простой программой, написанной на языке Турбо
Паскаль. Программа завершается при нажатии клавиши Esc.
      Uses Crt;
            Var sym:char;
        Begin
                                                                                 11