[nickname]

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

[lmikle]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;