信息学奥赛教程指导.ppt.ppt

虽然2002、2003年全国奥林匹克信息学复赛中含许多可“一题多解” 的试题，但如果按照较优算法标准分类的话，大致可分为 输出文件 输出文件名a.out，格式如下： i Ei Fi 其中i为字典表中符合条件的单词序号（1≤i≤n），若字典表中不存在符合条件的单词，则对应的i=0。若上述三种情况不存在，则输出N。 输入输出样例 输入1: 5 abcde abc asdfasfd abcd aacd abcd 1、匹配情况的计算 ⑴计算两个等长字串中不同字符的个数 function find(a,b:string):integer；{输入两个等长字串a,b，计算和返回不同字符的个数} var i,tot:integer； begin tot←0； for i←1 to length(a) do if a[i]b[i] then inc(tot)； find←tot； end；{ find } ? ⑵判别一个字串是否比另一个字串多一个字符（其余字符匹配） 我们不知道长度大1的字串究竟在哪个位置上多出一个字符，无奈，只能将该字串的每一个字符试插在另一个字串的对应位置上。如果插入后使得两串相同，则说明猜想成立。否则猜想不成立。 function check(a,b:string):integer；{输入字串a,b。若b能够在a的基础上添加一个字符得到的话，则返回1；否则返回0} var i:integer； begin check←0； for i←0 to length(a) do begin a←copy(a,1,i)+b[i+1]+copy(a,i+1,255)；{在a[i]后插入b[i+1]} if a=b {若插入后两串相同，则成功退出} then begin check←1；exit；end；{then} delete(a,i+1,1)； {删去a中的插入字符} end；{for} end；{check} ? 第二题：级数求和 已知：Sn=1+1/2+1/3+….+1/n。显然当n.非常大的时候，Sn可大于任何一个整数K。现给出一个整数K（1≤K≤15），要求计算出一个最小的n，使得SnK。输入 键盘输入 k?输出 屏幕输出 n?输入输出样例输入: 1输出: 2 算法分析 该题考核选手的并不是编程能力，而是选择变量类型的能力。由于该数列是递减的，而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} 第三题：选数 已知n个整数 x1,x2,…..xn, 以及一个整数k (kn)。从 n 个整数中任选k个整数组合相加，可分别得到一系列的和。例如当 n=4, k=3，4个整数分别为3，7，12，19 时，可得全部的组合为： 3+7+12=22 3+7+19=29 7+12+19=38 3+12+19=34。 现在，要求你计算出和为素数的组合数有多少种。例如上例，只有一种组合的和为素数：（3+7+19=29）。 输入 输入文件名为c.in。文件格式 n, k（1≤n≤20，kn） x1,x2,…xn（1≤xi≤5000000） 输出： 输出文件名为c.out。文件格式 一个整数（满足条件的种数）。 输入输出样例： 输入： 4 3 7 12 19 输出： 1 1、判别一个数是否为素数 由于整数xi的上限为5000000，k的上限为19，这就使得判别k个整数的和是否为素数的问题变得似乎有点困难。为了保证在该范围内能正