pascal(中等難度)試題.doc

《pascal(中等難度)試題.doc》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、問題１【問題】甲乙丙丁戊五個(gè)人在運(yùn)動會上分獲百米、二百米、跳高、跳遠(yuǎn)和鉛球冠軍，有四個(gè)人猜測比賽結(jié)果：Ａ說：乙獲鉛球冠軍，丁獲跳高冠軍。Ｂ說：甲獲百米冠軍，戊獲跳遠(yuǎn)冠軍。Ｃ說：丙獲跳遠(yuǎn)冠軍，丁獲二百米冠軍。Ｄ說：乙獲跳高冠軍，戊獲鉛球冠軍。其中每個(gè)人都只說對一句，說錯(cuò)一句。求五人各獲哪項(xiàng)冠軍?！舅惴ā坑?,2,3,4,5分別代表百米、二百米、跳高、跳遠(yuǎn)和鉛球５個(gè)項(xiàng)目，用a,b,c,d,e分別代表五人。如b=3表示乙獲跳高冠軍。用多重循環(huán)窮舉出來?！敬鸢浮考滓冶∥欤保玻矗常?【參考程序】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.問題２【問題】５家工廠的產(chǎn)品在一次評比中分獲１，２，３，４，５，在公布結(jié)果前，已知Ｅ廠產(chǎn)品肯定不是第二、三名，五廠代表猜測評比結(jié)果，Ａ廠的代表說：Ｅ廠一定能獲得第一名。Ｂ

3、廠的代表說：我廠的產(chǎn)品可能獲第二名。Ｃ廠的代表說：Ａ廠的產(chǎn)品質(zhì)量最次。Ｄ廠的代表說：Ｃ廠的產(chǎn)品不是最好的。Ｅ廠的代表說：Ｄ廠的產(chǎn)品會獲得第一名。公布結(jié)果后，證明只有產(chǎn)品獲第一名和第二名的兩個(gè)廠的代表猜對了。求５個(gè)廠產(chǎn)品各獲第幾名?！敬鸢浮浚粒拢茫模牛担玻保常础緟⒖汲绦颉縱ara,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猜測產(chǎn)品質(zhì)量評獎(jiǎng)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);{順序?qū)懽帜竲forj:=pred(i)downto'A'dowrite(j);{逆序?qū)懽帜竲if(ord(i)-64)mod25=0thenreadln{如超一頁,要暫停分頁顯示}elsewriteln;end;end

7、.問題5進(jìn)制1【題目】鍵盤輸入一個(gè)十進(jìn)制的整數(shù)，及確定進(jìn)制n，把這個(gè)數(shù)轉(zhuǎn)換成相應(yīng)的n進(jìn)制輸出。（其中２〈＝n〈＝１６）例如：輸入１０，n＝３則輸出(10)10=(101)3【參考程序】vari,j,m,n:longint;a:array[1..100]ofbyte;{用數(shù)組存放求出的余數(shù)}beginwriteln('inputm,n');fillchar(a,sizeof(a),0);readln(m,n);write(m);i:=0;repeati:=i