Рекурсивное разбиение прямоугольной области правильным n-угольником

[stimsa]

Имеется алгоритмический язык.Помогите реализовать на паскале.

алг RectangleDraw(арг цел Current_It,int Count_It, арг вещ Radius, Xc, Yc, арг цел n)
нач
цел i;
если Current_It = Count_It то
Count1:= Count1+1;
если (Xc - Radius >= Xm и Xc + Radius <= XM и Yc - Radius >= Ym и Yc + Radius <=YM ) то
нц для i от 0 до n
Coord[i].x:=IX(Xc + Radius*cos(i*2*M_PI/n))
Coord[i].y:=IY(Yc + Radius*sin(i*2*M_PI/n))
кц
Coord[n]:=Coord[0]
Polygon(Coord,n+1)
все
иначе
нц для i от 0 до n
RectangleDraw (Current_It+1, Count_It, Radius/2., Xc+Radius/2. *cos(i*2*M_PI/n),Yc +Radius/2.*sin(i*2*M_PI/n),n)
 
RectangleDraw (Current_It+1,Count_It, Radius/2.,Xc, Yc, n)
кц
все
кон
 
алг RunProcess
нач
цел j, NumberG, IterNo, Xm, Ym, XM, YM;
 
вещ Radius, Xc, Yc;
Radius:= sqrt(pow(XM - Xm,2)+pow(YM - Ym,2))/2.;
Xc = Xm+(XM - Xm)/2.
Yc = Ym+(YM - Ym)/2.;
 
нц для j от 1 до IterNo
RectangleDraw(1,j,Radius,Xc,Yc, NumberG)
кц
кон
Iax=(double)(right - top -10)/(MaxX - MinX);
Ibx=(double)(right -5 - Iax*MaxX);
Iay=(double)(bottom - top -10)/(MinY - MaxY);
Iby=(double)(bottom -5 - Iay*MinY);
 
 
IX(double x) Iax*x+Ibx+0.5;
IY(double y) Iay*y+Iby+0.5

[Летучий_СкилетиК]

Имеется алгоритмический язык.Помогите реализовать на паскале.

что вы имеете в виду?

[evg_m]

алг procedure RectangleDraw
(арг цел Current_It :integer:integer,;int Count_It, арг вещ Radius:real,; Xc, Yc, арг цел n)

еслиif Current_It = Count_It то then begin

всеend
иначе else begin


нц дляfor i от:= 0 до to n begin|
Coord[i].x:=IX(Xc + Radius*cos(i*2*M_PI/n))
Coord[i].y:=IY(Yc + Radius*sin(i*2*M_PI/n))
кц
end

и and
и расставить скобки () в
если ( (Xc - Radius)>= Xm и Xc + Radius <= XM и Yc - Radius >= Ym и Yc + Radius <=YM ) то