Модули позьзователя

[Sonne_asja]

Створити модуль що реалізує арифметку комплексних чисел. Використати його для обчислення виразу з комплексними числами.

нехай sqr(i)=-1;
якщо z1=a+bi, z2=c+di тоді:
1)z1+z2 = (a+bi)+(c+di)=(a+c)+(b+d)i;
2)z1-z2 = (a+bi)-(c+di)=(a-c)+(b-d)i;
3)z1z2=(a+bi)(c+di)=(ac-bd)+(ad+bc)i;
4)z1\z2=(a+bi)\(c+di)=(ac+bd)\(c^2+ d^2)+((bc-ad)\(c^2+d^2))i

[Mad_Cat]

язык какой7

{delphi/pascal}
type Tcomplex=record
 d:real;
 m:real;
end;

function SumComplex(a,b:Tcomplex):Tcomplex;
var c:Tcomplex;
begin
c.d:=a.d+b.d;
c.m:=a.m+b.m;
SumComplex:=c;
end;
function DifComplex(a,b:Tcomplex):Tcomplex;
var c:Tcomplex;
begin
c.d:=a.d-b.d;
c.m:=a.m-b.m;
DifComplex:=c;
end;
function MultComplex(a,b:Tcomplex):Tcomplex;
var c:Tcomplex;
begin
c.d:=a.d*b.d-a.m*b.m;
c.m:=a.m*b.d+b.m*a.d;
MultComplex:=c;
end;
{деление будет вам домашним заданием}

[Сtrl]

Сообщение от Mad_Cat

язык какой7

Украинский, судя по всему! :)

[Sonne_asja]

на pascal)))

мне нужно создать модуль а потом уже программу с использованием єтого модуля

[Mad_Cat]

мне нужно создать модуль а потом уже программу с использованием єтого модуля

в №2 уже большая часть модуля есть) вам осталось чуть чуть дописать)

[Sonne_asja]

Сообщение от Mad_Cat

в №2 уже большая часть модуля есть) вам осталось чуть чуть дописать)

я бачу)) дякую)))

[Son Of Pain]

Модуль создается так, например )

unit strashniy_modul;
interface
{тут объявления всех процедур, функций, переменных и прочего, что должно быть видно из других модулей}
{...}
implementation
{А тут определения всего того, что было объявлено выше.}
{...}
initialization
{сюда можно вписать код, который выполнится в начале программы (при инициализации этого модуля)}
end.

[Sonne_asja]

спасибо..я знаю как создается модуль..просто не могу догнать куда мнету -1 впихнуть(( и как ее описать

паскаль"." не распознает

[Son Of Pain]

Создаешь класс (или запись) "комплексное число", в котором есть два вещественных поля (x и y). Делаешь методы (или функции) для арифметических операций над такими объектами, для перевода их в строку, для создания комплексного числа из пары обычных чисел.
И сможешь записать потом выражение с ними )

[Sonne_asja]

угу..пасиба