请教pascal问题~~~

显示全部楼层 · 2010-8-15 15:12:16

program ex;
var i:integer;

m,n:real;
function fac(i:integer):longint;
begin
if i=1
then fac:=1
else fac:=i*fac(i-1);
end;
begin
for i:=1 to 50 do
begin

n:=1/fac(i);

m:=m+n;
end;
writeln(m);
readln;
end.
验证通过了。但是运行显示 exitcode=1
可以告诉我为什么么？
还有请问一道题。

（用集合完成）将自然数1－9数字不重复组成三个三位数，且三个数之比为1：2：3.求出能满足条件的全部方案。
集合不是只能放256个数吗？那这道题的集合要怎么用呢？
谢谢大家的帮忙~~
请看一下第二题呀，不要光说第一题~

千问 · 2010-8-15 15:12:16

第一题要高精度第二题要用1~9 个数字拼成数，有多少种拼发

千问 · 2010-8-15 15:12:16

拜托！(50!)有多大你要搞清楚！不是longint能存的!!!当然exitcode=1。PS:这里set只存1-9，剩下的自己想。