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

                                                                            12




           Repeat
                  sym:=Readkey;
                  if sym <> #0 then Writeln(ord(sym))
                  else Writeln('0 ',ord(Readkey));
           Until sym = #27;
       End.

                           2.1.2 Управление звуком

     В модуль Crt включены три процедуры, позволяющие запрограммировать
последовательность звуков, что можно использовать для привлечения внимания в
определенных ситуациях при выполнении программы.
     Процедура Sound заставляет динамик звучать с заданной частотой:
     Procedure Sound(N);
     N - выражение типа Word, определяющее частоту звука в герцах.
     После обращения к процедуре включается динамик и выключить его можно
с помощью вызова процедуры без параметров Nosound.
     Процедура Delay(T) обеспечивает задержку работы программы на заданный
интервал времени Т (в миллисекундах), где Т - выражение типа Word,
     Для генерации звукового сигнала обычно используется вызов описанных
процедур по схеме Sound - Delay - Nosound.

          2.1.3 Управление выводом на экран в текстовом режиме

      Используемое в ПК устройство визуального отображения информации -
дисплей состоит из монитора (или экрана) и блока управления - адаптера.
Адаптер может работать в двух режимах: текстовом и графическом. Будем
рассматривать возможности модуля Crt для адаптеров типа CGA, EGA, VGA,
SVGA.
      В текстовом режиме можно задавать режимы, позволяющие изменять цвет
и число строк экрана (25, 43, 50) и позиций в строке (40 или 80).
      Для задания одного из возможных текстовых режимов используется
процедура: TextMode(Mode).
      Здесь Mode - код текстового режима, константа типа Word. В качестве Mode
могут использоваться следующие константы, определенные в модуле Crt:
      Const
            BW40 = 0; {Черно-белый режим 40 х 25}
            Co40 = 1; {Цветной режим 40 х 25}
            BW80 = 2; {Черно-белый режим 80 х 25}
            Co80 = 3; {Цветной режим 80 х 25}
            Font8x8 = 256;    {Используется для загружаемого шрифта в режиме
80 х 43 или 80 х 50 с адаптерами EGA или VGA}
      Код режима, установленного с помощью вызова процедуры Textmode,
запоминается в глобальной переменной модуля Crt - LastMode (тип Word) и
может использоваться для восстановления начального состояния экрана.
                                                                            12