Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 27 стр.

                                                          Окончание табл. 9

                  1                      2                  3
            Темно-серый                  8              DarkGray
            Светло-синий                9               LightBlue
           Светло-зеленый               10             LightGreen
       Светлый морской волны            11             LightCyan
          Светло-красный                12              LightRed
         Светло-фиолетовый              13            LightMagenta
              Желтый                    14               Yellow
               Белый                    15                White

    Для изменения цвета символов используется процедура TextColor – цвет
текста, имеющая следующий вид:
    TextColor(< цвет >).
    В качестве параметра «цвет» можно использовать код цвета (0 ÷ 15) или
именованную константу. Для всех возможных цветов в модуле CRT описаны
константы.
    Обратим внимание на то, что процедура TextColor устанавливает цвет
только тех символов, которые будут выводиться после ее выполнения. Сим-
волы, уже находящиеся на экране, сохранят свой цвет.
    Вторая цветовая характеристика выводимого на экран текста – текущий
цвет фона. Для изменения текущего цвета фона используется процедура
TextBackground (англ.) – фон текста, имеющая следующий вид:
    TextBackground (< номер цвета >);
    Для цвета фона могут использоваться первые восемь цветов (0 ÷ 7) из 16
доступных в текстовом режиме.

    Задача 5
    Вывести на экран дисплея на светло-сером фоне красными буквами текст
«Goodbye!».
    Рrogram Lab2_5;
    Uses CRT;
    Begin
      ClrScr;
         TextColor(Red);
         TextBackGround(LigtCray);
         Writeln (‘Goodbye!’);
    ReadKey;
    End.

    Задача 6
    Названия пунктов меню вывести на синем фоне светло-серым цветом,
а номера пунктов меню – ярко-белым цветом.

                                   27