高精度阶乘(pascal)【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 08:58:04
高精度阶乘(pascal)【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示
高精度阶乘(pascal)
【题目】数学上定义:
n!=1×2×3×...×(n-1)×n (N>0)
0!=1
若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12!
要求输入正整数n,求 n! 的精确表示
高精度阶乘(pascal)【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示
var a:array[1..10000] of integer;
b,c,d,t,x:integer;
begin
readln (x);
if (x=10 then if (t=d) then d:=d+1; {假如最后一位乘时有}
{进位,则总位数加1}
a[t]:=a[t] mod 10;
inc (t); {数组下一位}
until (t>d); {直到乘完数组的每一位数字}
end;
write (x,'!=');
for t:=d downto 1 do write (a[t]); {输出}
end.