24 lines
640 B
Plaintext
24 lines
640 B
Plaintext
/******************************************************/
|
||
/* This program evaluates the Factorial function (n!) */
|
||
/* using recursion and FLOAT BINARY data. */
|
||
/******************************************************/
|
||
ffact:
|
||
procedure options(main);
|
||
declare
|
||
i fixed;
|
||
do i = 0 repeat(i+1);
|
||
put skip list('Factorial(',i,')=',factorial(i));
|
||
end;
|
||
stop;
|
||
|
||
factorial:
|
||
procedure(i) returns(float) recursive;
|
||
declare
|
||
i fixed;
|
||
if i = 0 then return (1);
|
||
return (i * factorial(i-1));
|
||
end factorial;
|
||
|
||
end ffact;
|
||
|
||
|