pascal(中等难度)试题.doc

pascal(中等难度)试题.doc

ID:50853514

大小:57.50 KB

页数:12页

时间:2020-03-15

pascal(中等难度)试题.doc_第1页
pascal(中等难度)试题.doc_第2页
pascal(中等难度)试题.doc_第3页
pascal(中等难度)试题.doc_第4页
pascal(中等难度)试题.doc_第5页
资源描述:

《pascal(中等难度)试题.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、问题1【问题】甲乙丙丁戊五个人在运动会上分获百米、二百米、跳高、跳远和铅球冠军,有四个人猜测比赛结果:A说:乙获铅球冠军,丁获跳高冠军。B说:甲获百米冠军,戊获跳远冠军。C说:丙获跳远冠军,丁获二百米冠军。D说:乙获跳高冠军,戊获铅球冠军。其中每个人都只说对一句,说错一句。求五人各获哪项冠军。【算法】用1,2,3,4,5分别代表百米、二百米、跳高、跳远和铅球5个项目,用a,b,c,d,e分别代表五人。如b=3表示乙获跳高冠军。用多重循环穷举出来。【答案】甲乙丙丁戊12435 【参考程序】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.问题2【问题】5家工厂的产品在一次评比中分获1,2,3,4,5,在公布结果前,已知E厂产品肯定不是第二、三名,五厂代表猜测评比结果,A厂的代表说:E厂一定能获得第一名。B

3、厂的代表说:我厂的产品可能获第二名。C厂的代表说:A厂的产品质量最次。D厂的代表说:C厂的产品不是最好的。E厂的代表说:D厂的产品会获得第一名。公布结果后,证明只有产品获第一名和第二名的两个厂的代表猜对了。求5个厂产品各获第几名。【答案】ABCDE52134【参考程序】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问题3av谁获冠军?a问题1av猜测产品质量评奖a问题2a问题3【问题】有A、B、C、D四名偷窃嫌疑

5、犯,其中一人是小偷,审问中,A说:“我不是小偷”,B说:“C是小偷”,C说:“小偷肯定是D”,D说:“C在冤枉人”,有三人说真话,一人说假话,问到底谁是小偷?【参考程序】varthief:char;beginforthief:='A'to'D'doiford(thief<>'A')+ord(thief='C')+ord(thief='D')+ord(thief<>'D')=3thenwriteln('TheThiefis:',thief);end.问题4字母塔【问题】输出由字母组成的“字母塔”。例如:输入C,则输出: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进制输出。(其中2〈=n〈=16)例如:输入10,n=3则输出(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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。