2014noip复赛模拟练习10(答案).docx

PAGE PAGE # / 16 PAGE PAGE # / 16 喜羊羊运动会 ——撑杆跳高【试题描述】 运动会马上就要开始了，撑杆跳高场地上，羊村的 N(3 = N = 100)个村 民正排成一队有秩序地练习。 “好高啊，我都不知道自己能不能跳过去 ”，懒羊 羊慢条斯理地说道。 “这么高，不知道最少要几只羊叠在一起才会够得着 ”，沸 羊羊向来比较喜欢思考数学问题，这样说道。 试编一程序，计算出最少要几只羊叠在一起(一头羊踩在另一头羊的背 上)才能够得着横杆(所谓够得着，指羊的身高总和不小于横竿的高度 B)。如 果 N 头羊叠在一起，都够不着横竿，则输出 “Impossible ” 【输入描述】 第一行：两个整数N (3 = N = 100和B,表示队伍中羊的总数以及横竿 的高度。 第二行：空格隔开的 N 个整数，表示每只羊的身高 Hi(1 = Hi = 10000)。 【输出描述】一行，一个整数，表示最少要几头羊才能够到横竿。如果 N 只羊叠在一起都够不着则输出 “Impossible。 ” 【输入样例】 样例 1 ： 23 8 1 3 9 样例 2： 6 16 1 2 3 1 3 5 【输出样例】 样例 1：3 样例 2：Impossible PK【试题来源】武进区夏令营程序设计小能手 program ex1797; PK var n,i,j,t,sum:integer; b,s:real; a:array[1..100] of integer; begin readln(n,b); for i:=1 to n do read(a[i]); for i:=1 to n-1 do for j:=i+1 to n do if a[i]a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; s:=0; i:=0;sum:=0; repeat inc(i); s:=s+a[i]; inc(sum); until (s=b) or (i=n); if sb then write(Impossible) else write(sum); end. 彩票摇奖 (LOTTERY.PAS) 【问题描述】 为了丰富人民群众的生活、支持某些社会公益事业，北塔市设置了一项彩 票。该彩票的规则是： 每张彩票上印有 7 个各不相同的号码，且这些号码的取指范围为 1~33 每次在兑奖前都会公布一个由七个各不相同的号码构成的中奖号码。 共设置 7 个奖项，特等奖和一等奖至六等奖。兑奖规则如下： 特等奖：要求彩票上 7 个号码都出现在中奖号码中。 一等奖：要求彩票上有 6 个号码出现在中奖号码中。 二等奖：要求彩票上有 5 个号码出现在中奖号码中。 三等奖：要求彩票上有 4 个号码出现在中奖号码中。 四等奖：要求彩票上有 3 个号码出现在中奖号码中。 五等奖：要求彩票上有 2 个号码出现在中奖号码中。 六等奖：要求彩票上有 1 个号码出现在中奖号码中。 注：兑奖时并不考虑彩票上的号码和中奖号码中的各个号码出现的位置。 例如，中奖号码为 23 31 1 14 19 17 18，则彩票 12 8 9 23 1 16 7由于其中有两个 号码(23和 1)出现在中奖号码中，所以该彩票中了五等奖。 现已知中奖号码和小明买的若干张彩票的号码，请你写一个程序帮助小明 判断他买的彩票的中奖情况。 输入文件 (LOTTERY.IN：) 输入文件的第一行只有一个自然数 N 1000表示小明买的彩票张数；第 二行存放了 7个介于1和33之间的自然数，表示中奖号码；在随后的 N行中每 行都有 7 个介于 1 和 33 之间的自然数，分别表示小明所买的 N 张彩票。 输出文件 (LOTTERY.OU：T) 依次输出小明所买的彩票的中奖情况 (中奖的张数 )，首先输出特等奖的中奖 张数，然后依次输出一等奖至六等奖的中奖张数。 输入输出样例： 【输入样例】 LOTTERY.IN 2 23 31 1 14 19 17 18 12 8 9 23 1 16 7 11 7 10 21 2 9 31 【输出样例】 LOTTERY.OUT 0 0 0 0 0 1 1 彩票摇奖 (LOTTERY.PAS) 【问题描述】 为了丰富人民群众的生活、支持某些社会公益事业，北塔市设置了一项彩 票。该彩票的规则是： 每张彩票上印有 7个各不相同的号码，且这些号码的取指范围为 1~33。 每次在兑奖前都会公布一个由七个各不相同的号码构成的中奖号码。 78 PAGE 78 PAGE # / 16 PAGE PAGE # / 16 2 PAGE 2 PAGE # / 16 共设置 7 个奖项，特等奖和一等奖至六等奖。兑