35 lines
768 B
Plaintext
35 lines
768 B
Plaintext
|
call:
|
|||
|
|
procedure options(main);
|
|||
|
|
declare
|
|||
|
|
f(3) entry(float) returns(float) variable,
|
|||
|
|
a entry(float) returns(float); */ entry constant */
|
|||
|
|
declare
|
|||
|
|
i fixed, x float;
|
|||
|
|
|
|||
|
|
f(1) = a;
|
|||
|
|
f(2) = b;
|
|||
|
|
f(3) = c;
|
|||
|
|
|
|||
|
|
do i = 1 to 3;
|
|||
|
|
put skip list('Type x ');
|
|||
|
|
get list(x);
|
|||
|
|
put list('f(',i,')=',f(i)(x));
|
|||
|
|
end;
|
|||
|
|
stop;
|
|||
|
|
|
|||
|
|
b:
|
|||
|
|
procedure(x) returns(float); /* internal procedure */
|
|||
|
|
declare x float;
|
|||
|
|
return (2*x + 1);
|
|||
|
|
end b;
|
|||
|
|
|
|||
|
|
c:
|
|||
|
|
procedure(x) returns(float); /* internal procedure */
|
|||
|
|
declare x float;
|
|||
|
|
return(sin(x));
|
|||
|
|
end c;
|
|||
|
|
|
|||
|
|
|
|||
|
|
end call;
|
|||
|
|
|
|||
|
|
|