Графика, Построить n-угольник и произвести с ним следующие манипуляции Опции

[$rvr4vr]

Построить n-угольник и произвести с ним следующие манипуляции:
А. Повернуть на x° по часовой стрелке.
В. Масштабировать рисунок в 2, 4, 6, 8 раз.

[volvo]

Вот так:

uses graph;

const
  n = 5;
  grads = 20;
type
  polar_pnt = record
    r: integer;
    phi: real;
  end;

var
  grDriver, grMode, ErrCode: Integer;
  center_x, center_y: integer;
  coord: array[1 .. n] of polar_pnt;
  pnt: PointType;

procedure convert(p: polar_pnt; var decart: PointType);
begin
  with p do begin
    decart.X := center_x + trunc(r * cos(phi));
    decart.Y := center_y - trunc(r * sin(phi));
  end;
end;

procedure show;
var
  i: integer;
  pnt: PointType;
begin
  for i := 1 to n do begin

    convert(coord[i], pnt);
    if i = 1 then moveto(pnt.X, pnt.Y)
    else lineto(pnt.X, pnt.Y);

    if i = n then begin
      convert(coord[1], pnt);
      lineto(pnt.X, pnt.Y);
    end

  end;
  readln;
  cleardevice;
end;

var i: integer;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '');
  ErrCode := GraphResult;
  if ErrCode <> grOk then begin
    Writeln('Graphics error:', GraphErrorMsg(ErrCode)); halt(100)
  end;

  center_x := getmaxx div 2; center_y := getmaxy div 2;
  for i := 1 to n do
    with coord[i] do begin
      r := 50;
      phi := pred(i) * (2 * Pi / n)
    end;
  show;

  { Увеличиваем масштаб в 2 раза }
  for i := 1 to n do
    coord[i].r := coord[i].r * 2;
  show;

  { Поворачиваем на угол 20 град. ПО часовой стрелке (угол полярной СК уменьшается) }
  for i := 1 to n do begin
    coord[i].phi := coord[i].phi - (grads * Pi / 180);
    if coord[i].phi < 0 then coord[i].phi := coord[i].phi + 2 * Pi;
  end;
  show;

  closegraph;

end.

(не забывай, что вся работа с тригонометрией - через углы в радианах, поэтому присутствует Pi)