Помогите с записями

[Архат]

Надо:
создать записи, определяющие положение точки в декартовой и в полярной системе координат. Считая, что задан массив координат точек в декартовой системе координат, получить соответствующий массив координат заданных точек в полярной системе координат

[__STDC__]

и в чем проблема? =)
декартова это (x;y), полярная - расстояние от начала координат до точки + угол... если на плоскости..

***
формулы перехода от декартовой системы координат к полярной также общеизвестны...

[Архат]

Написать код не составит труда, но не знаю я эти формулы, хотя бы расскажите алгоритм пожалуйста

[__STDC__]

ну в полярной системе модуль расстояния равен корню из суммы квадратов координат в декартовой, а косинус угла координате x деленной на сумму квадратов координат (синус = y деленное на то же самое)

[Архат]

Вот так правильно?

для перехода от полярный к декартовым координатам:
x=ρ*cos(w), где w - это угол в градусах;
y=ρ*sin(w)
для перехода от декартовых к полярным:
ρ=sqrt(x2+y2)
w=arctg(y/x)

[__STDC__]

да, так правильно

***
правильно, если подразумевается что
x2 = sqr(x);
y2 = sqr(y);

[Архат]

Все написал, может кто нибудь проверит на правильность?

uses crt;
type sys=record
p,q,g:real;
x,y:integer;

end;

var a:array[1..1000] of sys;
i,n:integer;
begin  clrscr;
writeln('razmer');
readln(n);

for i:=1 to n do with a[i] do begin
writeln('vvedite x<>0');
readln(x);
writeln('vvedite y');
readln(y);
p:=sqrt(sqr(x)+sqr(y));
q:=arctan(y/x);
g:=q*180/pi;
end;
writeln('x':5,'y':5,'Радиус':10,'Угол в радианах':20,'Угол в градусах':20);
for i:=1 to n do with a[i] do
writeln(x:5,y:5,p:10:4,q:20:4,g:20:4);
end.