Программа рисует на экране звезду и закрашивает её, используя 12 типов штриховки — Pascal(Паскаль)

{        Внимание! Для работы этой программы необходимо, чтобы:

          1) Turbo Pascal был установлен в каталог  C:\TP;
          2) каталог C:\TP\BGI содержал файл  egavga.bgi ;
          3) в меню  Options/Directories  был указан путь
             к файлу  graph.tpu,  например,  С:\TP\UNITS.

        Если Turbo Pascal установлен в другом каталоге, нужно изменить
        путь к нему в процедуре  InitGraph  (9-я строка программы).
}

 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.

Leave a Comment

+ 28 = 33