level 3
![[我错了]](/static/emoticons/u6211u9519u4e86.png)
got 'ShortString' expected 'Char' 每次都出现这个，请问这是怎么回事？
2013年03月27日 12点03分
level 9
定义的问题；
分析完毕.
2013年03月27日 13点03分
3
分析完毕.
var a:array[1..20] of string; b:string; i,n,m:integer; begin read(b); repeat a[i]:=copy(b,1,pos(' ',b)); delete(b,1,pos(' ',b)); until pos(' ',b)=0; write(b,' '); for n:=i downto 1 do write(a[i]); end. 求解 这个编译过了为什么老是显示Runtime error 201 呢
2013年03月27日 13点03分
回复 Ant_尛禹 :范围检查出错。书上这么写的，具体我调试一下
2013年03月27日 13点03分
回复 Ant_尛禹 :测试数据？
2013年03月27日 13点03分
回复 Ant_尛禹 :哦，不好意思，没看到
2013年03月27日 13点03分
level 9
var
a:array[1..20] of string;
b:string;
i,n,m:integer;
begin
readln(b);
i:=1;
repeat
a[i]:=copy(b,1,pos(' ',b));
delete(b,1,pos(' ',b));
inc(i);
until pos(' ',b)=0;
write(b,' ');
for n:=
i-1 downto 1 do
write(a[
n],' ');
end.
2013年03月27日 13点03分
5
a:array[1..20] of string;
b:string;
i,n,m:integer;
begin
readln(b);
i:=1;
repeat
a[i]:=copy(b,1,pos(' ',b));
delete(b,1,pos(' ',b));
inc(i);
until pos(' ',b)=0;
write(b,' ');
for n:=
i-1 downto 1 do
write(a[
n],' ');
end.
= = 非常感谢，这题困扰我一晚上了。
2013年03月27日 13点03分
回复 Ant_尛禹 :不客气，我比你更弱。。。
2013年03月27日 13点03分
谢谢
2015年08月09日 10点08分
level 9
level 10
level 6
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
level 8
var
s:string;
a,b,c:integer;
begin
readln(s);
c:=length(s);
for a:=length(s) downto 1 do
if s[a]=' ' then begin
for b:=a+1 to c do write(s[b]);
write(' ');
c:=a-1;
end;
for b:=1 to c do write(s[b]);
end.
2015年08月18日 04点08分
13
s:string;
a,b,c:integer;
begin
readln(s);
c:=length(s);
for a:=length(s) downto 1 do
if s[a]=' ' then begin
for b:=a+1 to c do write(s[b]);
write(' ');
c:=a-1;
end;
for b:=1 to c do write(s[b]);
end.