Category : Files from Magazines
Archive   : N7V11.ZIP
Filename : COMPLEX.PAS

{$R-,S+,I+,D+,T-,F-,V+,B-,N-,L+ }
{$M 16384,0,655360 }
PROGRAM ComplexDemo;
TYPE
Complex = RECORD
L : byte; {dummy length byte}
R, I : Real; {real and imaginary parts}
END;
CompStr = STRING[12];
VAR
X : Compstr;
C1, C2, C3 : Complex;
N : Byte;

FUNCTION ComplexMul(A,B : Complex) : CompStr;
VAR Temp : Complex;
BEGIN
Temp.L := 12; {set the dummy length byte}
Temp.R := A.R*B.R - A.I*B.I;
Temp.I := A.R*B.I + A.I*B.R;
ComplexMul := CompStr(Temp); {typecast}
END;

BEGIN
C3 := Complex(X);
WriteLn('Enter 1st complex number, real part first. E.g. "2.5 5.0"');
Write(':'); ReadLn(C1.R, C1.I);
WriteLn('Enter 2nd complex number, real part first. E.g. "2.5 5.0"');
Write(':'); ReadLn(C2.R, C2.I);
CompStr(C3) := ComplexMul(C1,C2);{typecast}
WriteLn('Their product is ',C3.R:1:11,' + ',C3.I:1:11,'i');
END.