资源描述：
《pascal(中等难度)试题.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、问题１【问题】甲乙丙丁戊五个人在运动会上分获百米、二百米、跳高、跳远和铅球冠军，有四个人猜测比赛结果：Ａ说：乙获铅球冠军，丁获跳高冠军。Ｂ说：甲获百米冠军，戊获跳远冠军。Ｃ说：丙获跳远冠军，丁获二百米冠军。Ｄ说：乙获跳高冠军，戊获铅球冠军。其中每个人都只说对一句，说错一句。求五人各获哪项冠军。【算法】用1,2,3,4,5分别代表百米、二百米、跳高、跳远和铅球５个项目，用a,b,c,d,e分别代表五人。如b=3表示乙获跳高冠军。用多重循环穷举出来。【答案】甲乙丙丁戊１２４３５ 【参考程序】vara,b,c,d,e:byte;beginfora:=1to5doforb:=1to5dofo
2、rc:=1to5doford:=1to5dobegine:=15-a-b-c-d;if(ord(b=5)+ord(d=3)=1)and(ord(a=1)+ord(e=4)=1)and(ord(c=4)+ord(d=2)=1)and(ord(b=3)+ord(e=5)=1)and(a*b*c*d*e=120)thenwriteln('a:',a,'b:',b,'c:',c,'d:',d,'e:',e);end;end.问题２【问题】５家工厂的产品在一次评比中分获１，２，３，４，５，在公布结果前，已知Ｅ厂产品肯定不是第二、三名，五厂代表猜测评比结果，Ａ厂的代表说：Ｅ厂一定能获得第一名。Ｂ
3、厂的代表说：我厂的产品可能获第二名。Ｃ厂的代表说：Ａ厂的产品质量最次。Ｄ厂的代表说：Ｃ厂的产品不是最好的。Ｅ厂的代表说：Ｄ厂的产品会获得第一名。公布结果后，证明只有产品获第一名和第二名的两个厂的代表猜对了。求５个厂产品各获第几名。【答案】ＡＢＣＤＥ５２１３４【参考程序】vara,b,c,d,e:byte;beginfora:=1to5doforb:=1to5doforc:=1to5doford:=1to5dobegine:=15-a-b-c-d;if(e<>2)and(e<>3)and(a*b*c*d*e=120)thenif(ord(e=1)+ord(b=2)+ord(a=5)+o
4、rd(c<>1)+ord(d=1)=2)and(ord((e=1)and((a=1)or(a=2)))+ord((b=2)and((b=1)or(b=2)))+ord((a=5)and((c=1)or(c=2)))+ord((c<>1)and((d=1)or(d=2)))+ord((d=1)and((e=1)or(e=2)))=2)thenwriteln('a:',a,'b:',b,'c:',c,'d:',d,'e:',e);end;end.问题3逻辑判断v谁是小偷a问题３av谁获冠军？a问题１av猜测产品质量评奖a问题２a问题３【问题】有Ａ、Ｂ、Ｃ、Ｄ四名偷窃嫌疑
5、犯，其中一人是小偷，审问中，Ａ说：“我不是小偷”，Ｂ说：“Ｃ是小偷”，Ｃ说：“小偷肯定是Ｄ”，Ｄ说：“Ｃ在冤枉人”，有三人说真话，一人说假话，问到底谁是小偷？【参考程序】varthief:char;beginforthief:='A'to'D'doiford(thief<>'A')+ord(thief='C')+ord(thief='D')+ord(thief<>'D')=3thenwriteln('TheThiefis:',thief);end.问题4字母塔【问题】输出由字母组成的“字母塔”。例如：输入Ｃ，则输出：AABAABCBAABCDCBA【参考程序】vari,zimu,j,
6、k:char;beginrepeatwriteln('inputachar:');readln(zimu);zimu:=upcase(zimu);until(zimu>='A')and(zimu<='Z');fori:='A'tozimudobeginwrite('':(ord(zimu)-ord(i))+1);{留空格}forj:='A'toidowrite(j);{顺序写字母}forj:=pred(i)downto'A'dowrite(j);{逆序写字母}if(ord(i)-64)mod25=0thenreadln{如超一页,要暂停分页显示}elsewriteln;end;end
7、.问题5进制1【题目】键盘输入一个十进制的整数，及确定进制n，把这个数转换成相应的n进制输出。（其中２〈＝n〈＝１６）例如：输入１０，n＝３则输出(10)10=(101)3【参考程序】vari,j,m,n:longint;a:array[1..100]ofbyte;{用数组存放求出的余数}beginwriteln('inputm,n');fillchar(a,sizeof(a),0);readln(m,n);write(m);i:=0;repeati:=i
