| [ < ] | [ > ] | [ << ] | [ Up ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |
(Under construction.)
type
Internal_Complex = record { not visible }
RealPart, ImaginaryPart: Real
end;
Complex = restricted Internal_Complex;
|
`Complex' is an ISO-10206 Extended Pascal extension.
program ComplexDemo; var a: Complex; begin a := Cmplx (42, 3); WriteLn (Re (a), ' + ', Im (a), ' i') end. |