PASCAL字符串求解!!!~
发布网友
发布时间：2022-04-26 08:55
共3个回答
热心网友
时间：2022-06-26 05:07
l;longint;
begin
while not eof do(当前的文件没有结束，就继续读入)
begin
readln(f);
l:=length(f);
if f[l]='e' then begin
if not (f[l-1] in ['a','e','i','o','u']) then
begin
delete(f,l,1);
f:=f+'ing';
end
else f:=f+'ing';
writeln(f);
continue;
end;
if (not (f[l] in ['a','e','i','o','u']))and(f[l-1] in ['a','e','i','o','u']) then
begin
f:=f+f[l];
f:=f+'ing';
writeln(f);
continue;
end;
f:=f+'ing';
writeln(f);
end;
l是字符串长度，F是字符串。。
基础题目，所以就没有编译，直接手打的。。不过应该没有问题。。有问题就继续问。。
热心网友
时间：2022-06-26 05:07
program add_ing;
var engword:string;
{实际上，超过32个字符的英语单词，都很罕见，100的个绝对没有，string 足够了}
fin,fout:text;
n:integer;
ct,cpt:char;
begin
assign(fin,'ing.in');reset(fin);
assign(fout,'ing.out');rewrite(fout);
repeat {while not eof(fin) do begin }
readln(fin,engword);n:=length(engword);
writeln(engword,'len =',n);
if(n>2)then begin
ct:=engword[n];
case ct of
'e':{e 结尾}
begin
cpt:= engword[n-1];
case cpt of
'a','e','i','o','u':{元音+e，直接+ing}
engword:=engword+'ing';
else begin {辅音+e，去掉e,+ing}
engword[n]:='i'; engword:=engword+'ng' ;
end;
end;
end;
'a','i','o','u':{元音结尾，直接+ing}
engword:=engword+'ing';
else begin {fu音结尾}
cpt:= engword[n-1];
case cpt of
'a','e','i','o','u':{元音+辅音,双写辅音+ing}
begin
engword:=engword+ct ;
engword:=engword+'ing';
end;
else begin {辅音+辅音，直接+ing}
engword:=engword+'ing';
end;
end;
end;
end;
writeln(fout,engword);
end;
writeln(engword);
until eof(fin);{end;}
close(fin);close(fout);
end.
运行结果：
热心网友
时间：2022-06-26 05:08
if length(word)<2 then exit;
// do processing
