Factorial: Difference between revisions
Content deleted Content added
Langurmonkey (talk | contribs) |
PascalABC.NET |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 1,955:
{{out}}
<pre>6227020800</pre>
==={{header|SmallBASIC}}===
<syntaxhighlight lang="qbasic">
n = 10
factorial = 1
for ii = 2 to n
factorial = factorial * ii
next
print factorial
</syntaxhighlight>
==={{header|TI-83 BASIC}}===
Line 6,048 ⟶ 6,059:
=== Recursive ===
<syntaxhighlight lang="langur">
val factorial = fn x: if(x < 2: 1; x *
writeln factorial(7)
</syntaxhighlight>
Line 7,845 ⟶ 7,856:
factorial := n*factorial(n-1)
end;</syntaxhighlight>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
function FactIter(n: integer): BigInteger;
begin
Result := 1;
for var i:=2 to n do
Result *= i;
end;
function FactRec(n: integer): BigInteger;
begin
if n = 0 then
Result := 1
else Result := n * FactRec(n - 1);
end;
begin
for var i:=1 to 20 do
Println(i,FactRec(i),FactIter(i));
end.
</syntaxhighlight>
{{out}}
<pre>
8 40320 40320
9 362880 362880
10 3628800 3628800
11 39916800 39916800
12 479001600 479001600
13 6227020800 6227020800
14 87178291200 87178291200
15 1307674368000 1307674368000
16 20922789888000 20922789888000
17 355687428096000 355687428096000
18 6402373705728000 6402373705728000
19 121645100408832000 121645100408832000
20 2432902008176640000 2432902008176640000
</pre>
=={{header|Pebble}}==
| |||