世界第一难的pascal题,求所有4位数的黑洞数步骤谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：exited withexitcode=201程序如下program heidong;var a:array[1..4]of integer;hd,shiyan,i,j,temp,big
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/23 17:38:27
世界第一难的pascal题,求所有4位数的黑洞数步骤谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：exited withexitcode=201程序如下program heidong;var a:array[1..4]of integer;hd,shiyan,i,j,temp,big
世界第一难的pascal题,求所有4位数的黑洞数步骤
谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：
exited with
exitcode=201
程序如下
program heidong;
var a:array[1..4]of integer;
hd,shiyan,i,j,temp,big,small,w,result:integer;
begin
for hd:=1000 to 9999 do
begin
shiyan:=hd;
for i:=1 to 4 do
begin
a[i]:=shiyan mod 10;
shiyan:=shiyan div 10;
end;
write(hd,' needs:');
w:=0;
if a[1]a[2] then
begin
repeat
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]
世界第一难的pascal题,求所有4位数的黑洞数步骤谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：exited withexitcode=201程序如下program heidong;var a:array[1..4]of integer;hd,shiyan,i,j,temp,big
(1)你的黑洞数错了,应该是6174不是6147
(2)你判断wrong的条件不对,而且不应该放在外面.
修改后的程序：
program heidong;
var a:array[1..4]of integer;
hd,shiyan,i,j,temp,big,small,w,result:integer;
begin
for hd:=1000 to 9999 do
begin
shiyan:=hd;
for i:=1 to 4 do
begin
a[i]:=shiyan mod 10;
shiyan:=shiyan div 10;
end;
write(hd,' needs:');
w:=0;
repeat
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]