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;
|
|||
|
|
|
|||
|
|
|