三、分治算法策略

1.麦森数（codevs1087)

题目地址：http://codevs.cn/problem/1087/

分析：高精度乘法+快速幂

代码：

type arr=array[0..1000] of integer;
var
  p,jj,o,y:longint;
  b,c,g:arr;


function wc(m,n:arr):arr;
var i,j,x:longint;
    xxx:arr;
begin
  fillchar(xxx,sizeof(xxx),0);
  for i:=1 to 500  do
    begin
      x:=0;
      for j:=1 to 500 do
        begin
          xxx[i+j-1]:=xxx[i+j-1]+m[i]*n[j]+x;
          x:=xxx[i+j-1] div 10;
          xxx[i+j-1]:=xxx[i+j-1] mod 10;
        end;
      xxx[i+j]:=x;
    end;
   xxx[0]:=m[0]+n[0];
   while (xxx[xxx[0]]=0) and (xxx[0]>1) do dec(xxx[0]);
   wc:=xxx;
end;


function kuai(a:longint):arr;
begin
  if a=1 then exit(c);
  kuai:=kuai(a div 2);
  b:=wc(kuai,kuai);
  if (a mod 2=0) then exit(b)
  else exit(wc(b,c));
end;


begin
  readln(p);
  c[0]:=1;
  c[1]:=2;
  g:=kuai(p);
  g[1]:=g[1]-1;
  y:=trunc(p*ln(2)/ln(10))+1;
  write(y);
  o:=0;
  for jj:=500 downto 1 do
    begin
      if (jj mod 50=0) then writeln;
      write(g[jj]);
    end;
  writeln;
end.

2.快排核心代码：

procedure cha(l,r:longint);
var i,j,mid,t:longint;
begin
 i:=l;
 j:=r;
 mid:=a[(l+r) div 2];
 while i<=j do
    begin
      while a[i]>mid do inc(i);
      while a[j]<mid do dec(j);
      if (i<=j) then
        begin
          t:=a[i];
          a[i]:=a[j];
          a[j]:=t;
          inc(i);
          dec(j);
        end;
    end;
 if j>l then cha(l,j);
 if i<r then cha(i,r);
end;

总结：

分治策略指的是分而治之的方法。当我们处理大规模问题时，求解可能比较困难，对于这类问题，我们可以将原问题分解成规模较小而结构与原问题相似的子问题，然后递归地解决这些子问题，最后由这些小问题的解构造出原问题的解。一个问题能否用分治法解决，关键是看该问题是否能将原问题分成n个规模较小而结构与原问题相似的子问题。原问题可以分解成多个子问题，这些子问题与原问题相比，只是问题的规模有所降低，其结构和求解方法与原问题相同或相似原问题在分解过程中，递归地求解子问题，由于递归都必须有一个终止条件，因此当分解后的子问题规模足够小时，应该能够直接求解。

分治三个步骤：

分解：将要解决的问题划分成若干个规模较小的同类问题。
求解：当子问题划分得足够小时，用较简单的方法解决
合并：按原问题的要求，将子问题的解逐层合并成原问题的解