pascal语言程序运行时出现了exited with exitcode=101是怎么回事?

是数组定义太小了，第二次循环的时候N=198,数组只开到100，所以出错了，

程序改成

var i,j,n:integera:array[1..100] of boolean

begin

for i:=1 to 100 do

a[i]:=true

j:=1

n:=j*i

while n<=100 do

begin

a[n]:=not(a[n])

j:=j+1

n:=j*i

end

for i:=1 to 100 do

if a[i]=true then write(i,' ')

end.

就对了

楼下胡说,free pascal 可以从外部复制

方法:1,在外面 ctrl+c 复制

2,进入FP, 上方菜单中的edit--paste form windows就可以了

最好使用free pascal 2.0.4,比较公认的稳定版本

http://hi.baidu.com/%E9%BA%A6%E7%94%B0oi

---