Pascal字符串的应用回顾.pptVIP

第二讲: 字符串的应用回顾;内容提要;回顾知识点;例1 按字母表顺序和逆序每隔一个字母打印。即打印出：　　　　a c e g I k m o q s u w y　　　　z x r v t p n l j h f d b;二：字符串的定义;求输入英文句子单词的平均长度.　　程序如下:　　program ex8_2;　　　var　　　　ch:string; {字符串类型} 　　　　s,count,j:integer;　　　begin　　　　write(‘The sentence is :’);　　　　readln(ch); {读入字符串}　 　　　s:=0;　　　　count:=0;　　　　j:=0;　　　　repeat　　　　　inc(j);　　　　　if not (ch[j] in [:,,,;,,!,?,., ]) then inc(s);　　　　　if ch[j] in[ ,.,!,?] then inc(count);　　　　until (j=ord（ch[0])) or (ch[j] in [.,!,?]);　　　　if ch[j]. then writeln(It is not a sentence.)　　　　else writeln(Average length is ,s/count:10:4);　　　end.　　分析:程序中，变量s用于存句子中英文字母的总数，变量count用于存放句子中单词的个数，ch[j]表示ch串中的第j个位置上的字符，ord（ch[0]）为ch串的串长度。程序充分利用Turbo Pascal允许直接通过字符串下标得到串中的字符这一特点，使程序比较简捷。;三、字符串的操作;;程序欣赏;三、字符串的函数和过程;思考题一;思考题二：乒乓球（Table.pas）;每周一题;WWWWWWWWWWWWWWWWWWWWWWLW 在11分制下，此时比赛的结果是华华第一局11比0获胜，第二局11比0获胜，正在进行第三局，当前比分1比1。而在21分制下，此时比赛结果是华华第一局21比0获胜，正在进行第二局，比分2比1。如果一局比赛刚开始，则此时比分为0比0。 你的程序就是要对于一系列比赛信息的输入（WL形式），输出正确的结果。? 【输入格式】每个输入文件包含若干行字符串（每行至多20个字母），字符串有大写的W、L和E组成。其中E表示比赛信息结束，程序应该忽略E之后的所有内容。 ?【输出格式】输出由两部分组成，每部分有若干行，每一行对应一局比赛的比分（按比赛信息输入顺序）。其中第一部分是11分制下的结果，第二部分是21分制下的结果，两部分之间由一个空行分隔。 ?;思考题的程序可发送至: E-mail : guxiaoh@ 或则写在竞赛网中程序流言板中,并及时和老师沟通.