第28届宁波市28届中小学生计算机竞赛初中组解题报告.doc

第28届宁波市中小学生计算机程序设计竞赛复赛解题报告（初中组）T1friend 首先求出每个点的度，然后找出目标点，再找出和这个点相邻的点（可以用链表也可以再扫一遍），基数排序一下就好了 var?i,j,n,k,l,m,t,max,max2:longint;a,b,c:array[0..1000011]of?longint; d:array[1..10011]of?boolean; begin ??assign(input,friend.in);assign(output,friend.out);reset(input);rewrite(output); ??readln(n,m);for?i:=1?to?m?do?begin?read(a[i],b[i]);inc(c[a[i]]);inc(c[b[i]]);end; ??for?i:=1?to?n?do ??begin ????if?c[i]max?then?begin?max:=c[i];max2:=i;end;//找最大值 ??end; ??fillchar(d,?sizeof(d),?false);? ??for?i:=1?to?m?do?if?a[i]=max2?then?d[b[i]]:=true?else?if?b[i]=max2?then?d[a[i]]:=true;//统计和哪些点连通 ??for?i:=1?to?n?do?if?d[i]?then?write(i,?); ??close(input);close(output); end?. 第28届宁波市中小学生计算机程序设计竞赛复赛解题报告（初中组）T2score 首先算出人数最多的学校，方法有3种： 1.暴力模拟并查集，由于数据弱能卡时A掉，如： 1 2 3 4 5 6 7 8 9 for?i:=1?to?n?do?a[i]:=i; for?i:=1?to?m?do?begin ??read(s,t); ??if?a[s]a[t]?then?begin ????x:=a[t]; ????for?j:=1?to?n?do?if?a[j]=x?then?a[j]:=a[s]; ??end; end; for?i:=1?to?n?do?inc(b[a[i]]); 2.把边存下来然后dfs,不过不属于宁波赛考查范围就不说了 3.并查集维护 然后就是计算分值了，注意到2^0+2^1+…+2^(n-1)=2^n-1，所以用快速幂求一下2^n后100位就行了（其实不用快速幂也行），因为2^n个位≠0，所以直接减一就好 type?p=array[1..311]of?longint; var?i,j,n,k,l,m,t,max:longint;f,a:array[1..10011]of?longint; b:p; function?getf(x:longint):longint; begin ??if?f[x]=x?then?exit(x); ??f[x]?:=?getf(f[x]); ??exit(f[x]); end; procedure?chen(x:longint);//快速幂? var?c:p; begin ??fillchar(c,?sizeof(c),?0);if?x=0?then?exit;chen(x?div?2); ??for?i:=1?to?100?do?for?j:=1?to?100?do?inc(c[i+j-1],b[i]*b[j]); ??for?i:=1?to?100?do?begin?inc(c[i+1],c[i]div?10);c[i]:=c[i]mod?10;end; ??b:=c; ??if?x?mod?2?=?1?then ??begin ????for?i:=1?to?100?do?c[i]:=b[i]*2; ????for?i:=1?to?100?do?begin?inc(c[i+1],c[i]div?10);c[i]:=c[i]mod?10;end; ????b:=c; ??end; end; procedure?print(x:longint); var?i:longint; begin ??b[1]:=1;chen(x);dec(b[1]);i:=1;//计算2^x-1? ??while?b[i]0?do?begin?inc(b[i],10);dec(b[i+1]);inc(i);end;//进位? ??if?x332?then?for?i:=100?downto?1?do?write(b[i])//如果大于100位输出后100位? ??else//否则直接输出? ??begin ????for?i:=100?downto?1?do?if?b[i]0?then?brea