题解：Pascal词组缩写

词组缩写

时间限制: 1 Sec  内存限制: 128 MB
[提交][状态][讨论版]

题目描述

定义：一个词组中每个单词的首字母的大写组合称为该词组的缩写。 比如，C语言里常用的EOF就是end of file的缩写。

输入

输入的第一行是一个整数T，表示一共有T组测试数据； 接下来有T行，每组测试数据占一行，每行有一个词组，每个词组由一个或多个单词组成；每组的单词个数不超过10个，每个单词有一个或多个大写或小写字母组成； 单词长度不超过10，由一个或多个空格分隔这些单词。

输出

请为每组测试数据输出规定的缩写，每组输出占一行。

样例输入

1
end of file

样例输出

EOF

分析

此题做法

第一步  读入

第二步  挨个读入字符串（①可以用数组，也可以②读入一个做一个）或③读完字符位置

第三步 扫描整个字符串/字符 ,如果某个字符前面一个字符是空格，就大写输出他或存到另一个字符串数组内

参考框架

第一步：readln(n);

第二步:

①for i:=1 to n do      ②   for i:=1 to n do        ③ for i:=1 to n do

    readln(s[i]);                   begin                           while not eoln do

                                            readln(s）；             begin   

                                            第三步；                       i:=i+1;   

                                       end；                                read(ch[i]);

                                                                            end;

第三步：

①和②这里讲②      len:=length(s);  //此处若第二步，则len:=length(s);

                            for i:=1 to len do

                            if (s[i-1]=' ') and (s[i]<>' ') or (i=1) and (s[i]<>' ') then write(upcase（s[i]）);

                            writeln;

③                         for j:=1 to i do

                            if (ch[j-1]) and (s[i]<>' ')  or (j=1) and (s[i]<>' ') then write(upcase(ch[j]));

                            writeln;        

转载于:https://my.oschina.net/u/3233411/blog/829364