vj1458 遥控车

Vj1458 遥控车

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //¿ìÅÅ+¶þ·Ö²éÕÒ+¹ö¶¯Êý×é+ѹ 9 λ¸ß¾« //µÚÒ»ÎÊÓöþ·Ö²éÕÒ //µÚ¶þÎʼÙÉè n=5 ¿¼ÂÇ×îºóÁ½¸ö½áµã 4 5 //Èç¹û 4 5 ²»»¥»» ÒòΪ×îºóÒ»¸ö½áµãÈ·¶¨ÊÇ 5 ËùÒÔ f[ 5 ] = f[ 4 ] //Èç¹û 4 5 »¥»» ºóÁ½¸ö½áµã¶¼È·¶¨·Ö±ðΪ 5 4 ËùÒÔ f[ 5 ] = f[ 3 ] //×ÛÉÏ f[ i ] = f[ i-2 ] + f[ i-1 ] / //ʱ¿ÌӦΪµÝÍÆÊý×éÏë¹ö¶¯Êý×é / const maxb=240; maxn=10000; base=1000000000; type bignum=record l:integer; a:array[0. .maxb] of longint; end; var n,m,sum:integer; s:array[0. .maxn] of string; f:array[0. .2] of bignum; procedure qs(l,r:integer); var i,j:integer; mid,t:string; begin i:=l; j:=r; mid:=s[(i+j)>>1]; repeat while s[i]<mid do inc(i); while s[j]>mid do dec(j); if i<=j then begin t:=s[i]; s[i]:=s[j]; s[j]:=t; inc(i); dec(j); end; until i>j; if j>l then qs(l,j); if i<r then qs(i,r); end; function find(st:string):integer; var i,j,mid:integer; begin i:=1; j:=n; while i<j do begin
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

Vj1458 &eacute;&yen;&aelig;Ž&sect;&egrave;&frac12;&brvbar;

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online