Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Апр

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

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 года

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:

Последние записи

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

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

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru