pascal(中等難度)試題

《pascal(中等難度)試題》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、問(wèn)題1【問(wèn)題】甲乙丙丁戊五個(gè)人在運(yùn)動(dòng)會(huì)上分獲百米、二百米、跳高、跳遠(yuǎn)和鉛球冠軍，有四個(gè)人猜測(cè)比賽結(jié)果：A說(shuō)：乙獲鉛球冠軍，丁獲跳高冠軍。B說(shuō)：甲獲百米冠軍，戊獲跳遠(yuǎn)冠軍。C說(shuō)：丙獲跳遠(yuǎn)冠軍，丁獲二百米冠軍。D說(shuō)：乙獲跳高冠軍，戊獲鉛球冠軍。其中每個(gè)人都只說(shuō)對(duì)一句，說(shuō)錯(cuò)一句。求五人各獲哪項(xiàng)冠軍?！舅惴ā坑?23,4,5分別代表百米、二百米、跳高、跳遠(yuǎn)和鉛球5個(gè)項(xiàng)目，用a,b,c,d,e分別代表五人。如b=3表示乙獲跳高冠軍。用多重循環(huán)窮舉出來(lái)?！敬鸢浮考滓冶∥?2435【參考程序】vara,b,c,d,e:byte;beginfora:=lto5doforb:=lto5dofo

2、rc:=lto5doford:=lto5dobegine:=15-a-b-c-d;if(ord(b=5)+ord(d=3)=l)and(ord(a=l)+ord(e=4)=l)and(ord(c=4)+ord(d=2)=1)and(ord(b=3)+ord(e=5)=l)and(a*b*c*d*e=120)thenwriteln('a:：6‘b:；b,'c:',c,'d:',d/e:',e);end;end.問(wèn)題2【問(wèn)題】5家工廠的產(chǎn)品在一次評(píng)比中分獲1,2,3,4,5,在公布結(jié)果前，己知E廠產(chǎn)品肯定不是第二、三名，五廠代表猜測(cè)評(píng)比結(jié)果，A廠的代表說(shuō)：E廠一定能獲得第一名。B廠

3、的代表說(shuō)：我廠的產(chǎn)品可能獲第二名。C廠的代表說(shuō)：A廠的產(chǎn)品質(zhì)量最次。D廠的代表說(shuō)：C廠的產(chǎn)品不是最好的。E廠的代表說(shuō)：D廠的產(chǎn)品會(huì)獲得第一名。公布結(jié)果后，證明只有產(chǎn)品獲第一名和第二名的兩個(gè)廠的代表猜對(duì)了。求5個(gè)廠產(chǎn)品各獲第幾名?！敬鸢浮緼BCDE52134【參考程療:】vara,b,c,d,e:byte;beginfora:=lto5doforb:=lto5doforc:=1to5doford:=lto5dobegine:=15-a-b-c-d;and(a*b*c*d*e=120)thenif(ord(e=l)+ord(b=2)+ord(a=5)+ordd=l)=2)and(o

4、rd((e=l)and((a=l)or(a=2)))+ord((b=2)and((b=l)or(b=2)))+ord((a=5)and((c=l)or(c=2)))+)and((d=l)or(d=2)))+ord((d=l)and((e=l)or(e=2)))=2)thenwriteln('a:*za/b:',b/c:cjd::d,'e:',e);end;end.問(wèn)題3邏輯判斷v誰(shuí)是小偷a問(wèn)題3av誰(shuí)獲冠軍？a問(wèn)題1av猜測(cè)產(chǎn)品質(zhì)量評(píng)獎(jiǎng)a問(wèn)題2a問(wèn)題3【問(wèn)題】有A、B、C、D四名偷竊嫌疑犯，其中一人是小偷，審問(wèn)中，A說(shuō)："我不是小偷〃，B說(shuō)："C是小偷〃，C

5、說(shuō)：“小偷肯定是D〃，D說(shuō)："C在冤枉人〃，有三人說(shuō)真話，一人說(shuō)假話，問(wèn)到底誰(shuí)是小偷？【參考程序】varthief:char;beginforthief:='A'toDdoi>'A')+ord(thief='C')+ord(thief='D')+ord(thief3thenwriteln('TheThiefis:thief);end.問(wèn)題4字母塔【問(wèn)題】輸出由字母組成的“字母塔〃。例如：輸入C,則輸出：AABAABCBAABCDCBA【參考程序】vari,zimu,j,k:char;beginrepeatwriteln('inputachar:');readln(zimu);

6、zimu:=upcase(zimu);until(zimu>='A‘)andfori:='A'tozimudobeginwrite(":(ord(zimu)-ord(i))+l);｛留空格｝forj:='A'toidowrite(j);｛順序?qū)懽帜福齠orj:=pred(i)downto'A'dowrite(j);｛逆序?qū)懽帜福齣f(ord(i)-64)mod25=0thenread1門｛如超一頁(yè)，要暫停分頁(yè)顯示｝elsewriteln;end;end.問(wèn)題5進(jìn)制1【題目】鍵盤輸入一個(gè)十進(jìn)制的整數(shù)，及確定進(jìn)制n,把這個(gè)數(shù)轉(zhuǎn)換成相應(yīng)的n進(jìn)制輸出。(其中2〈=n〈=16)例如：輸入

7、10,n=3則輸出(10)10=(101)3【參考程序】vari,j,m,n:longint;a:array[1..100]ofbyte;｛AH數(shù)組存放求出的余數(shù)｝beginwritelnf'inputm,n')；fillchar(a,sizeof(a),0);readln(m’n);write(m);i:=0;repeati:=i+l;a[i]:=mmodn;m:=mdivn;untilm=0;write(-C)；forj:=idownto1doifa[j]>9thenwrite(chr(