Люди добрые)

[Sazary]

А что вы сможете подсказать, по этому...

Ну запись будет как-нибудь так выглядеть:

type comlex = record
Re : real;
Im : real;
end;

то есть действительная и мнимая части.
Действия над числами посмотрите тут -> http://ru.wikipedia.org/wiki/Комплек...B0.D0.BC.D0.B8
Реализовать их будет несложно.

Ну а программа для тестирования - просто объявить пару комплексных чисел и проделать над ними возможные операции.

Также можете поискать в инете исходники уже готовых модулей.


Для примера, функция сложения может выглядеть как-нибудь так:

function summ(A,B : complex) : complex;
var C : complex;
begin
C.Re := A.Re + B.Re;
C.Im := A.Im + B.Im;
summ := C;
end;

Не помню, можно ли в TP 7 в функции возвращать значение своего типа. Если нет, то будет так:

procedure summ(A,B : complex; var C : complex);
begin
C.Re := A.Re + B.Re;
C.Im := A.Im + B.Im;
end;

[Татяна]

Благодарю)