《2015程序设计答题分析(共6页).doc》由会员分享，可在线阅读，更多相关《2015程序设计答题分析(共6页).doc（6页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上2015程序设计答题分析（小学）1. 超市为了促销，规定：购物不足60元的按原价付款，超过60不足200的按九折付款，超过200元的，超过部分按八折付款。编程完成超市的自动计费的工作，输入购物金额原价，输出打折后的金额。分析：这个题是一个分支结构的多层嵌套。阅读题目要求时，对200元以上的，超过200的部分是8折，剩下的200元按9折算。打折后可能会是小数点，要考虑数据类型。Var n:real;Begin Read(n); If n60 then If n10 then j:=j-10; i:=i+j; if i10 then i:=i-10; until (i=1
2、) and (j=1); for i:=1 to 10 do if di0 then write(i);end.初中1从键盘输入一个小于1000的正整数, 若此数的各位数字之和能被7整除, 则输出这个数。分析：此题简单，但重点在“被”字上，对输入的数分解出个、十、百位上的数字，相加后得出的和被7整除。参考程序program p1;var n,m,k:integer;beginreadln(k);m:=0;while n0 dobeginm:=m+n mod 10;n:=n div 10;end;if m mod 7=0 then writeln(k);end.2. 键盘输入N，求N！末尾有多少
3、个连续的零。其中N!=123N（1=N=1000）。算法一：从1乘到n，每乘一个数判断一次，若后面有0则去掉后面的0，并记下0的个数。为了不超出数的表示范围，去掉与生成0无关的数，只保留有效位数，当乘完n次后就得到0的个数。（pascal程序如下）var i,t,n,sum:longint; begin t:=0; sum:=1;readln(n); for i:=1 to n do begin sum:=sum*i; while sum mod 10=0 do begin sum:=sum div 10; inc(t);计数器增加1 end; sum:=sum mod 1000;舍去与生成0
4、无关的数 end; writeln(t:6);end.算法二：此题中生成O的个数只与含5的个数有关，n！的分解数中含5的个数就等于末尾O的个数，因此问题转化为直接求n！的分解数中含5的个数。var t,n:integer;begin readln(n); t:=0; repeat n:=n div 5 ; inc(t,n); 计数器增加n until n= = = = = = = =是是是是是是是是是是是是是是是是b1b5b6b3b2b4b7b8b7b8b2b4b3b6blb5重轻轻重重轻重轻轻重轻重轻重轻重参考考生程序program p3;var cpcode:-8.8;cpweight,z
5、pweight,i:integer;wt:array1.8 of integer;function finddiff(a,b,c:integer):integer;beginif a=b thenif a=c then finddiff:=0else if ac then finddiff:=-3 else finddiff:=3elseif ab thenif b=c then finddiff:=1 else finddiff:=-2elseif b=c then finddiff:=-1 else finddiff:=2;end;beginwrite(cipin hao:);readln
6、(cpcode);write(cipin zhong:);readln(cpweight);write(zhengpinzhong:);readln(zpweight);write(cipin hao:);for i:=1 to 8 doif i=cpcode then wti:=cpweight else wti:=zpweight;if wt1+wt2+wt3wt4+wt5+wt6 thenbeginif finddiff(wt1,wt2,wt3)=0 thenif finddiff(wt4,wt5,wt6)0 then cpcode:=3+finddiff(wt4,wt5,wt6)els
7、e cpcode:=-3-finddiff(wt4,wt5,wt6)else cpcode:=finddiff(wt1,wt2,wt3);endelsebeginif wt7wt8 then if wt7wt1 then cpcode:=7 else cpcode:=-8else if wt7=wt1 then cpcode:=8 else cpcode:=-7;end;writeln(abs(cpcode);write(Cipin: );if cpcode0 then writeln(QING) else writeln(ZHONG);end.4. 任意一个自然数，我们可以将其平均截取成三个
8、自然数。例如，可以截取成13,57,68。如果某自然数不能平均截取(位数不能被3整除)，可将该自然数高位补零后截取。如4128，可在高位补零后成为，平均截取成00，41，28三个数。编程从键盘上输入一个自然数N(N的位数12)，计算截取后第一个数加第三个数减第二个数的结果。分析：此题难点数据类型上，限定小于12位的自然数已超出长整数的范围，可以转成字符串来运行。参考程序 program p4;Var n:sting12; I,m,code,a:integer;Begin Readln(n);Case length(n) mod 3 of2: n:0+0;1: n :=00+n;End;Val(copy(n,length(n) div 3),m,code);A:=m;Val(copy(nl 专心-专注-专业