Записи о положении точки Опции

[Бина]

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

[P@sh@]

ох, еще бы вспомнить, как пересчитать координаты в полярную систему...
r:=sqrt(x*x+y*y);
a:=arctan(y/x);
вроде так... или нет ? в общем, подставишь нужные формулы туда:

Код

type
 xy=record x,y: real end;
 polar=record a,r: real end;
...
procedure XYtoPolar(var a,b);  { здесь а-массив типа xy, b - типа polar, размеры должны быть одинаковы }
var i: integer;
begin
 for i:=Low(a) to High(a) do
   with a[i] do begin
     b[i].a:=...
     b[i].r:=...
   end;
end;

[Бина]

А нельзя ли всю программу полностью, а то я не поняла: что просто добавить эту процедуру после ввода массива и все?