Pascal字符串运用.pptVIP

第一讲 字符串的应用;导入;乒乓球;WWWWWWWWWWWWWWWWWWWWWWLW 在11分制下，此时比赛的结果是华华第一局11比0获胜，第二局11比0获胜，正在进行第三局，当前比分1比1。而在21分制下，此时比赛结果是华华第一局21比0获胜，正在进行第二局，比分2比1。如果一局比赛刚开始，则此时比分为0比0。 你的程序就是要对于一系列比赛信息的输入（WL形式），输出正确的结果。? 【输入格式】每个输入文件包含若干行字符串（每行至多20个字母），字符串有大写的W、L和E组成。其中E表示比赛信息结束，程序应该忽略E之后的所有内容。 ?【输出格式】输出由两部分组成，每部分有若干行，每一行对应一局比赛的比分（按比赛信息输入顺序）。其中第一部分是11分制下的结果，第二部分是21分制下的结果，两部分之间由一个空行分隔。 ?;算法分析 ; assign(input,inp); reset(input);{输入文件读准备} assign(output,out);rewrite(output);{输出文件写准备} a:=0;b:=0;{ 当前局双方的比分初始化} while not eof (input) do{若文件未读完，则循环} begin while not eoln(input) do{若当前行处理完，则11分制的比赛结束} begin read(ch);{读一个字符} case ch of{根据字符的种类分情形处理} E: begin{若比赛结束，则输出双方比分} writeln(a,:,b); break;{退出11分制的计算过程} end;{ E} W,’L’: begin{华华或对方得一分} if ch=’W’then inc(a) else inc(b); if ((a=11)or(b=11)) and (abs(a-b)1) then{若有一方得分达到11分且双方的分数差值大于1，则输出双方比分} begin writeln(a,:,b); ; a:=0;b:=0;{新一局的比分初始化} end;{then} end; {W,’L’} end;{case} end;{while} readln; end; {while} a:=0; b:=0; {新一局的比分初始化} writeln; reset(input);{重新读输入行} while not eof(input) do{若文件未读完且比赛未结束，则循环} begin while not eoln(input) do{若当前行处理完，则21分制的比赛结束} begin read(ch);{读一个字符} ;case ch of{根据字符的种类分情形处理} ‘E’:begin{若比赛结束，则输出双方比分，退出21分制的计算过程} writeln(a,:,b); break; end;{ E} W,’L’: begin{华华或对方得一分} if ch=’W’then inc(a) else inc(b); if ((a=21)or(b=21)) and (abs(a-b)1) {若有一方得分达到21分且双方的分数差值大于1，则输出双方比分} then begin writeln(a,:,b); a:=0;b:=0;{新一局的比分初始化} end;{then} end;{ W,’L’} end;{case} end;{while} readln; end;{while} close(input); close(outpu