2008年东莞市小学生程序设计竞赛镇区选拨赛上机试题(下发)

2008年东莞市小学生程序设计竞赛镇区选拔赛上机试题（考试时间：2008年4月26日下午2：30-5：30）注意事项：1、本试题共四大题，每题100分，共400分；2、本试题全部为上机编程题，三小时完成，以测试数据测试程序的形式进行测评；3、严格按题目要求进行数据输入和结果的输出，否则将严重影响得分。

4、要求提交pascal源文件和编译后的EXE文件，以EXE文件进行测试。

一、素数个数（geshu.pas/geshu.exe）问题描述“六一”儿童节到了，五年级2的张老师组织了数素数游戏，游戏规则是这样的：张老师任意给出一个正整数M，参加游戏者说出1至M之间（包括1和M）素数的个数，谁最先说出正确的答案将会得到一个奖品。

现在请你编写一个程序对给出的M，输出正确的答案。

数据输入从文件geshu.in中读入数据，文件中只有一个正整数M（M为小于30000的正整数）数据输出结果输出到文件geshu.out中，只有一个数，就是1到M之间的素数的个数。

输入输出样例Geshu.in20Geshu.out8//说明：1到20之间共有8个素数：2，3，5，7，11，13，17，19program geshu;var a:array[1..30000] of integer;t,i,j,n:longint;fin,fout:text;beginassign(fin,'geshu.in');assign(fout,'geshu.out');reset(fin);rewrite(fout);readln(fin,n);fillchar(a,sizeof(a),0);a[2]:=2;i:=3;repeata[i]:=i;i:=i+2;until i>n;i:=3;repeatif a[i]>0 thenbeginj:=i+i;repeata[j]:=0;j:=j+i;until j>n;end;i:=i+2;until i>n;t:=0;for i:=2 to n doif a[i]>0 thenbegint:=t+1;end;writeln(fout,t);close(fin);close(fout);end.二、产品编号(chanpin.pas/chanpin.exe)问题描述某工厂一车间有M件产品，某中一件产品不合格，现在要找出来。

只知道它的位置可以这样寻求：产品编号为1—M，从1开始数1，2，3，…，将数到K的产品拿出来，然后继续数数1，2，3，…，数到K又将其取出，这样不断继续下去，数完后返回开头接着数，最后剩下的，就是所要找的不合格产品（凡被拿出来的产品，其位置，下次数时就跳过不再数）。

请编写程序，找出不合格产品的编号。

数据输入从文件chanpin.in中读入数据，文件中只有一行，为两个正整数M和K的值（M和K 是小于10000的正整数）。

数据输出结果输出到文件chanpin.out中，只有一个数，就是不合格产品的编号。

输入输出样例Chanpin.in8 3Chanpin.out4program chanpin;var a,b:array[1..20000] of integer;s,i,j,t:integer;n,m:integer;fin,fout:text;beginassign(fin,'chanpin.in');assign(fout,'chanpin.out');reset(fin);rewrite(fout);readln(fin,n,m);for i:=1 to n do a[i]:=1;s:=0;j:=1;t:=0;repeatif a[j]>0 thenbegins:=s+a[j];if s=m thenbegina[j]:=0;s:=0;t:=t+1;b[t]:=j;end;end;j:=j+1;if j>n then j:=1;until t=n;writeln(fout,b[n]);close(fin);close(fout);end.三、最大价值(beibao.pas/beibao/exe)问题描述很快小明的生日到了,小明的父母为了给小明过一个开心的生日,叫小明到城里唯一的一间儿童商店购买小明喜欢的商品,商店里共有n种商品，商品i的总重量为w[i]，商品i 总价值为v[i]，小明带了一个背包去商店，背包最多能装M的重量。

其中(1 <= i <= N, 0 < w[i] < M)。

现在请你编一个程序帮小明算一算：怎样装才能使背包中装入的商品价值最高（对于每种商品i可以只装该商品的一部分x[i]，当然也只能获得部分的价值：(x[i]/w[i])*v[i]）。

数据输入：从文件beibao.in中读入数据，文件的第一行是两个正整数N和M，N表示商店共有N 种商品，M表示小明背包的最大容量，接下来共有N行，每行有两个正整数w[i]和v[i]表示第i种商品的重量和第i种商品的价值。

数据输出：结果输出到文件beibao.out中，只有一个正整数，表示小明能获得的最大价值，结果四舍五入到小数后第二位。

输入输出样例：Beibao.in3 21 //有3种商品，背包的最大容量为216 14 //第1种商品的重量为6，总价值为1410 8 //第2种商品的重量为10，总价值为818 20 //第3种商品的重量为18，总价值为20Beibao.out30.67样例说明：第一种商品取重量为6，第三种商品取重量为15，故所得到的价值为：（14/6）*6+（20/18）*15=30.67说明：N为小于等于50的正整数，M为小于等于是1000的正整数，其余数据全部为小于100的正整数，注意结果四舍五入到小数后第二位。

program beibao;var n,m,t:integer;w,v,x:array[1..1000] of integer;s:real;i,j:integer;fin,fout:text;beginassign(fin,'beibao.in');assign(fout,'beibao.out');reset(fin);rewrite(fout);readln(fin,n,m);for i:=1 to n doreadln(fin,w[i],v[i]);for i:=1 to n-1 dofor j:=i+1 to n doif (v[i]/w[i])<(v[j]/w[j]) thenbegint:=w[i]; w[i]:=w[j]; w[j]:=t;t:=v[i]; v[i]:=v[j]; v[j]:=t;end;i:=1;while (w[i]<m) and (i<=n) dobeginx[i]:=w[i];m:=m-w[i];i:=i+1;end;if (i<=n) then x[i]:=m;s:=0;for i:=1 to n dos:=s+((v[i]/w[i])*x[i]);writeln(fout,s:0:2);close(fin);close(fout);end.四、最简密码(mima.pas/mima.exe)问题描述小明是希望小学五年级的学生，最近从某侦探小说中看来一种解密方法，解密方法是这样的，假设你输入的密码是一个正整数M，M中非零数字的乘积，如整数999的数字乘积为9×9×9，即729，729的数字乘积为7×2×9，即为126。

126的数字乘积为1×2×6，即为12。

12的数字乘积为1×2，即2。

最简密码就是对输入的密码（位数小于100的正整数），反复取该整数的数字乘积，直到得到一位数字为止，这个一位数字就是最简密码，如密码999的最简密码是2。

现在要你编写一个程序对输入的正整数密码M，求出它的最简密码。

数据输入从文件mima.in中读入数据，文件中只有一个正整数M，表示原始密码（M是一个位数小于等于100的正整数）数据输出结果输出到文件mima.out中，只有一个正整数，就是M对应的最简密码。

输入输出样例Mima.in999Mima.out2说明：1、30%的数据为小于10位的正整数；2、60%的数据为小于50位的正整数；3、100%的数据为小于100位的正整数。

program mima;var a,b,h,d:string;fin,fout:text;y,t:integer;procedure count(c:string;t:integer;var d:string);var i,j,p:integer; xx:string;begind:=''; j:=0;for i:=length(c) downto 1 dobeginp:=t*(ord(c[i])-ord('0'));p:=p+j;j:=p div 10; p:=p mod 10;str(p,xx);d:=xx+d;end;str(j,xx);if j>0 then d:=xx+d; end;beginassign(fin,'mima.in'); assign(fout,'mima.out'); reset(fin);rewrite(fout);readln(fin,a);close(fin); b:=a;repeath:='1';for y:=1 to length(b) dobegint:=ord(b[y])-ord('0');if t>0 thenbegincount(h,t,d);h:=d;end;end;b:=d;until length(d)<=1; writeln(fout,d);close(fout);end.。