26 lines
768 B
Plaintext
26 lines
768 B
Plaintext
|
/******************************************************/
|
|||
|
|
/* This program evaluates the Factorial function (n!) */
|
|||
|
|
/* using recursion and FIXED DECIMAL data. */
|
|||
|
|
/******************************************************/
|
|||
|
|
dfact:
|
|||
|
|
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(fixed decimal(15,0))
|
|||
|
|
recursive;
|
|||
|
|
declare
|
|||
|
|
i fixed;
|
|||
|
|
|
|||
|
|
if i = 0 then return (1);
|
|||
|
|
return (decimal(i,15) * factorial(i-1));
|
|||
|
|
end factorial;
|
|||
|
|
|
|||
|
|
end dfact;
|
|||
|
|
|
|||
|
|
|