mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 23:19:26 +02:00
30 lines
381 B
ObjectPascal
30 lines
381 B
ObjectPascal
{$mode delphi}
|
|
|
|
program topovl;
|
|
|
|
type
|
|
complex = record
|
|
re,im: real;
|
|
|
|
class operator multiply(r : real; const z1 : complex): complex;
|
|
end;
|
|
|
|
class Operator complex.multiply (r : real; const z1 : complex): complex;
|
|
|
|
begin
|
|
result.re := z1.re * r;
|
|
result.im := z1.im * r;
|
|
end;
|
|
|
|
var
|
|
R : real;
|
|
C,Z : complex;
|
|
|
|
begin
|
|
r:=2.0;
|
|
c.re:=3.0;
|
|
c.im:=4.0;
|
|
C:=R*Z;
|
|
end.
|
|
|