begin
for i:= 1 to m-1 do write(data[i],' '); writeln(data[m]); flag:=①;
for i:=m downto 1 do begin ②;
for j:= data[i]+1 to n do if used[j]= false then begin used[j]:= true; data[i]:=③; flag:= true; break; end; if flag then begin
for k:=i+1 to m do for j:=1 to④do if used[j]= false then begin
11 / 14
data[k]:= j; used[j]:= true; break; end; ⑤; end; end; end． 参考答案
一、单项选择题（共20题，每题确选项）
1 A 11 B2 B 12 D3 A 13 B4 B
1．5分，共计 12 / 14
30分；每题且仅有一个正14 C5 C 15 C6 C 16 D7 B 17 C8 C 18 A9 A 19 C10 A20 B
二、问题求解（共2题，每题1．5
5分，共计10分） 13 / 14
2．2880
三、阅读程序写结果。（共4题，每题8分，共计32分） 10 6 14 ACBBADAD
四、完善程序（前2空每空2分，后8空每空3分，共计1、 ①0 ②y[j] ④（i>1）and (f[i]>f[i-1]) ⑤ans:=max_f 2、 ①false ②used[data[i]]:=flase ③j ④n ⑤break 14 / 14 28分）
NOIP普及组初赛及答案Pascal
beginfori:=1tom-1dowrite(data[i],'');writeln(data[m]);flag:=①;fori:=mdownto1dobegin②;forj:=data[i]+1tondoifused[j]=falsethenbeginused[j]:=
推荐度：
点击下载文档文档为doc格式
