1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
{ %version=1.1 }
Program toperator5;
uses ucomplex;
const
REAL_ONE = 14.0;
REAL_TWO = 12.0;
REAL_THREE = 1999.0;
IM_ONE = 7.5;
IM_TWO = 15.2;
IM_THREE = 11.1;
procedure fail;
begin
WriteLn('Failed!');
Halt(1);
end;
procedure TestAssign;
var
j: real;
z: complex;
begin
Write('Testing assignment operator...');
j:=12.4;
z:=j;
if trunc(z.re) <> trunc(12.4) then
fail;
WriteLn('Success!');
end;
procedure TestComplexAdd;
var
i,j: complex;
begin
Write('Testing add operator...');
i.re:=REAL_ONE;
i.im:=IM_ONE;
j.re:=REAL_TWO;
j.im:=IM_TWO;
i:=i + j;
if trunc(i.re) <> trunc(REAL_ONE+REAL_TWO) then
fail;
if trunc(i.im) <> trunc(IM_ONE+IM_TWO) then
fail;
WriteLn('Success!');
end;
procedure TestComplexSubtract;
var
i,j: complex;
begin
Write('Testing subtract operator...');
i.re:=REAL_ONE;
i.im:=IM_ONE;
j.re:=REAL_TWO;
j.im:=IM_TWO;
i:=i - j;
if trunc(i.re) <> trunc(REAL_ONE-REAL_TWO) then
fail;
if trunc(i.im) <> trunc(IM_ONE-IM_TWO) then
fail;
WriteLn('Success!');
end;
procedure TestComplexMultiply;
var
i,j: complex;
begin
Write('Testing multiply operator...');
i.re:=REAL_ONE;
i.im:=IM_ONE;
j.re:=REAL_TWO;
j.im:=IM_TWO;
i:=i * j;
if trunc(i.re) <> trunc((REAL_ONE*REAL_TWO)-(IM_ONE*IM_TWO)) then
fail;
if trunc(i.im) <> trunc((IM_ONE*REAL_TWO) + (IM_TWO*REAL_ONE)) then
fail;
WriteLn('Success!');
end;
procedure TestComplexEqual;
var
i,j: complex;
begin
Write('Testing equality operator...');
i.re:=REAL_ONE;
i.im:=IM_ONE;
j.re:=REAL_ONE;
j.im:=IM_ONE;
if not (i = j) then
fail;
WriteLn('Success!');
end;
procedure TestComplexNegate;
var
i : complex;
begin
Write('Testing negate operator...');
i.re:=REAL_ONE;
i.im:=IM_ONE;
i:=-i;
if trunc(i.re) <> trunc(-REAL_ONE) then
fail;
if trunc(i.im) <> trunc(-IM_ONE) then
fail;
WriteLn('Success!');
end;
Begin
TestAssign;
TestComplexAdd;
TestComplexSubtract;
TestComplexMultiply;
TestComplexEqual;
TestComplexNegate;
end.
|
