комплексные числа

← →
Юрий Зотов © (2002-02-06 21:19) [3]

type
Complex = record
Re, Im: double
end;

Function RealToComplex(X: double): Complex;
begin
Result.Re := X;
Result.Im := 0
end;

Function CMul(X, Y: Complex): Complex;
begin
// Если не ошибаюсь (учебника под рукой нет), то:
Rezult.Re := X.Re * Y.Im;
Result.Im := X.Im * Y.Re
end;

Function CDiv(X, Y: Complex): Complex;
begin
// Если снова не ошибаюсь, то:
Rezult.Re := X.Im * Y.Re;
Result.Im := X.Re * Y.Im
end;

Тогда
z3:=-5/(z1*z2);
реализуется в виде
Z3 := CDiv(RealToComplex(-5), CMul(Z1, Z2));

Остальное аналогично. То есть, задача состоит в том, чтобы открыть учебник и, глядя в него, написать простейший модуль CMath, в который будет входить пара десятков простейших функций, каждая из которых реализует одну операцию по образцу тех, что я написал. Скорее всего, в коде самих функции я наврал (увы, слишком давно кончил школу), но исправить, надеюсь, не проблема.

комплексные числа Найти похожие ветки