搜索与回溯5.3——自然数拆分

版权声明:本文章由一枚蒟蒻提供 https://blog.csdn.net/SSL_QYH0Ice/article/details/53321626

SSL 1661
洛谷 P2404 自然数的拆分问题
题目说明
任何一个大于1的自然数总可以拆分成若干个自然数之和。
例:
1:4=1+1+1+1
2:4=1+1+2
3:4=1+3
4:4=2+2
5:4=4

var
  n,l,m,x:longint;
  a:array[1..10000000]of longint;
procedure print;
var
  i:longint;
begin
  write(l,':',n,'=');
  for i:=1 to n do
   if a[i+1]<>0 then
    begin
      write(a[i],'+');
    end
    else break;
  writeln(a[i]);
end;

procedure search(k:longint);
var
  i:longint;
begin
  if k=0 then begin inc(l);print;exit; end
   else
  for i:=1 to k do
   if i>=x then
   begin
     inc(m);
     a[m]:=i;
     x:=i;
     search(k-i);
     x:=i-1;
     a[m]:=0;
     dec(m);
   end;
end;

begin
  readln(n);
  search(n);
end.

搜索解,每搜索一次便减去n的值,值为0则打印一行。
就这样,简单粗暴!

阅读更多
换一批

没有更多推荐了,返回首页