Factorial: Difference between revisions
Pascal
(→Recursive: C and C++ versions) |
(Pascal) |
||
Line 284:
done;
!result</ocaml>
=={{header|Pascal}}==
=== Iterative ===
<pascal>
function factorial(n: integer): integer;
var
i, result: integer;
begin
result := 1;
for i := 1 to n do
result := result * i;
factorial := result
end;
</pascal>
=== Recursive ===
<pascal>
function factorial(n: integer): integer;
begin
if n = 0
then
factorial := 1
else
factorial := n*factorial(n-1)
end;
</pascal>
=={{header|Python}}==
|