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

END.
   Пример 8.5. Эта программа рисует на экране звезду и закрашивает её,
                     используя 12 типов штриховки.




  Внимание: будет работать только если Turbo Pascal установлен в каталог
   C:\TP и каталог C:\TP\BGI содержит необходимый файл egavga.bgi.
Program Star;
  Uses Crt, Graph;
       {подключение к программе библиотек Crt и Graph}
  Const { массив координат вершин многоугольника (звезды) }
    TopsStar: Array[1..18] of Integer = (300, 125, 325, 225, 425, 250,
          325, 275, 300, 375, 275, 275, 180, 250, 275, 225, 300, 125);
  Var
    i, j, GrDriver, GrMode : Integer;
BEGIN
  GrDriver := Detect;
  InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {установка графического режима}
  SetTextStyle(DefaultFont, HorizDir, 2); {установка шрифта,
                                           направления и размера символов}
  OutTextXY(220, 60, 'S T A R ');
  SetTextStyle(DefaultFont, VertDir, 2);
  OutTextXY(140, 150, 'S T A R ');
  SetTextStyle(DefaultFont, VertDir, 2);
  OutTextXY(500, 150, 'S T A R ');
  i:=0;
  Repeat
    j:=i mod 12; { j - остаток от деления i на 12 }
    SetFillStyle(j, Random(13)); { штриховка и фон }
    FillPoly(9, TopsStar); {рисование и штриховка звезды}
    Inc(i); {увеличение i на 1}
    Delay(500)
  until KeyPressed; {завершение цикла нажатием любой клавиши}
  CloseGraph
END.
   Пример 8.6. Программа демонстрирует получение эффекта движения
  изображения прицела под управлением клавишей-стрелок клавиатуры с
                   выводом координат центра прицела.