Вычислить полярные координаты трех точек - Free Pascal

Формулировка задачи:

Три точки заданы своими декартовыми координатами a={1;2}, b={1,2;1}, c={-3; -4}. Вычислить полярные координаты этих точек. Полярный радиус r и полярный угол вычисляются по формулам: ,

Решение задачи: «Вычислить полярные координаты трех точек»

Листинг программы

var
  xa,xb:real;
  ro,phi:real;
 
procedure PolyCoord(x,y: real; var r,fi: real);
begin
   r:=sqrt(sqr(x)+sqr(y));
   fi:=arctan(x/y);
end;
 
begin
  writeln('1-я точка:');
  xa:=1;
  xb:=2;
  PolyCoord(xa,xb,ro,phi);
  writeln('Радиус: ',ro:8:2,', угол: ',phi:8:2);
  writeln('2-я точка:');
  xa:=1.2;
  xb:=1;
  PolyCoord(xa,xb,ro,phi);
  writeln('Радиус: ',ro:8:2,', угол: ',phi:8:2);
  writeln('3-я точка:');
  xa:=-3;
  xb:=-4;
  PolyCoord(xa,xb,ro,phi);
  writeln('Радиус: ',ro:8:2,', угол: ',phi:8:2);
  readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Free Pascal. Список действий, выполняемых в коде:

Объявление переменных:
- xa, xb: real; - для хранения абсцисс точек;
- ro, fi: real; - для хранения радиуса и угла в полярных координатах.
Определение процедуры PolyCoord:
- Принимает два аргумента типа real (x, y) - координаты точки в декартовой системе координат;
- и два аргумента типа var real (r, fi) - для хранения вычисленных значений радиуса и угла. Внутри процедуры происходит вычисление радиуса и угла по формулам:
- r := sqrt(sqr(x) + sqr(y)); - вычисление квадратного корня суммы квадратов абсциссы и ординаты точки;
- fi := arctan(x/y); - вычисление арктангенса отношения абсциссы к ординате точки.
Начало выполнения программы:
- Вывод информации о первой точке;
- Вызов процедуры PolyCoord с координатами первой точки (1, 2);
- Вывод информации о второй точке;
- Вызов процедуры PolyCoord с координатами второй точки (1.2, 1);
- Вывод информации о третьей точке;
- Вызов процедуры PolyCoord с координатами третьей точки (-3, -4);
- Чтение символа для завершения работы программы. Таким образом, данный код вычисляет полярные координаты трех точек и выводит их на экран.