рекам библиотека некой грека отсека человека века аптека чека опека калека веко абрека сверхчеловека дека ипотека узбека трека картотека имярека лесосека ацтека чебурека парсека лекарь библиотекарь эсдека библиотекарш аптекарь молекул пекарь стрекот стека дровосека сусека хека засека получеловека штрека екать покумекать аптекарш макромолекул узбекской экой экскурс кукарекать кумекать млеко нардека мерекать мекать прокукарекать стекой лекарств метека насека обезьяночеловека секанс парапитека лека лекарш спардека леком леков косеканс килопарсека килограмм-молекул квартердека сферотека твиндека кипсека кинотека пека фототека игротека фонотека закукарекать раскумекать инструментотека фильмотека дриопитека дрека деков чурека шебека грамм-молекул глиптотека велотрека пинакотека штаб-лекарь беков арксеканс арккосеканс подпекарь подсека рамфотека австралопитека бека подлекарь вадемекум шнеков шельтердека шнека ссека. на что фантазии хватило)
uses graphABC;
procedure arh(x0,y0,a,m,n:integer);
var f,r,x,y:real;
begin
f:=0;
while f<=m*pi do
r:=a*f;
x:=r*cos(f);
y:=r*sin(f);
if f=0 then moveto(x0+round(x),y0-round(y))
else lineto(x0+round(x),y0-round(y));
f:=f+0.01;
end;
line(x0-round(r),y0,x0+round(r),y0);
line(x0,y0-round(r),x0,y0+round(r));
textout(x0-50,y0-round(r)-20,'a='+inttostr(a)+' m='+inttostr(m));
var a,n,m:integer;
arh(100,100,4,1,1);
arh(400,100,6,4,1);
arh(100,300,2,10,1);
arh(400,300,3,12,1);
end.
рекам библиотека некой грека отсека человека века аптека чека опека калека веко абрека сверхчеловека дека ипотека узбека трека картотека имярека лесосека ацтека чебурека парсека лекарь библиотекарь эсдека библиотекарш аптекарь молекул пекарь стрекот стека дровосека сусека хека засека получеловека штрека екать покумекать аптекарш макромолекул узбекской экой экскурс кукарекать кумекать млеко нардека мерекать мекать прокукарекать стекой лекарств метека насека обезьяночеловека секанс парапитека лека лекарш спардека леком леков косеканс килопарсека килограмм-молекул квартердека сферотека твиндека кипсека кинотека пека фототека игротека фонотека закукарекать раскумекать инструментотека фильмотека дриопитека дрека деков чурека шебека грамм-молекул глиптотека велотрека пинакотека штаб-лекарь беков арксеканс арккосеканс подпекарь подсека рамфотека австралопитека бека подлекарь вадемекум шнеков шельтердека шнека ссека. на что фантазии хватило)
uses graphABC;
procedure arh(x0,y0,a,m,n:integer);
var f,r,x,y:real;
begin
f:=0;
while f<=m*pi do
begin
r:=a*f;
x:=r*cos(f);
y:=r*sin(f);
if f=0 then moveto(x0+round(x),y0-round(y))
else lineto(x0+round(x),y0-round(y));
f:=f+0.01;
end;
line(x0-round(r),y0,x0+round(r),y0);
line(x0,y0-round(r),x0,y0+round(r));
textout(x0-50,y0-round(r)-20,'a='+inttostr(a)+' m='+inttostr(m));
end;
var a,n,m:integer;
begin
arh(100,100,4,1,1);
arh(400,100,6,4,1);
arh(100,300,2,10,1);
arh(400,300,3,12,1);
end.