主题：请求各位大虾们
chyx
[专家分：450] 发布于 2007-07-20 09:15:00
怎样编一个高精度阶乘(要有注释)![em20]
回复列表 （共5个回复）
沙发
angwuy [专家分：2280] 发布于 2007-07-20 09:41:00
program liuke_jc;
const
z=10000;
var
a:array[0..z+1]of integer;
n,j,i,k:longint;
begin
writeln('n=');
readln(n);
begin
a[1]:=1;
for i:=1 to n do
begin
for j:=1to z do
a[j]:=a[j]*i;
for k:=1 to z do
begin
a[k+1]:=a[k+1]+a[k]div 10;
a[k]:=a[k]mod 10;
end;
end;
i:=z;k:=0;
repeat
if a[i]<>0 then k:=1;
i:=i-1;
until k=1;
k:=0;
for j:=i+1 downto 1 do
write(a[j]);
end;
writeln;
end.
板凳
Matodied [专家分：7560] 发布于 2007-07-20 13:31:00
有关内容请见[url=http://www.programfan.com/club/post-241558.html]这里[/url]
3 楼
chyx [专家分：450] 发布于 2007-07-24 07:57:00
Matodied 你的真名叫什么?????
4 楼
Lovely哆啦 [专家分：1360] 发布于 2007-07-24 08:06:00
梁……涉及他人隐私，还是算了吧！！！
加分！！加分！！！
~ ~ ~ ~ ~
：-（
5 楼
chyx [专家分：450] 发布于 2007-07-24 09:08:00
是合肥市第二名吧!!
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 请求各位大虾们