Question

PASCAL程序问题

这条程序哪里出错？？？？？？
program number;
var x: integer;
begin
for x:=0 to 9 do
begin
if x mod 3 = 0 then write(x)
else write ('no');
end;
end.
我在编译的时候，总是显示这个错误：
Fatal:Compilation aborted
这是个什么错误？？
什么情况会出现
同时我还想问一下这道题（PASCAL语言）：
从0到999中选出既能被3整除，又至少带有一个数字5的整数！一定要用到循环语句！例如：252 , 252 mod 3 =0 而且 有一个5；
552， 552 mod 3 =0 而且 有两个数字5.

Answer 1

你试过Turbo Pascal没有问题,你用的是free pascal

在使用free pascal时，会遇到“fatal：compilation aborted”的错误提示，其意思就是：致命的：编译失败。出现这种情况一般有两种可能：

1、你的代码有致命错误；(经检查,你的代码没有错误)
2、Free Pascal出现了问题。

解决方法是：

1、检查代码，确认代码没有错误；
2、搜索安装目录下的所有扩展名为cfg的文件，并删除。然后关闭free Pascal，再重新打开刚才的代码调试；
3、如果上面的方面仍然无效，剩下的比较省事的方法就是卸载Free Pascal，然后重新安装一遍。

另一题:

var
i:integer;
begin
for i:=0 to 999 do
if (i mod 3 = 0) and ((i div 100=5) or ((i div 10) mod 10=5) or (i mod 10=5)) then
write(i,',');
end.

Answer 2

Fatal:compilation aborted 严重错误：编译失败
Fatal:internal error 200309201严重错误：内部错误200309201 非法优化使用寄存器变量

这是解释，但是你那个程序好像没问题。。我复制过来后可以运行得出结果的。你检测下你的pascal有没问题。或者电脑有问题。又或者你程序里面打错了，发上百度打对了。

Answer 3

重启free pascal