Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 33 стр.

                                                                             33




(N+1) точек, причем координаты последней точки должны совпадать с
координатами первой точки.
      При рисовании произвольной ломаной незамкнутой линии, задается N
точек и столько же пар координат.
      KoorXY имеет предопределенный в модуле Graph тип PointType:
      Type
            PointType = Record
                        X, Y: Integer; { координаты точки}
                        End;
      Обычно набор точек реализуется как массив из записей PointType. Этот
массив должен быть заполнен данными до его использования в процедуре
рисования фигуры.
      Например, для рисования пятиугольника можно задать массив на 6 точек
(записей) в виде типизированной константы:
      Type
            T_Mas = Array [1..6] of PointType;
      Const
              Mas_Koord : T_Mas = ((x=50;y=50),(x=200;y=50),(x=400;y=200),
                                      (x=250;y=350),(x=150;y=200),(x=50;y=50));
      Begin
          {Инициализация графического режима}
          DrawPoly (6, Mas_Koord);
          ...
      End.
      Следующая программа демонстрирует процесс рисования различных фигур.

Uses graph;
Procedure Init_Graph_Mode;
  См. предыдущие программы
procedure kontur;
var dx,dy,dr:integer;
    color,i:word;
begin
  color:=6;     setcolor(color);
  dx:=0; dy:=0;
   { Рисование прямоугольников}
  for i:=1 to 5 do begin
  color:=color-1;
  dx:=dx+15; dy:=dy+10;
  rectangle(100-dx,100-dy,150+dx,160+dy);
   setcolor(color);
   end; readkey;
      { Рисование окружностей}
    color:=6; setcolor(color);
  dr:=0;
                                                                             33