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

      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.
  Пример 8.2. Эта программа демонстрирует возможности изображения
                      линий в графическом режиме.




  Внимание: будет работать только если Turbo Pascal установлен в каталог
   C:\TP и каталог C:\TP\BGI содержит необходимый файл egavga.bgi.
Program Lines;
  Uses Graph, Crt; {подключение к программе библиотек Crt и Graph}
  Var
    Key              : Char;
    LineStyle        : Word; {номер стиля рисования линии}
    Style            : String; {название стиля }
    GrDriver, GrMode : Integer; {тип и режим работы графического драйвера}
    GrError          : Integer; {код ошибки графики}
BEGIN
  GrDriver := Detect; {автоопределение типа графического драйвера}
  InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {установка графического режима}
  GrError := GraphResult;
  If GrError<>GrOk then begin Writeln('Обнаружена ошибка!'); Halt
                        end;
  SetBkColor(LightGray); SetColor(Red); {цвет фона и цвет рисования }
  {------------------------------------------------------------}
  OutTextXY(120, 100, 'Рисуем линию от точки (200,200) к точке (400,280)');
  Line(200, 200, 400, 280);
  Key:=ReadKey; {приостановление исполнения программы}
  ClearViewPort; {очистка окна}
  {-----------------------------------------------------------}
  OutTextXY(240, 80, 'Рисуем ломанную');
  Rectangle(110, 120, 520, 400); {рисование рамки }
  MoveTo(Round(GetMaxX/2), Round(GetMaxY/2)); {указатель в центре окна}
  Repeat {цикл прерывается нажатием любой клавиши}
    LineTo(Random(GetMaxX-250)+120, Random(GetMaxY-210)+120);
    Delay(100);
  until KeyPressed;
  Key := ReadKey; ClearViewPort;
  {-----------------------------------------------------------}
  OutTextXY(190, 80, 'Mеняем стили рисования линий');
  For LineStyle := 0 to 3 do