[nickname]

прога по переводу системы счисления из одной в другую, нужно чтобы переводилась и из полярн в декартову и обратно, одно уже есть, нужно сделать чтобы обратно было
помогите плиз
http://depositfiles.com/files/fqq5jnmo7

[lmikle]

Идем сюда:
http://ru.wikipedia.org/wiki/%D0%9F%...BD%D0%B0%D1%82

Здесь готовые уравнения для перехода, только подставляй значения.

Т.е. (для плоскости):

Код:

uses Math;

// F - в радианах
procedure PolarToDec(P,F : Extended; var X,Y : Extended);
begin
  X := P * cos(F);
  Y := P * sin(F);
end;

// F - в радианах
procedure DecToPolar(X,Y : Extended; var P,F : Extended);
begin
  P := Sqrt(sqr(X) + sqr(Y));
  F := arccos(X / P);
end;