UC知道free Pascal 128 条件指令错误 急啊！！！
来源：百度知道 编辑：UC知道 时间：2024/05/28 03:13:26
ijos遇到这个怎么弄。。。急啊！！！！！！！1
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(ch);
case ch of
'.':a[i,j]:=0;
'*':begin a[i,j]:=0;c[1,1]:=i;c[1,2]:=j;end;
'X':a[i,j]:=3;
end;
end;
readln;
end;
for i:=0 to n+1 do
begin
a[i,0]:=3;a[i,m+1]:=3;
end;
for i:=0 to m+1 do
begin
a[0,i]:=3;a[n+1,i]:=3;
end;
readln(v);k:=1;
for l:=1 to v do
begin
readln(st);
然后分情况。。。
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(ch);
case ch of
'.':a[i,j]:=0;
'*':begin a[i,j]:=0;c[1,1]:=i;c[1,2]:=j;end;
'X':a[i,j]:=3;
end;
end;
readln;
end;
for i:=0 to n+1 do
begin
a[i,0]:=3;a[i,m+1]:=3;
end;
for i:=0 to m+1 do
begin
a[0,i]:=3;a[n+1,i]:=3;
end;
readln(v);k:=1;
for l:=1 to v do
begin
readln(st);
然后分情况。。。
vijos 错误128就是数组读超了，比如你开了个0.。10的数组e，用了个e[-1]或者e[11]
我就是这样的
128条件指令错位
拜托把程序发上来
书上没写，把程序传上来看看。
vijos上的错误128就像是编译器坏了，我也遇到过！