pascal练习题(附答).docVIP

测定素数(check.pas/c/cpp)* 【描述】 输入n个数，测定他们是不是素数 【输入格式】 两行，第一行为n，第二行有n个数（Xi），数与数之间用空格分开。（1≤N≤1000）；（1≤Xi≤5000000） 【输出格式】 一行n个true或false，输出对应的数字是否是素数（TRUE和FALSE之间用空格隔开） 【输入样例】 5 99 88 1 2 3 【输出样例】 FALSE FALSE FALSE TRUE TRUE 校门外的树(tree.pas/c/cpp) 【描述输入格式 输出文件tree.out包括一行，这一行只包含一个整数，表示马路上剩余的树的数目。 【样例输入】 500 3 150 300 100 200 470 471 【样例输出】 298 【数据限制】 对于20%的数据，区域之间没有重合的部分；对于其它的数据，区域之间有重合的情况。10 56 12 1 99 1000 234 33 55 99 812 【样例输出】 532.00 提示：每人等待时间包括排队等待时间、自己打水时等待的时间。 统计人数（count.pas/c/cpp）* 【描述】 数学竞赛结束后，各个班主任老师都很迫切地想知道自己班级在全年段前N名的人数。于是，教务主任就请来信息学兴趣小组的同学来帮忙，要求编写一程序，只要告诉计算机要查的班级K班和名次前N 名，然后再输入M个学生的成绩，计算机就统计出K班在年段前N名中的人数。（假设每个学生的总分各不相同） 【输入格式】 输入文件count.in共M+1行 第一行三个整数依次为M，K，N，分别表示全年段共有M个学生，要统计的是K班在全年段前N名的人数。（M≤1000,K≤20,N≤M） 接下来M行是M个学生的班级和成绩，中间用一个空格隔开。 【输出格式】 输出文件count.out共一行，表示K 班在年段前N名中的人数。 【样例输入】 7 2 5 2 65 3 90 9 100 8 64 2 66 2 80 4 84 【样例输出】 2 //check.pas const maxN=5000000; var a:Array[1..maxN] of boolean;//设定一个筛，根据题目要求设1~500w n,i,j,x:longint; begin fillchar(a,sizeof(a),true); //全设为true a[1]:=false; //1不是素数，直接标记为false for i:=2 to trunc(sqrt(maxN)) do //因为每个数据大小不定，所以2~500w的素数都必须筛出来 if a[i] then for j:=2 to maxN div i do a[i*j]:=false; assign(input,check.in);reset(input); assign(output,check.out);rewrite(output); readln(n); for i:=1 to n do //有了判定的素数的表（数组），下面操作直接读入-》查表-》输出即可 begin read(x); write(a[x], ); end; close(input);close(output); end. //tree.pas var i,j,L,m,s,e,t:integer; a:array[0..10000] of boolean; //注意起点是0，所以数组下标从0开始 begin assign(input,tree.in);reset(input); assign(output,tree.out);rewrite(output); readln(L,m); for i:=0 to L do a[i]:=true; //首先定义这些树都在（0~L） for i:=1 to m do begin readln(s,e); for j:=s to e do a[j]:=false; //从s开始到e结束的都标记为false，即树被移走了 end; t:=0; for i:=0 to L do if a[i] then inc(t); //统计0~L之间有多少个true即可 writeln(t); close(input);close(output); end. //water.pas var a:array[1..10000] of longint; n,m,i,j,t,s:long