tyvj主站部分题解.doc

主站题库 p1000 A+B Problem 【背景 】 为大家熟悉本系统创建本题！ 【描述】 输入两个自然数，输出他们的和 【输入格式】 输出两个自然数 x,y 【输出格式】 一个数，即x和y的和 【样例输入】 125 300 【样例输出】 425 【时间限制】 各个测试点1s 【题解】 这倒我就不讲了，没什么好注意。 【参考程序】 program ghfjk; var a,b:longint; begin readln(a,b); writeln(a+b); end. p1001第K极值 【描述】 给定一个长度为N(0n=10000)的序列，保证每一个序列 中的数字a[i]是小于maxlongint的非负整数，编程要求 求出整个序列中第k大的数字减去第k小的数字的值m，并 判断m是否为质数。(0k=n) 【输入格式】 第一行为2个数n，k（含义如上题） 第二行为n个数，表示这个序列 【输出格式】： 如果m为质数则 第一行为YES(没有引号） 第二行为这个数m 否则 第一行为NO 第二行为这个数m 【样例输入】 5 2 1 2 3 4 5 【样例输出】 YES 2 【时间限制】 各个测试点1s 【数据范围】 20%数据满足0n=10 50%数据满足0n=5000 100%数据满足0n=10000 a[i]=maxlongint 【注释】 对于第K大的详细解释: 如果一个序列为1 2 2 2 2 3 第1大 为3 第2大 为2 第3大 为2 第4大 为2 第5大 为1 第K小与上例相反 另外需要注意的是 最小的质数是2,如果小于2的话,请直接输出NO 【题解】 这道题很简单，先快排，在按要求判断该数是否为素数。 注释里的话一定要看！！（有很多人吃亏） 【参考程序】 program dfj; var n,k,i:longint; a:array[1..10000]of longint; procedure qs(l,r:longint); var i,j,m,t:longint; begin i:=l; j:=r; m:=a[(l+r) DIV 2]; repeat while a[i]m do inc(i); while a[j]m do dec(j); if i=j then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; inc(i); dec(j); end; until ij; if ir then qs(i,r); if lj then qs(l,j); end; function prime(x:longint):boolean; var i:longint; begin if x=1 then exit(false); if x=2 then exit(true); for i:=2 to trunc(sqrt(x)) do if x mod i=0 then exit(false); exit(true); end; begin readln(n,k); for i:=1 to n do read(a[i]); qs(1,n); if prime(a[n-k+1]-a[k])then writeln(YES) else writeln(NO); writeln(a[n-k+1]-a[k]); end. p1002 谁拿了最多奖学金 【描述】 某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同： 1)院士奖学金，每人8000元，期末平均成绩高于80分（80），并且在本学期内发表1篇或1篇以上论文的学生均可获得； 2)五四奖学金，每人4000元，期末平均成绩高于85分（85），并且班级评议成绩高于80分（80）的学生均可获得； 3)成绩优秀奖，每人2000元，期末平均成绩高于90分（90）的学生均可获得； 4)西部奖学金，每人1000元，期末平均成绩高于85分（85）的西部省份学生均可获得； 5)班级贡献奖，每人850元，班级评议成绩高于80分（80）的学生干部均可获得； 只要符合条件就可以得奖，每项奖学金的获奖人数没有限制，每名学生也可以同时获得多项奖学金。例如姚林的期末平均成绩是87分，班级评议成绩82分，同时他还是一位学生干部，那么他可以同时获得五四奖学金和班级贡献奖，奖金总数是4850元。 现在给出若干学生的相关数据，请计算哪些同学获得的奖金总数最高（假设总有同学能满足获得奖学金的条件）。 【输