讨论 / pascal AC
会迷茫的时候 2017-05-01 21:29:15
点我顶贴 收藏 删除
var s,s1,s2,s3:string;c:char;i,t1,t2,t,t4,t5,t3:longint;

begin

readln(s);

t:=length(s);

s1:=s;

for i:=1 to t do begin

c:=s[i];

if (c in ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'])or

(c in ['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']) then begin s1[i]:='.';

t1:=t1+1;end;

end;

writeln(s1);

t4:=t1;

t1:=round(t1/3);

for i:=1 to t do begin

c:=s[i];

if (c in ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'])or

(c in ['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']) then begin

if (t2<t1) then begin t2:=t2+1;s2:=s2+c;end else s2:=s2+'.';end else s2:=s2+c;

end;

writeln(s2);

t3:=0;

s3:=s2;

t5:=length(s3);

for i:=1 to t do

if (s3[i]='.')and(s[i]in ['a','e','i','o','u','A','E','I','O','U']) then begin t3:=t3+1;s3[i]:=s[i];end;

if t3<>0 then writeln(s3) else

if t3=0 then begin

t4:=round(t4/3*2);

t2:=0;

for i:=1 to t do begin

c:=s[i];

if (c in ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'])or

(c in ['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']) then begin

if (t2<t4) then begin t2:=t2+1;write(c);end else write('.');end else write(c);

end; end;

readln;

end.

查看更多回复
提交回复