pascal(低等难度)试题.docVIP

问题1 输入一个年号,判断它是否是闰年。　　分析：判断闰年的算法是：如果此年号能被400除尽， 或者它能被4整除而不能被100整除，则它是闰年。否则，它是平年。　　　　源程序如下:　　program ex;　　var year:integer;　　begin　　　write(Input year:);readln(year);　　　write(year:6);　　　if (year mod 400=0 )　then 　　　　writeln(is a leap year.)　　　else　　　　if (year mod 4=0)and(year mod 1000)　　　　then writeln(is a leap year.)　　　　else writeln(is not a leap year.);　　end. 问题2 判断1995年,每个月份的天数。　　分析：程序分为:输入月份,计算该月的天数,输出天数　　　　源程序如下：　　program days;　　var month,days:integer;　　begin　　　write(Input month:);readln(month);　　case month of　　　　1,3,5,7,8,10,12:days:=31;　　　　4,6,9,11 :days:=30;　　　　2 :days:=28;　　　　else days:=0;　　　end;　　　if days0 then writeln(Days=,days);　　end. 　问题3 期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。　　分析：对于以上的实际问题，要买尽量多的笔，易知都买4元的笔肯定可以买最多支笔。因此最多可买的笔为x div 4支。由于小q要把钱用完，故我们可以按以下方法将钱用完：　　若买完x div 4支4元钱的笔，还剩1元，则4元钱的笔少买1支，换成一支5元笔即可；若买完x div 4支4元钱的笔，还剩2元，则4元钱的笔少买1支，换成一支6元笔即可；若买完x div 4支4元钱的笔，还剩3元，则4元钱的笔少买2支，换成一支5元笔和一支6元笔即可。　　从以上对买笔方案的调整，可以看出笔的数目都是x div 4，因此该方案的确为最优方案。 源程序如下：　　program pen;　　　var a,b,c:integer;{a,b,c分别表示在买笔方案中，6元、5元和4元钱笔的数目}　　　　x,y:integer;{x，y分别表示剩余班费和买完最多的4元笔后剩的钱}　　　begin　　　　write(x=);readln(x){输入x}　　　　c:=x div 4;{4元笔最多买的数目}　　　　y:=x mod 4;｛求买完c支4元笔后剩余的钱数y｝　　　　case y of　　　　　0 : begin a:=0;b:=0; end;　　　　　1 : begin a:=0;b:=1;c:=c-1; end;　　　　　2 : begin a:=1;b:=0; c:=c-1;end;　　　　　3 : begin a:=1;b:=1; c:=c-2;end;　　　　end;　　　　writeln(a=,a,b=,b,c=,c);　　　end. 　 问题4 求N！＝1＊2＊3＊…＊N ，这里N不大于10。　　分析：程序要先输入N，然后从1累乘到N。　　程序如下：　　var 　　　　n,i : integer；｛i为循环变量｝　　　　S : longint;｛s作为累乘器｝　　begin　　　write(Enter n=);readln(n);{输入n}　　s:=1;　　　for i:=2 to n do｛从2到n累乘到s中｝　　　　s:=s*i;　　　writeln(n,!=,s);｛输出n!的值｝　　end. 问题5 求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。　　分析：恰好使s的值大于10意思是当表达式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