历届信息学奥赛试题评析.docVIP

历届信息学奥赛试题评析 第一题： var n,i,temp,sum:integer; a:array[1..100] of integer; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n-1 do if a[i]a[i+1] then begin temp:=a[i]; a[i]:=a[i+1]; a[i+1]:=temp; end; for i:=n downto 2 do if a[i]a[i-1] then begin temp:=a[i]; a[i]:=a[i-1]; a[i-1]:=temp; end; sum:=0; for i:=2 to n-1 do inc(sum,a[i]); writeln(sum div (n-2)); { div 表示整除 } end. 输入：8 40 70 50 70 20 40 10 30 输出： 点评：考查选择语句、循环语句、数组等内容，计算量中等。 难度：中等题。 第二题： program ex2; var n,i,ans:integer; function gcd(a,b:integer):integer; begin if a mod b =0 then gcd:=b else gcd:=gcd(b,a mod b); { mod表示 取余数 } end; begin readln(n); ans:=0; for i:=1 to n do if gcd(n,i)=i then begin writeln(i); ans:=ans+1; end; writeln(ans); end. 输入：120 输出： 点评：考查选择语句、循环语句、函数、递归等内容，计算量中等。 难度：中等题。 第三题： var data:array[1..20] of integer; n,i,h,ans:integer; procedure merge; begin data[h-1]:=data[h-1]+data[h]; dec(h); { dec(h) 表示h:=h-1 } inc(ans); { inc(ans) 表示 ans:=ans+1 } end; begin readln(n); h:=1; data[h]:=1; ans:=0; for i:=2 to n do begin inc(h); data[h]:=1; while (h1) and (data[h]=data[h-1]) do merge; end; writeln(ans); end. 输入：8 输出： 点评：考查循环语句、数组、过程等内容，计算量较大。 难度：难题。 第四题： 点评：主要考查字符串数组的使用，计算量较小。 难度：容易题。 第五题： 点评：主要考查循环语句的使用和数学知识，计算量中等。 难度：中等题。 第六题： 点评：主要考查选择语句、循环语句和数组的使用，计算量较大。 难度：难题。 第七题： 点评：主要考查有哪些信誉好的足球投注网站回溯知识。 难度：难题。 第八题： const V = 100; var visited : array[1..v]