Вычисление по условию

@Natali7 · Регистрация: 14.02.2016

Author24 — интернет-сервис помощи студентам

Добрый день! Помогите, пожалуйста, разобраться в задании: необходимо создать проект, используя для каждого значения элементы TEdit (для отображения значения), в качестве значений выбрать координаты точки в декартовой и полярной системе координат, и элементы TLabel (для поясняющего текста), который позволял бы менять указанные значения так, что при каждом изменении пересчитывались бы другие значения по соответствующей формуле. Я написала вот такой код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var r,fi,x,y:real;
dx,dy:real;
begin
if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage ('Введены не все значения!')
else
begin
dx:=StrToInt(Edit1.Text);
dy:=StrToFloat(Edit2.text);
r:=sqrt(sqr(dx)+sqr(dy));
fi:=round(arctan(dy/dx)*180/pi);
x:=r*cos(fi);
y:=r*sin(fi);
Edit3.Text:=floattostrF(x,ffFixed,8,3);
Edit4.Text:=floattostrF(y,ffFixed,8,3);
end;
end;
end.

Но думаю, что он не совсем правильный. Что мне нужно исправить?
И нужно ли сделать так, чтобы мы могли перевести из декартовых в полярные, и наоборот?

@Nanotentacle · 29.10.2016, 17:52

Скиньте формулы перевода из одной системы в другую, проверим что там не так.

@Natali7 · 29.10.2016, 17:57 **[ТС]**

Спасибо Вам огромное! Вы-Чудо! Я уже нашла, где у меня ошибка! С Вами работать очень приятно! А главное это развивает себя, я сегодня очень много нового узнала для себя!

@Nanotentacle · 29.10.2016, 18:02

Если так - я рад. Моей главной целью и являлось, чтобы вы разобрались. Обращайтесь, если надо будет ещё что-то пояснить.

@Natali7 · 29.10.2016, 18:05 **[ТС]**

Хорошо)

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	29.10.2016, 17:52	21
	Скиньте формулы перевода из одной системы в другую, проверим что там не так. 0

@Natali7 0 / 0 / 0 Регистрация: 14.02.2016 Сообщений: 92
	29.10.2016, 17:57 [ТС]	22
	Спасибо Вам огромное! Вы-Чудо! Я уже нашла, где у меня ошибка! С Вами работать очень приятно! А главное это развивает себя, я сегодня очень много нового узнала для себя! 0

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	29.10.2016, 18:02	23
	Если так - я рад. Моей главной целью и являлось, чтобы вы разобрались. Обращайтесь, если надо будет ещё что-то пояснить. 1

@Natali7 0 / 0 / 0 Регистрация: 14.02.2016 Сообщений: 92
	29.10.2016, 18:05 [ТС]	24
	Хорошо) 0