~~~
Реализовать в виде модуля набор подпрограмм для выполнения следующих операция над комплексными числами:
* сложения
* вычитания
* умножения
* деления
* вычисления модуля комплексного числа
* возведения комплексного числа в степень n
* комплексное число предоставить следующим типом:
type complex = record
re : real;
im : real;
end;
используя этот модуля решить данную задачу.
у меня есть(нарыл поиском тут ) :
Unit m_1369;
interface
uses crt;
type
complex = record
re, im: real
end;
var
Eps: real;
z, res:Complex;
implementation
{Функция для определения модуля комплексного числа}
function AbsComplex(z: Complex): real;
begin
AbsComplex := sqrt(sqr(z.re) + sqr(z. im))
end;
{Процедура сложения двух комплексных чисел}
procedure AddComplex(z1,z2: Complex; var res:Complex);
begin
res.re := z1.re + z2.re;
res.im := z1.im + z2.im;
end;
{процедура умножения двух комплексных чисел}
procedure Multicomplex(z1,z2: Complex; var res:Complex);
begin
res.re := z1.re * z2.re - z1.im * z2.im;
res.im := z1.re * z2.im - z1.im * z2.re
end;
{Процедура деления комплексного числа на вещественное}
procedure MultCoplToReal(var z:Complex; c:real);
begin
z.re := z.re * c;
z.im := z.im * c
end;
end.
как быть?