Пример 8.1. Эта программа демонстрирует работу процедур управления текстовым выводом на экран дисплея.

Program ColorTable;
  Uses Crt; {подключение к программе библиотеки Crt}
  Const P = ' ';
  Var i, j : Integer; 
BEGIN
ClrScr; {очистка экрана}
Window(1, 1, 80, 7); {определение окна для заголовочной части таблицы}
TextColor(Yellow); {установка желтого цвета символов}
GoToXY(24, 1); WriteLn('ТЕКСТОВЫЙ ВЫВОД НА ЭКРАН ДИСПЛЕЯ');
GoToXY(30, 2); WriteLn('ТАБЛИЦА ЦВЕТНОСТИ');
TextColor(LightCyan); {установка яркоголубого цвета символов}
WriteLn('0-Черный ',P,'4-Красный ',P,'8-Темносерый ',P,'12-Розовый ');
WriteLn('1-Синий ',P,'5-Фиолетовый ',P,'9-Яркосиний ',P,'13-Малиновый ');
WriteLn('2-Зеленый ',P,'6-Коричневый ',P,'10-Яркозеленый ',P,'14-Желтый ');
Write ('3-Голубой ',P,'7-Светлосерый',P,'11-Яркоголубой',P,'15-Белый ');
TextColor(3+128); WriteLn(' i+128-Мерцание'); TextColor(White);
For i := 0 to 9 do {цикл по цветам фона таблицы цветности}
  begin
  Window(i*8+1, 7, i*8+8, 25); {oпределение окна для столбца таблицы}
  GoToXY(1, 1); {курсор в верхнем левом углу окна}
  TextBackGround(Black); {установка черного цвета фона}
  WriteLn(' Фон', i:2);
  WriteLn('----------');
  TextBackGround(i); {установка текущего цвета фона окна }
  For j := 0 to 15 do
  begin
  TextColor(j); {установка текущего цвета надписей в окне }
  WriteLn('цвет', j:2);
  end;
  end; NormVideo; ReadLn 
END.


Другие записи

10.06.2016. 8.2. Библиотека G R A P H
Библиотека (модуль) Graph содержит константы, процедуры  и функции для управления графическим режимом работы монитора. Константы цвета Black = 0; {Черный}  Blue = 1;   {Синий}  Green…
10.06.2016. Пример 8.11. Программа рисует прямоугольную систему координат, отображает в ней заданное множество точек и строит все возможные пары треугольников с вершинами в этом множестве такие, чтобы один треугольник лежал строго внутри другого.
Для работы программы необходимо предварительно создать в текущем каталоге текстовый файл dan.dat, содержащий координаты точек множества. Файл должен иметь структуру: x1  y1  x2  y2 ...  xn  yn , где…