2010年特长生测试.docVIP

一、最小的数 提交文件：( minnum.pas 和 minnum.exe ) 　　希望学校的李老师给学生出了一道这样的算式，Sn= 1＋1／2＋1／3＋…＋1／n。显然对于任意一个整数K，当n足够大的时候，Sn大于K。现在李老师给出一个整数K（1=k=15），要求同学们编程求出一个最小的n；使得Sn＞K。现在请你编程序来解决这个问题。 数据输入： 从文件minnum.in中读入数据，只有一个数表示K的值。 数据输出： 结果输出到文件minnum.out中，只有一个数，就是 n的值。 输入输出样例 Minnum.in 1 Minnum.out 2 解析：原版NOIP2005第一题，基础题 程序： var i,k,n:longint; s:real; begin readln(k); i:=0; s:=0; repeat i:=i+1; s:=s+1/i; until sk; writeln(i); end. 二、数据排序 提交文件：（sort.pas 和 sort.exe ） 小红是数学科代表，上星期小红所在的班进行了数学测验，数学老师由于要忙于备课和改作业，叫小红帮忙将数学测验成绩排一下序，按从高到低进行排名，成绩相同的名次也相同，然后以此类推。现在请你编一个程序，帮小红完成数据排名的工作。 数据输入： 从文件sort.in中读入数据，共有N+1行，第一行是一个正整数N(1N200)，表示有N个学生的成绩，接下来有N行，每行第一个数表示学生的学号x(x200)，第二个数是该学生的数学测验成绩y(0y=150)。 数据输出： 结果输出到文件sort.out中，按成绩从高到低输出(成绩相同的学号小的排在前面)，共有N行，每行三个数，分别为学生的学号、成绩、名次（两个数字之间用一个空格隔开）。 输入输出样例： Sort.in 4 1 125 3 90 4 138 2 125 Sort.out 138 1 125 2 125 2 90 4 解析: 简单的排序题。 程序： var n,i,j:integer; temp1,temp2,s:integer; xh,cj,mc:array[1..300] of integer; begin readln(n); for i:=1 to n do readln(xh[i],cj[i]); for i:=1 to n-1 do for j:=i+1 to n do begin if cj[i]cj[j] then begin temp1:=xh[i]; xh[i]:=xh[j]; xh[j]:=temp1; temp2:=cj[i]; cj[i]:=cj[j]; cj[j]:=temp2; end; if (cj[i]=cj[j]) and (xh[i]xh[j]) then begin temp1:=xh[i]; xh[i]:=xh[j]; xh[j]:=temp1; temp2:=cj[i]; cj[i]:=cj[j]; cj[j]:=temp2; end; end; temp1:=1; mc[1]:=1; for i:=2 to n do if cj[i]=cj[i-1] then mc[i]:=temp1 else begin temp1:=i; mc[i]:=temp1; end; for i:=1 to n do writeln(xh[i], ,cj[i], ,mc[i]); end. 三、蛇形矩阵 提交文件：（ snake.pas 和 snake.exe ） 小明对数字矩阵非常感兴趣，他很快就填写了一个蛇形矩阵出来，但要他编程序来完成这个功能可就难倒了小明，现在小明向你求助，请你帮助他编写一个填蛇形矩阵(如下例)的程序。 数据输入： 从文件snake.in中读入数据，只有一个正整数N(1=N=100)。 数据输出： 结果输出到snake.out中，就是一个N*N的蛇形矩阵（两个数字之间用一个空格隔开）。 输入输出样例： Snake.in 5 Snake.out 25 23 22 16 15 24 21 17 14 7 20 18 13 8 6 19 12 9 5 2 11 10 4 3 1 解析： 主要是模拟. 程序1： var i,j,k,n,x,y:integer; a:array[1.