【正文】 空 2 分，后 6 空，每空 3 分，共 28 分)1.（1）num + len[i] div t （2 ）num = k （3）eft := 0 （4）left + 1 （ 5）not isok(mid) （或者 isok(mid) = false） 2.（1）get := 1 （2）get(x 1, y 1) （3）s + t p + 1 （4） inc(t) （或者 t := t + 1） （5）sum （6）1, len,NOIP2022 年（第十屆）提高組（Pascal 語言）參考答案一、單項選擇題1. A 2. D 3. E 4. C 5. B 6. B 7. C 8. D 9. C 二、 不定項選擇題 11. BC 12. ACDE 13. BCD 14. D 15. AC 16. BE 17. ADE 18. ACD 19. ABDE 20. BCE 三、問題求解1. 10 b d f g e c四、 閱讀程序1. 263 3. 1 4 2 1 3 3 五、 完善程序 (前 5 空，每空 2 分，后 6 空，每空 3 分，共 28 分)1.（1）start+m1 （2）result=k (或者 k=result) （3）not find (或者 find=false) （4）2*ki （5）m1 2. (1) 0,1 （2）a[x1,y1] （3）a[x1,y1] （4）d[2*i+1] （5）a[x1,y1]=orig (或者 orig=a[x1,y1]) （6）orig:=a[i,j]NOIP2022 年（第九屆）提高組（Pascal 語言）參考答案一、單項選擇題1. B 2. B 3. D 4. A 5. B 6. B 7. C 8. E 9. C 二、 不定項選擇題 11. D 12. BDE 13. AD 14. AB 15. AC 16. E 17. B 18. BCD 19. D 20. BE 三、問題求解 福建省莆田第一中學 信息學奧賽興趣小組 整理：林梓雨四、 閱讀程序1. 8910 3. 1872 4. 1 1 2 4 5 1 1 3 9 （空格分隔）五、完善程序 1.（1）2 （2）i*m （3）t=2*m （4）(t*2) mod d （5）m0 （6）solve(m)2. (1) m[0,k,s1]+m[1,k,s1] （2）h:=y （3）k1,s+1,nth（4）i:=i+1 （5）2*i,0,nthNOIP2022 年（第八屆）提高組（Pascal 語言）參考答案一、單項選擇題1. C 2. A 3. D 4. A 5. C 6. B 7. B 8. D 9. A 11. C 12. B 13. C 14. B 15. C 16. B 17. C 18. B 19. C 20. B 二、問題求解1. 44 2. (k1)*nk+1 三、看程序?qū)懡Y(jié)果1. RRRRWWBBBB 2. 30031 3.[五個空格] 四、完善程序1.（1）c[n+1] （2）c[j1+1]yu+d[j1] （3）yu:=yu+d[j1]。（4）e[j0]:=s （5）Write(e[i]:4) （場寬不同亦可）2. (1) p and b[0]=0 （2）b[j]:=1。 （3）p:=false。（4）(a[[i,j]=1] and (b[j]=1) （5）p （要寫 p=true 也可以啦）NOIP2022 年（第七屆）提高組（Pascal 語言）參考答案一、單項選擇題1. A 2. D 3. B 4. D 5. C 或 D 6. D 7. A 8. A 9. A 11. A 12. C 13. C 14. B 15. B 16. B 17. B 18. C 19. B 20. D 二、問題求解（5+7 分，兩題共 12 分）1．二叉樹先序遍歷的順序為：ABCEGDFHIJ 2．能組成 2250 個不同四邊形三、閱讀程序，寫出程序的正確運行結(jié)果（4+7+8+9=28 分） 110 87 86 66 62 61 60 四、根據(jù)題意，將程序補充完整1.（1）SP：=SP+1 （2） I：=I－1 （3）DK[I，2]+L+DK[I+1，2]（4）D （5）DK[I+1，1]2. (1) REDLN（ X，Y，W ） （2）R[I ，J]+EET[J]MAX （3）ET[N]：=EET[N] ；（4）ET[J] －R[I，J]MIN （5）EET[I]=ET[I]NOIP2022 年（第六屆）提高組（Pascal 語言）參考答案一、單項選擇題1. C 2. B 3. D 4. C 5. D 6. B 7. D 8. B 9. A 11. B 12. B 13. D 14. C 15. A 16. D 17. B 18. D 19. C 20. A 福建省莆田第一中學 信息學奧賽興趣小組 整理：林梓雨二、問題求解5 棵。如下： a b a c c ＼ ／＼ ＼ ／ ／ b a c c a b ＼ ／ ＼ ／ c b b aF(N)=F(N1)+F(N2)+F(N3) (N=4 ，F(xiàn)(1)=1 F(2)=2 F(3)=4)三、輸出結(jié)果1．4 3 0 2 2．BBAC四、程序填空 1.（1）A[J] ：=1； （2）A[I]：=0； （3）S ：=0；（4）B[S]：=1 ； （5）S=322. (1) SP1=SP2 （2）Q[SP1,0]+1 （3）Q[SP1,J]0（4）(Q[SP2,0])； （5）D[Q[I,0]]+1；NOIP1999 年（第五屆）提高組（Pascal 語言）參考答案一、單項選擇題1. C 2. B 3. C 4. C 5. C 6. D 7. B 8. C 9. C 11. D 12. B 13. A 14. C 15. B 16. A 17. D 18. D 19. B 20. B 二、問題求解Ln=n(n+1)/2+1(n≥0) Zn=L2n2n=2n2n+1三、閱讀程序，并寫出正確的程序運行結(jié)果 1．程序運行的結(jié)果：970 2． （1）調(diào)用該過程的語句為 SORT1（N） ；比較運算的次數(shù)為：n(n1) （2）調(diào)用該過程的語句為 SORT2（N） ；比較運算的次數(shù)為：n(n1)/2 （3）調(diào)用該過程的語句為 SORT3（N） ；比較運算的次數(shù)為：nlog2n+c四、根據(jù)題意，將以下程序填寫完善 （1）共 15 分（2+2+3+2+2+2+2=15 分）① sp1=sp2 ② p:=p+1 ③ g[sp1,j]0 ④ sp2:=sp2+1。⑤ sp1:=sp1+1 ⑥ k=g[i,2] ⑦ j:=1。 （2）共 15 分（每個點 3 分）① a[i]:=i。 ② 1 to s ③ a[j1]a[j]④ (a[i1]a[j1]) and (a[i1]a[k]) ⑤ a[i1]a[k]