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





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.

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

10.06.2016. 8.2. Библиотека G R A P H
Библиотека (модуль) Graph содержит константы, процедуры  и функции для управления графическим режимом работы монитора. Константы цвета Black = 0; {Черный}  Blue = 1;   {Синий}  Green…
10.06.2016. Пример 8.1. Эта программа демонстрирует работу процедур управления текстовым выводом на экран дисплея.
Program ColorTable;   Uses Crt; {подключение к программе библиотеки Crt}   Const P = ' ';   Var i, j : Integer;  BEGIN ClrScr; {очистка экрана} Window(1, 1, 80, 7); {определение окна для заголовочной…
10.06.2016. Пример 8.2. Эта программа демонстрирует возможности изображения линий в графическом режиме.
Program Lines;    Uses Graph, Crt; {подключение к программе библиотек Crt и Graph}    Var    Key   : Char;    LineStyle   : Word; {номер стиля рисования линии}    Style …
10.06.2016. Пример 8.3. Эта программа демонстрирует возможности изображения символов в графическом режиме (требует наличия в текущем каталоге файлов шрифтов *.chr).
Program Symbols;    Uses Graph, Crt; {подключение к программе библиотек Crt и Graph}    Var    Key   : Char;    Font : String; {названия шрифтов }    Size, MyFont …
10.06.2016. Пример 8.4. Эта программа рисует закрашенный прямоугольник, меняя случайным образом цвет, тип штриховки и высоту тона звукового сопровождения.
Program MusicColor;    Uses Crt, Graph; {подключение к программе библиотек Crt и Graph}    Var    GrDriver, GrMode: Integer; {тип и режим работы графического драйвера}  BEGIN    GrDriver := Detect;…