作业帮 > 综合 > 作业

pascal 字符串数组

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/23 16:26:18
pascal 字符串数组
读入一行英文文本,将其中每个单词的最后一个字母改成大写,然后输出此
文本(这里的“ 单词” 是指由空格隔开的字符串)。
如输入
“ I am a student to take the examination.”,
则输出
“I aM A studenT tO takE thE examinatioN”。
pascal 字符串数组
var s:string; i,n:integer;
begin
readln(s);
n:=length(s);
for i:=2 to n do
if (not (s[i] in ['A'..'Z','a'..'z']))and(s[i-1] in ['a'..'z']) then dec(s[i-1],32);
if s[n] in ['a'..'z'] then dec(s[n],32);
writeln(s);
end.