Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 110 стр.

                         ЛАБОРАТОРНАЯ РАБОТА N 15
           Тема: "Введение в построение человеко-машинного интерфейса"
Цель работы
Научиться корректно вводить исходную информацию и отображать выходную.
Краткие сведения из теории
В практическом программировании сложились определенные принципы организации ввода
и вывода данных. Эти принципы позволяют разработать систему ввода и вывода в виде
дружественного диалога пользователя с компьютером.
Для создания дружественного человеко-машинного       интерфейса удобно использовать
стандартный модуль CRT интегрированной Среды Турбо-Паскаля.
Данный модуль предоставляет готовые к использованию процедуры и функции для работы с
клавиатурой, экраном в текстовом режиме и динамиком.
15.1. Функции CRT для клавиатуры
В модуле CRT существуют две функции ReadKey и KeyPressed, предназначенные для
работы с клавиатурой.
Функция ReadKey возвращает символ, введенный с клавиатуры.
Синтаксис:
      ReadKey : Char;
Пример.
Uses Crt;
Var
      Ch : Char;
begin
      WriteLn('Нажмите клавишу');
      Ch := ReadKey; {считали код клавиши}
      if Ch = #0 then {нажата функциональная клавиша?}
             begin {да}
                     Ch := ReadKey; {чтобы получить код функциональной клавиши,
                                     необходимо повторить чтение}
                     WriteLn('Вы нажали функциональную клавишу с кодом = ', Оrd(Ch));
             end
      else {нет}
             WriteLn('Вы нажали клавишу с ASCII кодом = ', Ord(Ch));
end.
Примечание. Все модули подключаются к программе с помощью предложения USES.
Функция KeyPressed отвечает на вопрос: "Была ли нажата какая-либо клавиша?".
Синтаксис:
      KeyPressed: Boolean.
Функция возвращает значение TRUE, если клавиша была нажата, FALSE - если нет.
Пример.
Uses Crt;
Begin
      repeat
             {Экран заполняется до тех пор, пока не нажата клавиша}
             Write('Xx');
      until KeyPressed;
End.
15.2. Процедуры CRT для текстового экрана


                                                                                 110