Как написать процедуру по переводу комплексного числа из показательной формы в алгебраическую?

Question

[kan3k1k3n]

я написал программу по переводу комплексного числа из показательной формы в алгебраическую:

var a1,b1,rez1,x,y: real;
procedure ConvertComplexNumber(a, b: real; var x, y, rez: real);
begin
    x := a*cos(b); 
    y := a*sin(b);
    rez:= x+y;
end;
begin
  writeln('введите первое число: ');
  readln(a1);
  writeln('введите второе число: ');
  readln(b1);
  ConvertComplexNumber(a1,b1,rez1,x,y);
  writeln(rez1);
end.

но у меня почему-то выдает только первый результат (x := a*cos(b))
как сделать так, чтобы программа выводила сумму x и y?

Comments

[alexalexes]

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

Вообще-то, входные параметры должны быть:
- значение модуля комплексного числа;
- значение фазы комплексного числа;
выходные переменные должны быть:
- значение действительной части комплексного числа;
- значение мнимой части комплексного числа.
Выходные значения нельзя складывать вместе - это разные характеристики числа, хоть эти части и записаны на бумаге через плюс. Грубо говоря, у них разная размерность. В программе их нужно получить именно двумя отдельными скалярными значениями.

Answer 1

[Rsa97]

Во-первых, перепутан порядок аргументов функции.
Во-вторых, комплексное число - это не простая сумма двух величин. Мнимая часть должна быть умножена на корень квадратный из минус единицы, обозначаемый в математике как i.

Comments

[kan3k1k3n]

а каков правильный порядок аргументов?

[Lynn «Кофеман»]

kan3k1k3n, спросите у того, у кого вы списали этот код.