杭州交通信息网吉林市祥康汽修的电话:为什么在‘Trubo Pascal’中，这个程序运行有问题？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 13:57:37
var a:array[1..100]of integer;
j,i,k:integer;
begin
for i:=1 to 100 do a[i];=i;
a[i]:=0; i:=2;
while i<=50 do
begin
k:=i;
while k<=100 do
begin
k:=k+i;
if k<=100 then a[k]:=0
end;
i:=i+1;
while a[i]=0 do i:=i+1;
end;
for i:=1 to 100 do if a[i]<> then write(a[i], ' ');
end;
在这个程序中，如果将‘j’去掉则不能运行，而保留‘j’则可以，而在这个程序中，‘j’没有用到，问这是为什么，怎样改进才可以的？
请各位高手赐教~
j,i,k:integer;
begin
for i:=1 to 100 do a[i];=i;
a[i]:=0; i:=2;
while i<=50 do
begin
k:=i;
while k<=100 do
begin
k:=k+i;
if k<=100 then a[k]:=0
end;
i:=i+1;
while a[i]=0 do i:=i+1;
end;
for i:=1 to 100 do if a[i]<> then write(a[i], ' ');
end;
在这个程序中，如果将‘j’去掉则不能运行，而保留‘j’则可以，而在这个程序中，‘j’没有用到，问这是为什么，怎样改进才可以的？
请各位高手赐教~
我没有Trubo Pascal’，用delphi运行的，发现以下问题：
1、第4行应是a[i]:=i;，中括号后的赋值要用:=
2、倒数第2行a[i]<> then 中没有比较值
3、发出提示j没有用到，可以删除它，并且不会报错(不删除也可以编译通过)
修改1、2处错误后编译通过
我用tp运行的，发现以下问题：
1、第4行应是a[i]:=i;，中括号后的赋值要用:=
2、倒数第2行a[i]<> then 中没有比较值
修改1、2处错误后编译通过