YLARMY 11-3-2007 12:17 AM
NOIP历届题
[code]
gi#L C p u r1]
这个,2001试题1一元三次方程求解（2004发布） y
B&R1}~#p"Tj
program a01_g1; Eo E(Xw9?X8\
var 3J
bD/@ vu1ia4q w
x:array[1..3] of real; Zi-vqaf5{;]
a,b,c,d,u,v:real; 0V,O
Q%K%J0_
i,t:integer;
iAWS6^k0i)}h
function f(x:real):real;
)w*D7P8LWX8aa
begin 3v LjFe R F;O5V
f:=((a*x+b)*x+c)*x+d; "M1Ve RP q N$c
b
end;
1g ~+W/y
K#J _%@&A9\+{
begin
w p/jf ].w F
read(a,b,c,d);
M.lR'L Tj:^
n
t:=0; FCo? X
for i:=-100 to 100 do
XldW-}~
begin r J xh/{ {^
u:=i;v:=u+0.99999; n~ \)Ml7\Z
if(abs(f(u))<0.00001)or(f(u)*f(v)<=0)then
/~_
R-H-G
begin
(d+TL1d1H3`'`@'Wq W
inc(t); 6L
`[fJ:j(l4c o
if abs(f(u))<=0.00001 then x[t]:=u U0J [\+c&U;T d
else begin ncW.m9h:Q$K0`*R1x
while (u+0.001<v) and (f((u+v)/2)<>0)do [2^ t_/x cI_
if f(u)*f((u+v)/2)<0 then v:=(u+v)/2 else u:=(u+v)/2; +i%IM,rp
x[t]:=(u+t)/2;
1n*N%H(MHb:k0Xv&|
end; 3c-J%h] C,@ sU\ J
end;
I2?k#F{/o!y
end;
!wG&h1I%S [/g
P1T
L
for t:=1 to 3 do r0qy#u6`iF1m#Q$WK
write(x[t]:0:2,' ');
I0c-Ld.f N8M-Y#\L
writeln;
C'K1W.j(B$ym
end.
$E$[ Y p7K#T V#O
[/code]
5X+?V1ck_%uc&D
[color=White]'eDz)YnB
9TP$u#I(@KQ+[
yD
[[i] 本帖最后由 sycsim 于 2007-3-11 03:11 AM 编辑 [/i]]
YLARMY 11-3-2007 12:17 AM
[code]%Je*} EM i6t3c
2002年试题1纸牌均分（2004发布）
r
V(PZ#P#@
{`
program gao1;
x[,c ZI+|k
var
N3i7V&ow[
n,i,j,j1,s,s1,avg:integer;
^0e"M/I
V3J2OW
x:array[1..1000]of integer; A N
u Ic
f1:text;
d1R[sO;C Js
str:string;
e]b2X vRj l
begin 2J7o'X4] m
readln(str);
i\vQxKS
assign(f1,str); a^Ak(x0u|
reset(f1);
uk+R!^ wZ%t
readln(f1,n);
O&ue8O1j x-w
avg:=0; %Y*a v I:p)q
for i:=1 to n do E z,z:|O D{4g4y8R S
begin
,Sp s U
b.V;N
read(f1,x[i]);
#Sy&D,A4B(?@
avg:=avg+x[i];
6I7l^Q%|1\+_`B
end; E
c!L)P/BH
close(f1);
~,B.eJr9g Q5UU/Y
avg:=avg div n; 0r%sXyZe
s:=0; I U?.jD;z.@HE!^k
j:=1;
eF7S3MZV
while (j<n) do
2f6{/g}JrlO4b
begin
.\/F#C
UK#V*~
j1:=1; b*P P9pD
s1:=x[j]; y\8h\ w T z
while (s1<j1*avg)do T-Ah\6k8Z\
begin
#M+?{9E[0[6@;S4x|
j:=j+1; j5{,Qx,PV
j1:=j1+1; O R6\WB1X
s1:=s1+x[j];
+a"b;na(Y0[-Q!n
end;
S'[K N\,w[]*g
if (s1=j1*avg)then s:=s+j1-1 Y w
xc ^"o`&G
else begin N W+h;Hm5P
s:=j1;
}8O
_;o2Wp ]
x[j+1]:=x[j+1]+s1-j1*avg; (}V4}X C
end; b ]o y,m'g:K
j:=j+1; 1Y#t4lA o3t}'z9m
end;
*U$X0G5yir t8i
writeln(s); [i ^#J6e
readln;,rE6?R X8Ys
[/code] p ?
c"t7J1^
[color=White]
*\!I.hAs5G
(ew y
I r*\k
[[i] 本帖最后由 sycsim 于 2007-3-11 03:11 AM 编辑 [/i]]
YLARMY 11-3-2007 12:18 AM
[code]program NOIP2003_1_Network;
L.hT|&IV3V%qh k
const
oMxHd\:~'I'P
maxn=200;maxp=200;
E p,N fK$u4c7u1Ixe
var f$n!T A&W`c-x(A'u
i,j,n,p,maxlayer:integer;
,_5k~/Tc&F:d:h
w:array[0..maxp]of longint;
s7H3n[.OM+c q2W
start,terminal:array[0..maxp]of byte; Z af9sL{0i
u,c:array[0..maxn]of longint;
_G5g'j |
layer:array[0..maxn]of byte; %GU#?3b2{&FC'X5h N L
f1,f2:text;fn1,fn2,fileNo:string; k-c5} y|
h-\
flag:boolean;
2Z-T/^Q+fK$V r
begin
&W aM[tK ~+R
write('Input fileNo:'); 5Wk
M ?/c8E#z I%W;?$K
readln(fileNo);
L6c@.f Q o1d
fn1:='network.in'+fileNo; `.D/C2}a#mT x
fn2:='network.ou'+fileNo; #kM r;Z&F w)w,F%Q
assign(f1,fn1);reset(f1); ](D bY]N%t n2x
assign(f2,fn2);rewrite(f2);
.sB v.`)j){1T
readln(f1,n,p); (\$q d/Z%CS}$q'@ I
for i:=1 to n do readln(f1,c[i],u[i]);
R/Af!MxxhT I a
fillchar(layer,sizeof(layer),0);
1}
cu(x YFN j P
for i:=1 to p do begin n4A
L-H8b q!} _w
readln(f1,start[i],terminal[i],w[i]); ] j)k aH0\4_ B |'}p
layer[terminal[i]]:=layer[start[i]]+1;
%H)ETrzz
end; 5J1X+L;LX
r Xg
close(f1);
&Q3X|fQ
maxlayer:=layer[terminal[p]];
.\j ?l-b5E(t
for i:=1 to n do i$[&lY:~1qz D3Q
if layer[i]>0 then begin
9B"Z1\ c"hTJ
for j:=1 to p do
(X rYd H _t
if (terminal[j]=i) and (c[start[j]]>0)
H"j2E+h4lY*g L2U
then c[i]:=c[i]+w[j]*c[start[j]]; 1xn1rv t/gX W z)P
c[i]:=c[i]-u[i]; q4i} x1m,c D1]'T4v
end;
y2NJ'r4l u6|
flag:=true; Kc(bs6IgQ
for i:=1 to n do
k \,q D qh }(Al9I
if (layer[i]=maxlayer) and (c[i]>0) then begin n7x9Q-r&d b_ A)QV
writeln(f2,i,' ',c[i]); -C:kd;t+eK
flag:=false; UHD#q|e4^^9T
end; *Q F#{` X%v`g_/q;BmV
if flag then writeln(f2,'NULL');
4sSc%@5p,I oI
close(f2); !j^4Ip0{/r3r @W_
end. {L[R2M.[M
l
[-`6t v
b
6P;Z/@S0C$w-k
=================
vD
TR&N:F8T
\I
program NOIP2003_2_Logic;
d rB3A5?)N%ZM
const
"q ` x?/`YP6w
maxm=20; 9[*g8u y Bk_ V
dow:array[1..7]of string=('Sunday.','Monday.','Tuesday.','Wednesday.',
R
D gu/e6| N
'Thursday.','Friday.','Saturday.'); P*qW+x$uWU}
var t~Ni5M-I6Z N
i,j,k,weekday,m,n,p,p1,p2,p3,index,resolution,total1,total2:byte;
\`$^ rd;j'O [
name:array[1..maxm]of string; B U _wp:\rDB
witness10,witness20:array[1..100]of byte; ;i { ym ` d2TM
witness1,witness2:array[1..100]of string; !Vf2j7g.}&i E6U)n
name0,temp,temp0,temp1,temp2:string;
:W;}+H8p(Pc[n6\%]!H @
truth,truth0:array[1..maxm]of byte;
X3Dwy1C;TF {
f1,f2:text;fn1,fn2,fileNo:string;
PeAVx#K
flag:boolean; :L:J7y ro-`\r
p
begin 5zdO+]#H0}f!w g
write('Input fileNo:');readln(fileNo);
2|5WS V6V1a\
fn1:='logic.in'+fileNo;fn2:='logic.ou'+fileNo;
P
kg| r5P6v!l
assign(f1,fn1);reset(f1);assign(f2,fn2);rewrite(f2); [.DU;n4B9f1b
readln(f1,m,n,p); 5p9b"M} hEr6\]S"l
for i:=1 to m do readln(f1,name[i]);
%U3u9\ i&L&Y Q
total1:=0;total2:=0; (o(Qvz3yB
for i:=1 to p do begin
7Uz9o'R#S(Nx!]e7G
readln(f1,temp);
Ng{Y(r$H/S0\Bh8Q
index:=pos(': ',temp);
Uqp \ U5A8j
temp1:=copy(temp,1,index-1); f0@0i&S+^ px
temp2:=copy(temp,index+2,length(temp)-index-1);
#JB ~~6c
if (temp2='I am guilty.') or (temp2='I am not guilty.') then R/e i9Oz0t
for j:=1 to m do m1EVuL1D
if name[j]=temp1 then begin
0s Ho*m0m"V:CQ3u
inc(total1); 1~6J$`x6i!\W0c Fq2M
witness10[total1]:=j;
+N*_#~ | W;?8jl.P
witness1[total1]:=temp2; 8] l!v,B$w8tY-@1s7]
break; Bs;O zEL'X+F
end; Q!qW m.L+B(r5A
if (pos(' is guilty.',temp2)>0) or (pos(' is not guilty.',temp2)>0) then begin ;@t"]+I8NFae+b
temp0:=copy(temp2,1,pos(' is ',temp2)-1); v:C0U-S9~*_
flag:=false; 0DB |/{u+s6r[
for k:=1 to m do
;V,s~G
H"w0SE m
if temp0=name[k] then begin NP `icPW!` I!W
flag:=true;
tqM p#n*\
break;
*w#|#n S i%w
end;
+eVH:a2Sj,rJ(Z
if flag then
xV1W@
z#\B
for j:=1 to m do
0kPW}%G#C
if name[j]=temp1 then begin
G b(O#^|#h9nF4N
inc(total1);
1UFB3Na-g%e H
witness10[total1]:=j; Z{,cu;E Q
V
witness1[total1]:=temp2; D ],b a-fB'U"s)H
break;
Bn@7m*A)N+x2I
end; E8jQD8\ n p
end; $S ~'A-Bz|3UU+UW
flag:=false; J$E3V W:aw;S
for j:=1 to 7 do I'M0E s@l \
if temp2='Today is '+ dow[j] then begin
WI/g)w\3AjNV
flag:=true; 4a S ]1N-c"nG
break; lAl X s
end;
+N.f] e8Z ` ?
RQz
if flag then 0j/w*B4o|4[
for j:=1 to m do c
V!Yx u!S!h
if name[j]=temp1 then begin
7R6I[-k;A9G
U
inc(total2); l0d u ^ g(dkz
witness20[total2]:=j;
)Q2n_9M+f6O
witness2[total2]:=temp2;
Qd8?&P0Q
K I
break;
? OF
fg#e
end; u;J5D
Qb
end;
\hLK8sUE!Iv
close(f1); h7F*bJ9f W~5j
resolution:=0; A[ kkV7n/gY!|
for i:=1 to m do begin
)z M v])[9d
if resolution>1 then break; P1['de*M?'}_
fillchar(truth,sizeof(truth),0);
c y~:} }'U6grs?.F
for j:=1 to total1 do begin (e?4]h2vV
if witness1[j]='I am guilty.' then begin
D?f a5U;n1y
if i=witness10[j] then
+i7? f f F
r2Z2G
case truth[i] of
:R }$hPI G
0:truth[i]:=1;
D*\/t$a
@
2:truth[i]:=3;
TT
q3W:r4VL Me
end /f3E,E!`2c f;lM4G
else
Q
Vi8x9[;R%i
case truth[witness10[j]] of
\ B'v3k)iP5go
0:truth[witness10[j]]:=2;
9x/I3of/z.B4i*@Dk
1:truth[witness10[j]]:=3; c-G^_!`m
end; 1U[
H.^w;t"ea@ p&z&z
end;
9Z G
S8~[H;w Cq8f'}
if witness1[j]='I am not guilty.' then begin x)k \!cq
if i=witness10[j] then ;G0p5`nd1IV.L0F#_
case truth[i] of
X%n9C E$F&} w
0:truth[i]:=2;
sG6k:x(od2L}
1:truth[i]:=3; c,k m1f I4|2F\:I$S
end ZI;pGn
else 0v&yJ pi5P-f.AU
case truth[witness10[j]] of
Wh0b%VO4S)_l
0:truth[witness10[j]]:=1;
p"QtmJ
2:truth[witness10[j]]:=3; 0s,CR,|o&~ B^:|v
end; {6K9^c6B7sT(M9Q
end; F
m2nulYq
~#a-L7J
if (pos(' is guilty.',witness1[j])>0) then begin
t fN
AE5vs
temp:=copy(witness1[j],1,pos(' is guilty.',witness1[j])-1);
m @b;J5S(H9BB.A
if name[i]=temp then J,zN}"N f_
case truth[witness10[j]] of
3d T:l1] `,i9c0n-O gm
0:truth[witness10[j]]:=1;
1g `1Zb'F*dN
2:truth[witness10[j]]:=3; 8p2`!bh.\
end
uAc7qF8k6a kt @$p v
else
N+M)g ZR-UFx
case truth[witness10[j]] of
q#UN9C1]P+c
0:truth[witness10[j]]:=2;
k5^M VJ4E$Q0n"Z#i
1:truth[witness10[j]]:=3; "l0P }0P Q.}N2gE
end;
@ h Sb$}/W!Y
end; ;b:O R-[P_(q
if (pos(' is not guilty.',witness1[j])>0) then begin
(n|0J/D S]W
temp:=copy(witness1[j],1,pos(' is not guilty.',witness1[j])-1); !xH{ s#w GCd
if name[i]=temp then
Xul4l8M6O8n
case truth[witness10[j]] of %?.Ad
jWxz9t
0:truth[witness10[j]]:=2;
U9I5eSLU X!g
1:truth[witness10[j]]:=3; !]zbv{
end
r.bG0t0?,x
else .M-qJ pf
case truth[witness10[j]] of &[;J/c7y*v5xad
0:truth[witness10[j]]:=1;
HXA+jy8_4b
O}~ S
2:truth[witness10[j]]:=3;
,s'GN_U2@+|"F@y
end; ;f2xLUb
end; WBSx fVe
end; 8ZV"|X!a8r j[
if total2>0 then begin (q8wx/[4a
for k:=1 to m do truth0[k]:=truth[k]; R;D C.zrv9\ B
for weekday:=1 to 7 do begin
${ Q*u"WH[
E2V~
for k:=1 to m do truth[k]:=truth0[k]; +?W D
|qf8t6DQ%n
for j:=1 to total2 do vl#l Vdb}A
n @b4^
if pos(dow[weekday],witness2[j])>0 then
:~w2i5P:E!o
case truth[witness20[j]] of
3|5}xvN6z7u)~ \
0:truth[witness20[j]]:=1; p?
S4c ACvdd
2:truth[witness20[j]]:=3; `a cYf sg)\
end )J \cG4d
else
PGGqiD;r
case truth[witness20[j]] of 8kw4B W3k JV
0:truth[witness20[j]]:=2;
`c L#^w"c.|+wg
1:truth[witness20[j]]:=3;
8?^:u+So.|0hh
end; W*R&c#Ok d
p1:=0;p2:=0;p3:=0; !D~9f5`+O%k
for k:=1 to m do if truth[k]=1 then inc(p1); .M
jZ:S YpN J
for k:=1 to m do if truth[k]=2 then inc(p2); U"l D_ T
b [CE
for k:=1 to m do if truth[k]=3 then inc(p3);
*l*j$g Bgm n1qM
if (p1<=m-n) and (p2<=n) and (p3=0) then begin I${be9U U!D
name0:=name[i];
e6CKI4\f
inc(resolution);
7T3`*`Y
{/|Nf
`/c
break; w0K J1?M A*^
end;
2};l {9a#FD#j&z5V
end;
0| \&XR k}
end; 7km&m2z:I r)O
p1:=0;p2:=0;p3:=0;
s$XK6`/p A*i
for k:=1 to m do if truth[k]=1 then inc(p1);
a m;SXdz#l
for k:=1 to m do if truth[k]=2 then inc(p2); 'Z4nL-m7^6k9V
for k:=1 to m do if truth[k]=3 then inc(p3); /j[Z9Z*fr Y
if (p1<=m-n) and (p2<=n) and (p3=0) and (name0<>name[i]) then begin qU'j? ]"dp
name0:=name[i]; /p2g Ef~6j T.}U%Ja.d
inc(resolution); k }D ~7d @ Q {"e
end; D wq
Fc)J
end;
Mw
]K!R#W
if resolution=1 then writeln(f2,name0); B:g$d?.p-T
if resolution=0 then writeln(f2,'Impossible');
bLh+RW c `
if resolution>1 then writeln(f2,'Cannot Determine'); gs'c9~U
close(f2); !J!Qum1C9I'u;H0x!M
end.
8Ytw
y2U7\
'V t JU3M f6w)V7C H
)H
C+U1v[$ro:rn
===============&@H;I(~ h
E qyv*M`3~
{$N+}
+c?:H'Z&E V
@
program NOIP2003_3_Tree; )h-j_{l(z
const
{}jZ$x2f
maxn=30;
C ^*b _b
var
|7W&`c9F:wg5n e
i,j,n,d:byte;
B4Py
d Q*K s;hq0d
a:array[1..maxn]of byte; :a,vT(N&Bwi
value:array[1..maxn,1..maxn]of comp; lK&f6} SW e!zh
root:array[1..maxn,1..maxn]of byte;
c R {7m
J'T
s,temp:comp;
E+|4q/f%u4_#VeB{
f1,f2:text;fn1,fn2,fileNo:string;
R*q` pEk%I i }M
procedure preorder(p1,p2:byte); p@A g}"@3u!r
begin )f'lZq!OA
if p2>=p1 then begin
S6E yT BQ
write(f2,root[p1,p2],' ');
/M7iv{8Q;d(L:{#|&EU
preorder(p1,root[p1,p2]-1); 7v{ }u.M-n\ E
r
preorder(root[p1,p2]+1,p2);
!bqi,N
d I
end;
*a*[!f#r ?&c9X
end; i%E7~y)Q
U'o4k
begin
o_[c F#Q
write('Input fileNo:');readln(fileNo);
I x8X/Y WT
fn1:='tree.in'+fileNo;fn2:='tree.ou'+fileNo;
agv's:MV%\
assign(f1,fn1);reset(f1);
C,lg7o2h`v_Bt
assign(f2,fn2);rewrite(f2);
;r#b(_m:Z/w X&T-I0{
readln(f1,n);
$H%zEb3o#?*W
for i:=1 to n do read(f1,a[i]);
0jjG Ev
nWE
close(f1);
i,_D$z&G:f
m w
fillchar(value,sizeof(value),0);
8Z dHk:n.I
D
|
H:e s
for i:=1 to n do begin .K/N%Z G ~z/H w
value[i,i]:=a[i];
+xR@ze7H
root[i,i]:=i;
-D+}
``B f5E;Q
end; z'[q\ H+W3{[[8t
for i:=1 to n-1 do begin
7Nt
XM9Gl?Q
value[i,i+1]:=a[i]+a[i+1];
s U6`Q*xi[&b
root[i,i+1]:=i;
#B pF1R#a b"X
end; 5\$Zk G6bF `*v
for d:=2 to n-1 do begin
:O"Jl m2A CK|(S
|
for i:=1 to n-d do begin &M8{oM o ^/w4aY
s:=value[i,i]+value[i+1,i+d]; ;T
D f-rQ0l6C!_9h
root[i,i+d]:=i; (T Q8E6b ^ bvFeQ
for j:=1 to d do begin 5i jC6q C&sy6M
temp:=value[i+j,i+j]+value[i,i+j-1]*value[i+j+1,i+d];
eW4M | I8Ix
if temp>s then begin
-h @0S"_O{"[|
s:=temp;root[i,i+d]:=i+j; 1Xq:AH.@ d#jZl t
end; j|/o'aV
end;
R@{ s`
temp:=value[i,i+d-1]+value[i+d,i+d];
p'd i#x3I E F7A5k[U)T
if temp>s then begin 5wy
O%H;}
s:=temp;root[i,i+d]:=i+d+1;
,{;d,W-qg1[&?i3V
end; ;O } \ m-K
b H
value[i,i+d]:=s;
3E M iq)a)\
end;
o&yS)L)sY av
end; k
e&n f m$N M-m j*X
writeln(f2,value[1,n]:0:0); d kkEa~ {#Z+F
preorder(1,n);
@9N@&J)u
close(f2);
juUX| xs)T
end.,okX ` X(M
f2w:jD M0Ja u!x+H
[/code]3i-Pxt[(j
[color=White]@8G-DP [$M C3t
$N:O-{Sg BR%T9j {;D
[[i] 本帖最后由 sycsim 于 2007-3-11 03:10 AM 编辑 [/i]]
YLARMY 11-3-2007 12:19 AM
[code]program NOIP2003_4_Epidemic;
f {1L)T-[j ~KD9D
const
zw]:doB
maxn=300;maxp=300; eO/bHt
type
L&p~zj \zX B-I
node=array [0..maxp] of integer;
)_
f c
[4F3}
z
var "d6w*bj/X#J;ip5~S
i,n,p,min,max,temp,s,smin:integer; .^$G t5L5Q$c*u
v
a:array[1..maxn] of ^node; Ys
etcw_V
f1,f2:text;fn1,fn2,fileNo:string; 'i6q1R z l_2k3c7[4K
procedure try(i:integer); "_ZT
w i
var 7eL(G{waW;@
root1,root2,j,k,m,temp,s0:integer;b:node;flag:boolean;
5X-V#tD)H*pH h"I
begin
H1bdk d;j YD
if a[i]^[0]<=1 then begin
z\ @e5wur
if s<smin then smin:=s; 6J(U&A4Z#w+H9E?
exit;
fVc1ji5E5bL~-N
end;
ZU/\1CI0]hZ
s0:=s; #@&h:o.Vv:A `p
flag:=true; 5d.Vc\6YKla
for j:=1 to a[i]^[0] do if (a[a[i]^[j]]^[0]>0) then begin
1g5b8xJ L MaL8@
flag:=false;
AH1F
H"@5X:c;SO
s:=s0+a[i]^[0]-1; UwX\(mN2t9|+BE;aP
if j=1 then root1:=2 else root1:=1; -z;kS4W4F1{(m
root2:=a[i]^[root1];
!u!C w*HJ-`
vF
temp:=a[root2]^[0]; 8DDaP~u$G
for k:=1 to temp do b[k]:=a[root2]^[k]; !{FkP3gM J8m/JL`
for k:=1 to a[i]^[0] do
:FXb7U J
if (k<>j) and (k<>root1) then begin
;m+T/J-AA KR k`
for m:=1 to a[a[i]^[k]]^[0] do s ] L)p:^/?#s
a[root2]^[a[root2]^[0]+m]:=a[a[i]^[k]]^[m]; -D"e Z"n
s
a[root2]^[0]:=a[root2]^[0]+a[a[i]^[k]]^[0];
E%^7c/@Y-I7d
end; %L1O0w*{&lHZ
try(root2);
&g#Z#i'Y,c9`{
a[root2]^[0]:=temp; ZEr
NT|
for m:=1 to temp do a[root2]^[m]:=b[m]; :wu*kxp KW.}7qO C
end;
G+s
u oXW{ ~
if flag then begin R/z8hd.V-I_
s
s:=s0+a[i]^[0]-1;
8x}YY%B"O1[*_ i
if s<smin then smin:=s;
-f.z3S ];s m
exit;
+qU
k+O6Y$a K&O
end;
4^
NS#M BuL
end;
7@_#Mm k3M%k5O
begin
J%`(ID"N4G6Np9s
write('Input fileNo:');readln(fileNo);
9Tv3| @4y:w J
fn1:='Epidemic.in'+fileNo;fn2:='Epidemic.ou'+fileNo;
O1m3g'k,J2@
assign(f1,fn1);reset(f1);assign(f2,fn2);rewrite(f2); 8K~,|? m:g;f%W c
readln(f1,n,p);
'eQ\
{0o
for i:=1 to n do new(a[i]);
F_SXRQ(\.w+u f@
for i:=1 to n do a[i]^[0]:=0;
J|cm r
v zI
for i:=1 to p do begin *U T&iotgp
readln(f1,min,max); 4mP1u[f
if min>max then begin *g Gx,lIs4Y
temp:=min;min:=max;max:=temp \;sd SG
end;
i7?T0k7@6W})B$`
inc(a[min]^[0]);
X0Hc8X.Zl2i"}m
a[min]^[a[min]^[0]]:=max; 1[7@n(X*N+v;D~ |
end; \ [)i }I-P_-O gR
close(f1); &W+K jK#m~
s:=1;smin:=300;try(1);
^ {,_j
c#ZYF }
writeln(f2,smin);close(f2); C v(Y] E d
end.
z3|"lx2J se's:z
[/code]
l"U
Fh;? G;B;X?
L7L3q6zM6{'h9u v!E
[color=White]Je\ALTm
?$YN0v [ g M1j[
[[i] 本帖最后由 sycsim 于 2007-3-11 03:09 AM 编辑 [/i]]