程序出错的问题

摇摆兔

1. PROGRAM EX3;
   
2. VAR M,N,R,K:INTEGER;
   
3. BEGIN
   
4.         READLN(N);
   
5.         M:=N DIV 2;R:=1;
   
6.         FOR K:=1 TO M DO
   
7.         BEGIN
   
8.                 R:=R*(2*K+1);
   
9.         END;
   
10.         WRITELN(R);
    
11. END.
    

复制代码

#./EX3.pas
13
Runtime error 201 at $000000000040032F
  $000000000040032F
  $00000000004001F0
这个错误不符合我的预料，因为我用草稿纸算过32位精度足够，不会溢出。

摇摆兔

应该为32位有符号整型。

摇摆兔

应该为#./EX3

cvlsam

操作系统：Win7 32Bit 专业版
IDE版本：Lazarus 1.4.2

没有发现楼主说的错误。


Good Luck～

摇摆兔

cvlsam 发表于 2015-9-14 09:26
操作系统：Win7 32Bit 专业版
IDE版本：Lazarus 1.4.2

我的环境是：
GENTOO LINUX
FPC2.6.4
我是在FPC IDE里面编译的。
而且我试着用#fpc EX3.pas编译，运行没有这个错误，但是求得的值不一样。

摇摆兔

cvlsam 发表于 2015-9-14 09:26
操作系统：Win7 32Bit 专业版
IDE版本：Lazarus 1.4.2

我试着用lazarus编译，运行输入值以后，结果一闪而过。什么也没看到。

摇摆兔

摇摆兔 发表于 2015-9-14 13:13
我试着用lazarus编译，运行输入值以后，结果一闪而过。什么也没看到。

这次得到了正确结果。
不过我在最后一行之前加上了READLN();。