资源描述：
《(低等难度)试题 (1)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、问题1输入一个年号,判断它是否是闰年。 分析：判断闰年的算法是：如果此年号能被400除尽，或者它能被4整除而不能被100整除，则它是闰年。否则，它是平年。 源程序如下: programex; varyear:integer; begin write('Inputyear:');readln(year); write(year:6); if(yearmod400=0) then writeln('isaleapyear.') else if(yearmod4=0)and(yearmod100<>0) thenw
2、riteln('isaleapyear.') elsewriteln('isnotaleapyear.'); end.问题2判断1995年,每个月份的天数。 分析：程序分为:输入月份,计算该月的天数,输出天数 源程序如下： programdays; varmonth,days:integer; begin write('Inputmonth:');readln(month); casemonthof 1,3,5,7,8,10,12:days:=31; 4,6,9,11:days:=30; 2:days:=28;
3、 elsedays:=0; end; ifdays<>0thenwriteln('Days=',days); end. 问题3期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。 分析：对于以上的实际问题，要买尽量多的笔，易知都买4元的笔肯定可以买最多支笔。因此最多可买的笔为xdiv4支。由于小q要把钱用完，故我们可以按以下方法将钱用完： 若买
4、完xdiv4支4元钱的笔，还剩1元，则4元钱的笔少买1支，换成一支5元笔即可；若买完xdiv4支4元钱的笔，还剩2元，则4元钱的笔少买1支，换成一支6元笔即可；若买完xdiv4支4元钱的笔，还剩3元，则4元钱的笔少买2支，换成一支5元笔和一支6元笔即可。 从以上对买笔方案的调整，可以看出笔的数目都是xdiv4，因此该方案的确为最优方案。源程序如下： program7pen; vara,b,c:integer;{a,b,c分别表示在买笔方案中，6元、5元和4元钱笔的数目} x,y:integer;{x，y分别表示剩余班费和买完最多的4元笔后剩的
5、钱} begin write('x=');readln(x){输入x} c:=xdiv4;{4元笔最多买的数目} y:=xmod4;｛求买完c支4元笔后剩余的钱数y｝ caseyof 0:begina:=0;b:=0;end; 1:begina:=0;b:=1;c:=c-1;end; 2:begina:=1;b:=0;c:=c-1;end; 3:begina:=1;b:=1;c:=c-2;end; end; writeln('a=',a,'b=',b,'c=',c); end. 问
6、题4求N！＝1＊2＊3＊…＊N，这里N不大于10。 分析：程序要先输入N，然后从1累乘到N。 程序如下： var n,i:integer；｛i为循环变量｝ S:longint;｛s作为累乘器｝ begin write('Entern=');readln(n);{输入n} s:=1; fori:=2tondo｛从2到n累乘到s中｝ s:=s*i; writeln(n,'!=',s);｛输出n!的值｝ end.问题5求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。 分析："恰好使s的值大于10"意思是
7、当表达式s的前n-1项的和小于或等于10，而加上了第n项后s的值大于10。从数学角度，我们很难计算这个n的值。故从第一项开始，当s的值小于或等于10时，就继续将下一项值累加起来。当s的值超过10时，最后一项的项数即为要求的n。 程序如下： var s:real; n:integer;｛n表示项数｝ begin s:=0.0;n:=0; whiles<=10do｛当s的值还未超过10时｝ begin n:=n+1;｛项数加1｝ s:=s+1/n;｛将下一项值累加到s｝ end; writlen('n
8、=',n);｛输出结果｝ end. 问题67求两个正整数m和n的
