高精度阶乘(pascal)【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 08:56:19
![高精度阶乘(pascal)【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示](/uploads/image/z/3688537-49-7.jpg?t=%E9%AB%98%E7%B2%BE%E5%BA%A6%E9%98%B6%E4%B9%98%EF%BC%88pascal%EF%BC%89%E3%80%90%E9%A2%98%E7%9B%AE%E3%80%91%E6%95%B0%E5%AD%A6%E4%B8%8A%E5%AE%9A%E4%B9%89%3A++++++++n%21%3D1%C3%972%C3%973%C3%97...%C3%97%28n-1%29%C3%97n+%28N%3E0%29++++++++0%21%3D1++++++++%E8%8B%A5%E7%94%A8integer%E5%9E%8B%E6%95%B0%E6%8D%AE%E8%A1%A8%E7%A4%BA%E9%98%B6%E4%B9%98%2C%E6%9C%80%E5%A4%9A%E5%8F%AF%E5%88%B07%21%2C%E7%94%A8Longint%E7%B1%BB%E5%9E%8B%E4%B9%9F%E5%8F%AA%E8%83%BD%E5%88%B012%21++++++++%E8%A6%81%E6%B1%82%E8%BE%93%E5%85%A5%E6%AD%A3%E6%95%B4%E6%95%B0n%2C%E6%B1%82+n%21+%E7%9A%84%E7%B2%BE%E7%A1%AE%E8%A1%A8%E7%A4%BA)
高精度阶乘(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.