20 lines
640 B
Plaintext
20 lines
640 B
Plaintext
|
/******************************************************/
|
|||
|
|
/* This program evaluates the Factorial function (n!) */
|
|||
|
|
/* using iteration. */
|
|||
|
|
/******************************************************/
|
|||
|
|
ifact:
|
|||
|
|
procedure options(main);
|
|||
|
|
declare
|
|||
|
|
(i, n, F) fixed;
|
|||
|
|
|
|||
|
|
do i = 0 by 1;
|
|||
|
|
F = 1;
|
|||
|
|
do n = i to 1 by -1;
|
|||
|
|
F = n * F;
|
|||
|
|
end;
|
|||
|
|
put edit('factorial(',i,')=',F)
|
|||
|
|
(skip, a,f(2), a, f(7));
|
|||
|
|
end;
|
|||
|
|
end ifact;
|
|||
|
|
|
|||
|
|
|