帮我看看这个pascal程序哪里错了?

发布网友发布时间：2024-10-15 17:05

共3个回答

热心网友时间：2024-10-16 05:33

搞两个循环什么意思??

var b,i,j,e,w:longint;
k:char;
a,c:string;
d:array['0'..'9'] of longint;
begin
readln(a);
b:=length(a);
for i:=1 to b do
while copy(a,i,1)<>'.' do <<--这句应该改成if a[i] <> '.' then，不然会死在这里。
begin
d[a[i]]:=d[a[i]]+1;
end;
for k:='0' to '9' do write(k,':',d[k],' ');
end.

热心网友时间：2024-10-16 05:34

这句话是错的： for j:=0 to 9 do d[w]:=d[w]+1;
应该是d[e]:=d[e]+1;追问var b,i,j,e,w:longint;
k:char;
a,c:string;
d:array['0'..'9'] of longint;
begin
readln(a);
b:=length(a);
for i:=1 to b do
while copy(a,i,1)'.' do
begin
d[a[i]]:=d[a[i]]+1;
end;
for k:='0' to '9' do write(k,':',d[k],' ');
end.
是这个，我发错了。

热心网友时间：2024-10-16 05:34

没看出来