Процедура преобразующая координаты точки плоскости из декартовых в полярные

@Jebvo · Регистрация: 22.01.2017

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

Здравствуйте, помогите с задачей, пожалуйста:

Delphi

1 2	type декарт = record x,y: real end; поляр = record r,fi: real end;

(r>=0; –π<fi<=π)
Описать процедуры: ДП(d, p), преобразующую координаты точки плоскости из декартовых d в полярные p, и ПД(p,d), выполняющую обратное преобразование.

Заранее спасибо за помощь!

@Matan! · 23.12.2018, 22:02

Например, так:

Delphi

// uses Math;
procedure DecartToPolar(x, y, r, phi);
begin
  r := Sqrt(x*x + y*y);
  phi := ArcTan2(y, x); 
end;
 
procedure PolarToDecart(r, phi, x, y);
begin
  x := r * Cos(phi);
  y := r * Sin(phi); 
end;

	23.12.2018, 22:02

Процедура преобразующая координаты точки плоскости из декартовых в полярные

Решение