47 lines
719 B
ObjectPascal
47 lines
719 B
ObjectPascal
|
procedure Test(params arr: array of integer);
|
||
|
|
begin
|
||
|
|
assert(arr[0]=1);
|
||
|
|
assert(arr[1]=2);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Testsum(params arr: array of integer): integer;
|
||
|
|
begin
|
||
|
|
Result := arr[0]+arr[1];
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Test2;
|
||
|
|
var i2 := Testsum(1,2);
|
||
|
|
procedure Nested;
|
||
|
|
begin
|
||
|
|
Test(1,2);
|
||
|
|
var i := Testsum(1,2);
|
||
|
|
assert(i = 3);
|
||
|
|
assert(i2 = 3);
|
||
|
|
end;
|
||
|
|
begin
|
||
|
|
Test(1,2);
|
||
|
|
Nested;
|
||
|
|
var i := Testsum(1,2);
|
||
|
|
assert(i = 3);
|
||
|
|
assert(i2 = 3);
|
||
|
|
end;
|
||
|
|
|
||
|
|
type TClass = class
|
||
|
|
i := Testsum(1,2);
|
||
|
|
constructor;
|
||
|
|
begin
|
||
|
|
assert(i = 3);
|
||
|
|
Test(1,2);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var i2 := Testsum(1,2);
|
||
|
|
|
||
|
|
begin
|
||
|
|
Test(1,2);
|
||
|
|
Test2;
|
||
|
|
var i := Testsum(1,2);
|
||
|
|
assert(i = 3);
|
||
|
|
assert(i2 = 3);
|
||
|
|
var obj := new TClass;
|
||
|
|
end.
|