16 lines
356 B
ObjectPascal
16 lines
356 B
ObjectPascal
|
type
|
||
|
|
Func1Real = function(x:real):real;
|
||
|
|
Func1Integer = function(x : integer):integer;
|
||
|
|
Func2 = function(a : array of integer; x : integer):integer;
|
||
|
|
|
||
|
|
var f1 : Func1Real;
|
||
|
|
f2 : Func1Integer;
|
||
|
|
f3 : Func2;
|
||
|
|
|
||
|
|
begin
|
||
|
|
f1 := System.Math.Sin;
|
||
|
|
assert(abs(f1(3.2)-System.Math.Sin(3.2))<0.00000001);
|
||
|
|
f1 := sin;
|
||
|
|
assert(f1(3.2)-sin(3.2)<0.000000001);
|
||
|
|
|
||
|
|
end.
|