Полярная система координат.
Положение точки, заданное в полярных координатах, определяется длинной полярного радиуса (RO) и ивеличиной полярного угла (Fi).
Ro=f(fi);
От этой зависимости можно перейти к определению декартовых координат:
X=Ro*COS(fi);
Y=Ro*SIN(fi);
Задача: построить архимедову спираль Ro=f(a*fi). Данные для ввода: а=3, fimin=0, fimax=50.
program polarn;
uses
crt,graph;
function
ro(a,fi:real):real;
begin
ro:=a*fi;задаем
функцию
end;
function
p1(ro,fi:real):real;
begin
p1:=ro*cos(fi);находим
x
end;
function
p2(ro,fi:real):real;
begin
p2:=ro*sin(fi);находим
y
end;
var
i,x,y,r:real;
fimax,fimin,a,b:word;
c,d:integer;
begin
clrscr;
writeln('введите
а');
readln(a);
writeln('введите минимальное значение fi');
readln(fimin);
writeln('введите максимальное значение fi');
readln(fimax);
initgraph(c,d,'');
i:=fimin;
while
i<fimax do begin
r:=ro(a,i);
x:=p1(r,i)+getmaxx/2;
y:=p2(r,i)+getmaxy/2;
putpixel(round(x),round(y),5);
i:=i+0.001
end;
readln;
closegraph;
end.