noip复赛 春季第二课【DOC精选】.doc

2010年信息学练习（2） 完成时间：3小时,周日前发邮件到：wxdhb@163.com 1、数字统计。（count.pas） 统计一个自然数N中，大于数字M的数字的个数。（N10100） 输入：一行，两个整数，第一个数N，第二个数是M（M10），两数之间有一个空格。 输出：一个数字，表示个数。 样例:count.in 234 2 count.out 2 2、cantor表（cantor.pas） 现代数学的著名证明之一是Georg Cantor证明了有理数是可枚举的。他是用下面这一张表来证明这一命题的： 1/1 1/2 1/3 1/4 1/5 … 2/1 2/2 2/3 2/4 … 3/1 3/2 3/3 … 4/1 4/2 … 5/1 … … 我们以Z字形给上表的每一项编号。第一项是1/1，然后是1/2，2/1，3/1，2/2，… 输入：整数N（1≤N 输出：表中的第N项 样例： cantor.in 　　　　　　　7 cantor.out 1/4 3、求最大数(max.pas) 设有n个正整数（n≤20），将它们联接成一排，组成一个最大的多位整数。 例如：n=3时，3个整数13，312，343联接成的最大整数为又如：n=4时，4个整数7，13，4，246联接成的最大整数为：7424613 程序输入：n n个数 程序输出：联接成的多位数 样例：max.in 3 13 312 343 max.out 4、找礼物[find.pas] 【问题描述】 新年到了，突然间，就在那美丽的一霎那，你好友和你（K个人）的周围满是礼物，你发扬你帅气的风格，让你的好友先拿，但是每个人只能拿当前离自己最近的礼物[当然如果有并列的多个礼物离你的距离相等（精确到小数后四位,所有运算均为去尾），这些礼物就都属于这个人]。现在你们所在的位置是原点(0,0)，每个礼物的位置用坐标表示。现在告诉你每个礼物的坐标，还有每个礼物是谁送的。要你找出你的礼物离你多远，你能拿到多少礼物，这些礼物是谁送的。如果你拿不到礼物，请输出“555…” 【输入】 第一行：N 和 K 分别表示礼物的个数和人数。 第二到N+1行：每行先是赠送礼品人的姓名，然后是礼物的坐标（x,y）。 数据间空格分割 【输出】 第一行： D 和 U 表示礼物距你多远（只要去尾后的整数）和你能拿到多少礼物。 第二到U+1行：每行一个人名，表示送礼的人。按照输入的顺序输出 【输入输出样例】 样例： 输入（find.in）： 6 2 Jim 1 –1 Flord 3 –3 Joseph –1 1 Steve 3 3 Tiger 2 –10 User 10 20 输出(find.out)： 4 2 Flord Steve 样例说明：jim 和 joseph 的礼品是等距的距离最短，被第一个人拿走，剩下的四个人中flord和steve的礼物也是等距的计算得到距离为4。 【数据范围】 对于30%的数据 K≤N≤1000 对于所有的数据 K≤N≤100000 所有的坐标绝对值小于106 提示：该题在第3次作业中，没有一个人能拿分，所以本次要求重做，本题的难点是输入的数据怎样处理，根据坐标(x,y)，求到原点（0，0）的距离方法是：sqrt(x*x+y*y)。 部分程序段如下： Var a,b:array[1..10000] of real; st1:array[1..10000] of string; st:char; 快速排序过程sort（注意：var x,y：real） readln(n,k); for i:=1 to n do {每一行的处理方法} begin read(st); {开始是一个字符} while st do begin st1[i]:=st1[i]+st; {将姓名导入到字符串中} read(st); end; readln(m,t)