第七点

测试结果错误.错误结果为:,... . .!... ......-...

,q.p w e!u.. ......-...

,q.p w e!u. e!u.. .....o-a..

正确结果应为:,... . .!... ......-...

,q.p w e!u.. ......-...

,q.p w e!u.. .....o-a..

第9点

测试结果错误.错误结果为:-------.....................

-------AEIOUae..............

-------AEIOUaeAEIOUae..............

正确结果应为:-------.....................

-------AEIOUae..............

-------AEIOUaenmLkjPz.......

第十点

测试结果错误.错误结果为:., ... ..? .... .... ...........

e, zar bb? te.. .... ...........

e, zar bb? te.? .e.. .... ...........

正确结果应为:., ... ..? .... .... ...........

e, zar bb? te.. .... ...........

e, zar bb? test ccdd f..........

我的程序

program rq212;

var

a:array[1..1000]of longint;

b,c:array[1..1000]of char;

s:string;

p,i,j,m,n,k,l,t,q,h,x,y,z:longint;

begin

read(s);

l:=length(s);

for i:=1to l do

begin

if (s[i]>='a')and(s[i]<='z') or (s[i]>='A')and(s[i]<='Z')

THEN begin write('.'); k:=k+1;inc(q); c[q]:='.'; inc(y); end {k 总字母数}

else begin write(s[i]); inc(q); c[q]:=s[i]; end;

end;

writeln;

t:=round(k/3);

n:=1; p:=1;

while p<=t do

begin

if (s[n]>='a')and(s[n]<='z') or (s[n]>='A')and(s[n]<='Z')

then begin write(s[n]); b[p]:=s[n]; inc(n); inc(p); inc(z);end

else begin write(s[n]); inc(n); inc(z);end;

end;

while (p>t)and(n<=l) do

begin write(c[n]); inc(n); end;

writeln;

for i:=p to l do

if (s[i]='A')OR (s[i]='E')OR (s[i]='I')OR (s[i]='O')OR (s[i]='U')OR (s[i]='a')OR

(s[i]='e')OR (s[i]='i')OR (s[i]='o')OR (s[i]='u') then

begin

m:=m+1; c[i]:=s[i];

end;

if m>0 then begin for i:=1 to z do write(s[i]);for i:=p to l do write(c[i]); end;

if m=0 then

begin

t:=round(2*y/3);

h:=0; x:=1;

while h<t do

begin

if (s[x]>='a')and(s[x]<='z') or (s[x]>='A')and(s[x]<='Z') then begin

write(s[x]); h:=h+1; inc(x); end

else begin write(s[x]); inc(x); end;

end;

for i:=x to l do write(c[i]);

end;

readln(j)

end.

请赐教