世界第一难的pascal题，求所有4位数的黑洞数步骤谁能帮小弟找找错在那里？编译时可以成功，就是运行不了，会显示：exitedwithexitcode=201程序如下programheidong;vara:array[1..4]ofinteger;hd,shiyan,i,

Question

世界第一难的pascal题，求所有4位数的黑洞数步骤谁能帮小弟找找错在那里？编译时可以成功，就是运行不了，会显示： exitedwith exitcode=201 程序如下 programheidong; vara:array[1..4]ofinteger; hd,shiyan,i,j,temp,big,small,w,result:integer; begin forhd:=1000to9999do begin shiyan:=hd; fori:=1to4do begin a[i]:=shiyanmod10; shiyan:=shiyandiv10; end; write(hd,'needs:'); w:=0; ifa[1]<>a[2]then begin repeat fori:=1to3do forj:=i+1to4do ifa[i]<a[j]then begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp; end; big:=a[4]+a[3]*10+a[2]*100+a[1]*1000; small:=a[1]+a[2]*10+a[3]*100+a[4]*1000; result:=big-small; shiyan:=result; fori:=1to4do begin a[i]:=shiyanmod10; shiyan:=shiyandiv10; end; inc(w); untilresult=6147; writeln(w,'bu') end elsewriteln('wrong!!!'); end; readln; readln; end.

Answer 1

(1)你的黑洞数错了，应该是6174不是6147 (2)你判断wrong的条件不对，而且不应该放在外面。 修改后的程序： programheidong; vara:array[1..4]ofinteger; hd,shiyan,i,j,temp,big,small,w,result:integer; begin forh...