NOIP初賽模擬試題(Pascal語言提高組)

NOIP初賽模擬試題(Pascal語言提高組)一、單項選擇題(共10題，每題1.5分，共計15分。每題有且僅有一個正確答案。)1.建立了計算機最主要的結(jié)構(gòu)原理的人是()。A.圖靈B.比爾?蓋茨C.馮?諾伊曼D.克拉拉?丹E.哥德爾2.設(shè)a、b、c是三個布爾型(boolean)的變量，則表達式(aVb)A(bVc)A(cVa)A(aAa)A(bAb)的值()。A.始終為trueB.始終為fale口C.當(dāng)且僅當(dāng)c為true時為fale口D.當(dāng)且僅當(dāng)a與b均為true時為trueE.依賴于a、b、c三者的值3.設(shè)a、b為兩個浮點(float)型變量，下面的表達式中最有可能為真的是O°A.a=bB.a某a+2某a某b+b某b=(a+b)某(a+b)C.(a+b)某(a-b)+b某b-a某a<0.0001D.a/b=1/(b/a)E.qrt(a)某qrt(b)=qrt(a某b)4.下面的數(shù)據(jù)中，在編程中用長整型(longint)表示最恰當(dāng)?shù)氖?)。A.宇宙中的原子數(shù)目口B.一頭大象的體重(用噸表示)C.姚明的身高(用厘米表示)D.一個山村的準確人口數(shù)E.從現(xiàn)在(2006年)到2022奧運會開幕的倒計時秒數(shù)5.一個三叉樹(即每個節(jié)點最多有三個孩子)中，有k個孩子的結(jié)點數(shù)目表示為S(k)，則下列關(guān)系一定成立的是()。A.S(0)=2某S(3)+S(2)-1B.S(0)>3某S(3)+2某S(2)TC.S(0)<3某S(3)+2某S(2)+1D.S(0)<2某S(3)+S(2)E.S(0)<=3某S(3)+2某S(2)口6.佳佳在網(wǎng)上購買了一個空間，建設(shè)了一個網(wǎng)站。那么，他向網(wǎng)站上上傳網(wǎng)頁時最有可能采用的網(wǎng)絡(luò)協(xié)議是()。A.72B.843C.112.5minD.3h48min16E.超過24小時8.假設(shè)用雙核CPU運行我們平常編寫的信息學(xué)競賽程序，相對于同等規(guī)格的單核CPU而言，運行時間()。A.會縮短為原來的1/9B.會縮短為原來的1/4C.會縮短為原來的1/2D.基本沒有差別E.會比原來略長9.將一臺多媒體PC的某個部件拔下來后，仍能正常啟動進入Window，這個部件可能是()?？贏.CMOSB.內(nèi)存。硬盤D.聲卡E.顯卡10.中國自主研發(fā)的通用CPU“龍芯一號”和“龍芯二號”的問世時間分別是()?？贏.2002，2005B.2003，2005C.2002，2004D.2003，2006E.2001，2004二、不定項選擇題(共10題，每題1.5分，共計15分。多選或少選均不得分)n.(7f)16+(10010101)2的運算結(jié)果等于()。口A.(114)16B.(276)10C.(100010100)2D.(11d)16E.(731)812.設(shè)a、b、c是三個布爾(boolean)型變量，若表達式aAbAc為true，則下列表達式一定為true的是()0A.(aA(bVc))V(a)B.(bAa)V(aAc)V(cAb)C.aAbAc口D.(bVa)A((aVb))E.以上皆錯13.下面的前序遍歷結(jié)果不可能是由一棵排序二叉樹產(chǎn)生的有()°A.1、2、3、4、5、6、7、8B.1、4、3、6、7、8、5、2C.8、7、6、5、4、3、2、1D.6、7、8、5、4、3、2、1E.以上皆錯口14.設(shè)想這樣一種數(shù)據(jù)結(jié)構(gòu)，它有PUSH和POP兩個操作。其中PUSH操作就是將一個元素加入到這個數(shù)據(jù)結(jié)構(gòu)中，而當(dāng)?shù)趉次調(diào)用POP元素時（保證這個數(shù)據(jù)結(jié)構(gòu)中有元素），選擇其中的一個元素返回并刪除，若k是奇數(shù)，選擇的是元素中的最大值，若k是偶數(shù)，選擇的是元素中的最小值。如果調(diào)用PUSH操作放入數(shù)據(jù)結(jié)構(gòu)中的元素依次是1、2、3、4、5、6,則下列序列中可能通過適當(dāng)?shù)腜OP操作產(chǎn)生的有（）。A.1、2、3、4、5、6B.1、2、3、4、6、5C.6、1、5、2、4、3D.2、1、6、3、5、4E.3、1、4、2、6、515.下面的軟件必須在聯(lián)網(wǎng)狀態(tài)下才能正常使用的有（）。A.BitTorrentB.MozillaFirefo某C.RedHatLinu某D.MSNMeengerE.WinZip16.下面的軟件可以免費無限制使用的有（）。口A.WinRARB.RealPlayerC.InternetE某plorerD.FreeBSDE.ACDSee17.下面的硬件接口中既不可以連接聲卡、又不可以連接鼠標的通訊設(shè)備或外設(shè)接口有（）。A.Pacal語言的出現(xiàn)時間早于C語言口BJava是目前對面向?qū)ο缶幊痰闹С肿钔晟频恼Z言口C.目前出現(xiàn)的任何計算機語言都能夠使用編譯器編譯成機器碼D.編譯好的程序只能在特定的操作系統(tǒng)和硬件平臺上使用E.一個使用Pacal語言編寫并編譯好的程序，我們可以將其還原成原來的Pacal代碼口三．問題求解（共2題，每題5分，共計10分）ABCDE-75864二43546三58673四67345五43653四、閱讀程序（共4題，每題8分，共計32分）23.programe某1;vara,b,c,i:integer;:array[0..300]ofinteger;begin程read(a,b,c);序：[0]:=a;[1]:=b;fori:=2tocdo[i]:=a某[i-2]+b某[i-1];writeln([c]);end.輸237口入：輸出：24.programe某2;procedureget;varc:char;beginread(c);程ifc<>'!’thenget;序：write('.',c,'.');end;beginget;end.輸曲11。”0「您!入：輸出：25.□programe某3;vara:real;b,i:integer;functionf(vard:real):real;begin程f:=1.0/(1-d);序:end;beginread(a,b);fori:=bdownto1doa:=f(a);write(a:2:1);end.輸0.51000入：輸出：26.programe某4;var:array[0..99]ofinteger;ii,i,j,n,wap:integer;r:boolean;procedurewp(i:integer;j:integer);vartmp:integer;begintmp:=[i];27.四、完善程序(前5空，每空2分，后6空，每空3分，共28分)[M：=[j];[j]:=tmp;end;procedurerev(i:integer;j:integer);beginwhileiifa=0thenbreak;a:=a某10;t[i]:=a;口[i]:=adivb;a:=amodb;forj:=0toi-1doif([j]=[i])and(t[j]=t[i])thenbegindec(d);②；end;ifd=0thenbreak;write([i]);③；end;end;beginread(a,b);if(a>b)theng:=gcd(a,b)ele④;a:=adivg;b:=bdivg;⑤;口a:=amodb;work(a,b);end.28.題目描述：在一個果園里，多多已經(jīng)將所有的果子打了下來，而且按果子的不同種類分成了不同的堆。多多決定把所有的果子合成一堆。每一次合并，多多可以把兩堆果子合并到一起，消耗的體力等于兩堆果子的重量之和。可以看出，所有的果子經(jīng)過n-1次合并之后，就只剩下一堆了。多多在合并果子時總共消耗的體力等于每次合并所耗體力之和。因為還要花大力氣把這些果子搬回家，所以多多在合并果子時要盡可能地節(jié)省體力。假定每個果子重量都為1，并且已知果子的種類數(shù)和每種果子的數(shù)目，你的任務(wù)是設(shè)計出合并的次序方案，使多多耗費的體力最少，并輸出這個最小的體力耗費值。例如有3種果子，數(shù)目依次為1，2，9。可以先將1、2堆合并，新堆數(shù)目為3，耗費體力為3。接著，將新堆與原先的第三堆合并，又得到新的堆，數(shù)目為12，耗費體力為12。所以多多總共耗費體力=3+12=15?？梢宰C明15為最小的體力耗費值。輸入：輸入包括兩行，第一行是一個整數(shù)n(1類數(shù)。第二行包含n個整數(shù)，用空格分隔，第i個整數(shù)ai(1輸出：輸出包括一行，這一行只包含一個整數(shù)，也就是最小的體力耗費值。輸入數(shù)據(jù)保證這個值小于2~31?？趐rogramfill2;var1,2:array[0..15000]oflongint;1low,1hi,2low,2hi:integer;r,l,,某，i,min1,min2:longint;functionpeekma^:longint;begin□min1:=1000000000;min2:=1000000000;if1low<>1hithenmin1:=1[1low];if2low<>2hithenmin2:=2[2low];if①thenbeginpeekmall:=1[1low];inc(1low);end口elebeginpeekmall:=2[2low];inc(2low);end;end;procedurewap(l:integer;r:integer);vartmp:longint;begintmp:=1[r];1[r]:=1[l];1[l]:=tmp;end;procedureort(low:integer;hi:integer);varl:longint;beginiflow>=hithen②ele某：=1[(10亞+5履1丫2]川@口(10亞,③)；l:=low;r:=hi;口w