Построить n-угольник и произвести с ним следующие манипуляции:
А. Повернуть на x° по часовой стрелке.
В. Масштабировать рисунок в 2, 4, 6, 8 раз.
Var
coords: array[1 .. n] of record
R: integer;
phi: real;
end;
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.