王建德-综合2【信息技术】.pptVIP

虽然2002、2003年全国奥林匹克信息学复赛中含许多可“一题多解” 的试题，但如果按照较优算法标准分类的话，大致可分为 基础题 有些基础题虽然直接给出了计算公式或算法十分明显（例如统计数和），但是，如果变量的数据类型选错了，或者不会文件操作，同样会做错题，导致意外的失误。因此作题必须强调两基： 基础知识 基本技能 级数求和 算法分析 该题考核选手的并不是编程能力，而是选择变量类型的能力。由于该数列是递减的，而k的上限为15，因此项数很大，即便是longint也容纳不下。但未必非高精度运算不可。只要启动浮点数运算（{$n+}），将项数设为extended类型，便可以得出正确解。 {$n+} {启动浮点数运算} var s,b,k:extended；{ 数列的和、项数、最接近sn(大于sn)的整数值} begin s←0； {数列的和初始化} b←0； {项数初始化} readln(k)； {读最接近sn(大于sn)的整数值k} while s=k do {若目前数列的和小于k，则项数b+1，计算sb} begin b←b+1；s←s+1/b；end；{while} 输出项数round(b)； end.{main} 乒乓球（Table.pas） 【问题背景】国际乒联现在主席沙拉拉自从上任以来就立志于推行一系列改革，以推动乒乓球运动在全球的普及。其中11分制改革引起了很大的争议，有一部分球员因为无法适应新规则只能选择退役。华华就是其中一位，他退役之后走上了乒乓球研究工作，意图弄明白11分制和21分制对选手的不同影响。在开展他的研究之前，他首先需要对他多年比赛的统计数据进行一些分析，所以需要你的帮忙。? 【问题描述】华华通过以下方式进行分析，首先将比赛每个球的胜负列成一张表，然后分别计算在11分制和21分制下，双方的比赛结果（截至记录末尾）。 比如现在有这么一份记录，（其中W表示华华获得一分，L表示华华对手获得一分）： 算法分析 首先，对当前输入行计算11分制下每一局比赛的比分。设 a为当前局华华的得分，每输入一个‘W’，a+1；b为当前局对方的得分，每输入一个‘L’，b+1。若输入‘E’或者华华的得分a或者对方得分b达到11分且双方的分数差值大于1（((a≥11) or(b≥11))and (abs(a-b)1)），则输出当前局的比分a：b。请注意，如果输入的字符为‘E’，则标志比赛结束，11分制计算完毕；否则，继续读下一个字符，计算新一局的比分。然后，对当前输入行计算21分制下每一局比赛的比分。计算方法基本如上。有所不同的是，若华华得分a或者对方得分b达到21分且双方的分数差值大于1（((a≥21) or(b≥21))and (abs(a-b)1)），则输出当前局的比分a：b。 按照上述方法对每一输入行计算11分制和21分制的比赛结果，直至文件读完（eof(input)）为止。 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);