Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 98 стр.

GraphResult Возвращает значение GrOk, соответствующее коду 0, если все
графические операции программы выполнились без ошибок, или возвращает
числовой код ошибки (от —1 до —14).


               8.3. Примеры графических программ

Эти примеры иллюстрируют основные моменты, возникающие при
написании графических программ:

               ƒ   установку и закрытие графического режима;
               ƒ   задание графических окон;
               ƒ   вывод точек, линий, текста;
               ƒ   использование различных шрифтов;
               ƒ   установку цвета, палитры, типа штриховки;
               ƒ   построение графических фигур (прямоугольников,
                   многоугольников, дуг, окружностей, эллипсов, секторов);
               ƒ   простейшие приемы анимации и звукового оформления.

Даются окончательные подробно откомментированные тексты программ,
которые могут служить основой для программ читателя. Для их работы
необходимо наличие библиотечного файла GRAPH.TPU, драйвера
видеорежима EGAVGA.BGI (или другого, в зависимости от типа монитора)
и файлов шрифтов (*.chr).
Из-за недостатка места некоторые программы не содержат действий по
выдаче сообщений о возможных ошибках графики, хотя они очень важны.

 Пример 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