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
|
{ %OPT=-Ootailrec }
program tb0667;
var
stack: Pointer = Nil;
function Test1(var Values: array of LongInt; Res: LongInt): LongInt;
begin
if not Assigned(stack) then
stack := get_frame
else if stack <> get_frame then
Halt(1);
if Length(Values) = 0 then
Test1 := Res
else
Test1 := Test1(Values[0..High(Values) - 1], Res + Values[High(Values)]);
end;
function Test1(Values: array of LongInt): LongInt;
begin
Test1 := Test1(Values, 0);
end;
function Test2(constref Values: array of LongInt; Res: LongInt): LongInt;
begin
if not Assigned(stack) then
stack := get_frame
else if stack <> get_frame then
Halt(3);
if Length(Values) = 0 then
Test2 := Res
else
Test2 := Test2(Values[0..High(Values) - 1], Res + Values[High(Values)]);
end;
function Test2(constref Values: array of LongInt): LongInt;
begin
Test2 := Test2(Values, 0);
end;
function Test3(const Values: array of LongInt; Res: LongInt): LongInt;
begin
if not Assigned(stack) then
stack := get_frame
else if stack <> get_frame then
Halt(5);
if Length(Values) = 0 then
Test3 := Res
else
Test3 := Test3(Values[0..High(Values) - 1], Res + Values[High(Values)]);
end;
function Test3(const Values: array of LongInt): LongInt;
begin
Test3 := Test3(Values, 0);
end;
function Test4(Values: array of LongInt; Res: LongInt): LongInt;
begin
if not Assigned(stack) then
stack := get_frame
else if stack <> get_frame then
Halt(7);
if Length(Values) = 0 then
Test4 := Res
else
Test4 := Test4(Values[0..High(Values) - 1], Res + Values[High(Values)]);
end;
function Test4(Values: array of LongInt): LongInt;
begin
Test4 := Test4(Values, 0);
end;
begin
if Test1([1, 2, 3, 4]) <> 10 then
Halt(2);
stack := Nil;
if Test2([1, 2, 3, 4]) <> 10 then
Halt(4);
stack := Nil;
if Test3([1, 2, 3, 4]) <> 10 then
Halt(6);
stack := Nil;
if Test4([1, 2, 3, 4]) <> 10 then
Halt(8);
writeln('ok');
end.
|
