noip2009复赛普及组解题报告.doc

多项式输出 问题转述： 给出一个一元多项式各项的次数和系数，按照规定的格式要求输出该多项式。 分析： 普及组的水题。多项式大家应该很熟悉，输出的时候注意一下几点即可： 1. 最高次项为正的话开头无加号。 2. 系数为0不输出。 3. 一次项输出x，并非x^1。 4. 非常数项系数为1或-1时直接输出正负号，但是常数项需要输出该数字。 其中除第三项外其它均可在样例中检查出错误，但是若没想到第三点那么就只能得到50分了。 程序： var i,k,n:longint; begin assign(input,poly.in);reset(input); assign(output,poly.out);rewrite(output); readln(n); for i:=n downto 0 do begin read(k); if k=0 then continue; if (k0) and (in) then write(+); if i=0 then write(k) else if (abs(k)1) then write(k) else if k=-1 then write(-); if i0 then if i=1 then write(x) else write(x^,i); end; writeln; close(input); close(output); end. --------------------------------------------------------------------- 分数线划定 问题转述： 给出录取人数及所有面试者成绩，考号。求出分数线和实际录取人数，并按成绩降序，若成绩相同则考号升序的规则输出录取人考号与成绩。 分析： 双关键字排序。由于n在5000左右，为了确保不TLE所以需要使用快排等nlogn的排序。之后将指针指向计划录取的最后一名，并滑动至与其相同分数的最后一人。则指针之前为实际录取的面试者。 程序： type arr=array[1..2] of longint; var i,j,n,m:longint; a:array[1..5001] of arr; procedure swap(var a,b:arr); var c:arr; begin c:=a;a:=b;b:=c; end; procedure qsort(l,r:longint); var i,j,temp1,temp2:longint; begin i:=l;j:=r;temp1:=random(r-l+1)+l; temp2:=a[temp1,2];temp1:=a[temp1,1]; repeat while (a[i,1]temp1) or ((a[i,1]=temp1) and (a[i,2]temp2)) do inc(i); while (a[j,1]temp1) or ((a[j,1]=temp1) and (a[j,2]temp2)) do dec(j); if i=j then begin swap(a[i],a[j]); inc(i);dec(j); end; until ij; if ir then qsort(i,r); if jl then qsort(l,j); end; begin randomize; assign(input,score.in);reset(input); assign(output,score.out);rewrite(output); readln(n,m); m:=trunc(m*1.5); for i:=1 to n do readln(a[i,2],a[i,1]); a[n+1,1]:=0; qsort(1,n); i:=m; while a[i+1,1]=a[i,1] do inc(i); writeln(a[i,1], ,i); for j:=1 to i do writeln(a[j,2], ,a[j,1]); close(input);close(output); end. --------------------------------------------------------------------- 细胞分裂 问题转述： 给出m1，m2以及若干个个si，求si^a mod m1^m2=0中a的最小值。若无解，输出-1。 分析： 数学题。由于m1=30000,m2=10000，根本无法直接计算，所以需要通过数学分析得出答案。如果一个数能