表示刚下上。。打了好几个程序都显示fatal compilation aborted= =
这表示什么= =。。程序错到无可救药了么。。

4、验证数学黑洞：所有四位数，除了数字全相同的外，其它的，经过不多于七次的下列操作，一定可以得到6174：将这个四位数的数字按从大到小和从小到大重组成两个数，大数减去小数。并且，一旦得到6174之后，就掉进黑洞，再也得不到其它的数（6174：7641-1467 = 6174）：
     样例：输入3214
（1）4321 - 1234 = 3087
（2）8730 - 378 = 8352
（3）8532 - 2358 = 6174
        输出： 3214    3087    8352    6174
我的编程是var a,b,c,d,e,f,g,h,m:integer;
begin
   readln(a);
    b:=a div 1000;
    c:=a div 100;
    d:=c mod 10;
    e:=a mod 1000;
    f:=a mod 100;
    g:=f div 10;
    h:=1000*b+100*d+10*g+e;
    begin
    a-h=m;
    reapet
    a-h;
    write
    until m:=6174
     writeln(m:5);
     end;
    readln;
   end.
觉得这个程序不怎么对 但显示fatal compilation aborted 看不见运行了啥样子= =

回复：6楼
谢谢

致命汇编错误
认真查查代码吧……

那位高手帮帮忙？

果断重开就好了

这样怎么办？？？？？？？？

如果是2.4.0班就认命吧，2.4.0版经常出现程序崩溃，出现这个却检查不出任何错误时，保存程序-重启-运行。这应该是唯一的方法。

狠狠踩一脚。。。。~

额，我就是......2.4.0

帮忙看看，程序那里错了。
同样出现了Compilation aborted的问题
var p:array(1..20,1..20) of integer;
var m,n,k,max,maxi,maxj,i,j,s,totle,x,bei,bej,hen,kuan:integer;begin
assign(input,'d:\peanuts.in');reset(input);
assign(output,'d:\peanuts.out');rewrite(output);
readln(m,n,k);
for i:=1 to m do
begin
for j:=1 to n do readln(p(i,j));
end;
max:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
if p(i,j)>max then
begin
max:=p(i,j);
maxi:=i;
maxj:=j;
end;
end;
end;
s:=1;
totle:=0;
while k>0 do
begin
if s=1 then begin
if maxi+2+maxj<=k then totle:=max+totle;k:=k-maxi-1;else k=0; if s>1 then begin x:=max; bei:=maxi; bej:=maxj; max:=0; for i:=1 to m do begin for j:=1 to n do begin if (p(i,j)>max) and (p(i,j)<x) then max:=p(i,j);maxi:=i;maxj:=j; end; end; if maxi>bei then hen:=maxi-bei; else hen:=bei-maxi; if maxj>bej then kuan:=maxj-bej; else kuan:=bej-maxj; if hen+kuan+maxi+1<k then totle:=totle+max;k:=k-hen-kuan;else k:=0; end; writeln(totle);end.


重开pascal。

那坑爹的都别用了，我那个编译器，同样的程序，每天结果都不同

错的我都不好意思说了 这程序编的超越神话了
var a,b,c,d,e,f,g,h,m:integer;
begin
readln(a);
b:=a div 1000;
c:=a div 100;
d:=c mod 10;
e:=a mod 1000;
f:=a mod 100;
g:=f div 10;
h:=1000*b+100*d+10*g+e;
begin（begin你妹，又不是过程）
a-h=m;（什么玩意）
reapet（去学好英语，repeat）
a-h;（什么玩意）
write（write什么？）
until m:=6174（还能赋值？）
writeln(m:5);
end;（end有意思？）
readln;
end.


2014年10月25日9时29分9秒 编译（D:\360data\重要数据\桌面\pascal\新建 文本文档.pas）…… 编译失败。
第3行，字符35附近失败： 缺少文件结尾
@zzysss