高精度阶乘pascal

[复制链接]
查看11 | 回复3 | 2012-12-5 19:03:12 | 显示全部楼层 |阅读模式
j:=1;while a[j]=0 do j:=j+1;for i:=j to n do
write (a);writeln;如果全是0怎么办?应该while (a[j]=0) and (j<n) 楼上上上的yjw40歪解!j:=1怎么可能是j:=j-1;...
回复

使用道具 举报

千问 | 2012-12-5 19:03:12 | 显示全部楼层
应该是输出的时候for i:=j to 3*n do write(a);然后注意0!=1的情况。一般不会溢出,所以while(a[j]=0)and(j<3*n)可以有也可以不要,最好有咯。...
回复

使用道具 举报

千问 | 2012-12-5 19:03:12 | 显示全部楼层
最后面的while循环怎么是j:=j+1,应该改成j:=j-1...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行