Перевод координат

Posted by maloy under Delphi, Архив

ax1d

Задача на перевод координат из декартовой системы координат в полярную и наоборот.
Вот из полярной в декартову

procedure TForm3.Button1Click(Sender: TObject);

var p1: pol;

d1: dec;

begin

if Labelededit1.Text='' then p1.r:=0

else p1.r:=StrToFloat(Labelededit1.Text) ;

if Labelededit2.Text='' then p1.fi:=0

else p1.fi:=StrToFloat(Labelededit2.Text );

pol2dec(p1,d1);

Label1.Caption:='x='+FloatToStr(d1. x)+'; y='+FloatToStr(d1.y);

end;

проблема вот в чем как исправить чтобы значение FI(это угол ) выводился в градусах!

Пепел Феникса

а сейчас он в радианах?

вот перевод из радиан в градусы

d{градусы будут}:=p1.fi{радианы}/PI*180; 

тема на форуме от 2009 года

Похожие статьи

• Разность двух полей Memo
• Координатный станок
• Бесконечное движение между двумя координатами по оси X
• Найти координаты высоты треугольника