【转载】有序拆分

原创 2015年07月10日 09:45:46
var
  top,j,n,m:integer;
   s:array[0..100] of integer;
Procedure print;
Var i:integer;
 begin
    if  top>1 then
       begin  write(n,'=',s[1]);
              for  i:=2  to  top  do  write('+',s[i]);
             writeln;
        end;
 end;

Function sum(top:integer):integer;
 Var i,t:integer;
   begin
       t:=0;
     for i:=1 to top do t:=t+s[i];
     //sum:=t;
   exit(t);
   end;

Function cr(top:integer):boolean;
 Var i:integer;
  begin
   cr:=true;
   for i:=1 to top-1 do
   if s[i]>s[i+1] then cr:=false;
  end;
begin
fillchar(s,sizeof(s),0);
read(n);
top:=1;
repeat
inc(s[top]);  m:=sum(top);
if m<=n then
     if (m=n)  and cr(top)  then  print
                            else  inc(top)
else  begin  s[top]:=0; dec(top); end;
until top=0;
end.

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

整数拆分的两种解法(已完成)

整数拆分的两种解法(已完成) 4.1 集合的分划和第二类Stirling数 定义1  (集合的划分) 设A 是有限集.A 的一族子集{Ai}称...
  • pi9nc
  • pi9nc
  • 2012年11月02日 20:01
  • 6679

转载-Oracle拆分字符串,字符串分割的函数

文章出处:http://www.cnblogs.com/smile-wei/archive/2012/12/13/2816447.html Oracle拆分字符串,字符串分割的函数。 ...

一分钟掌握数据库垂直拆分

  • 2017年03月01日 18:20
  • 82KB
  • 下载

php 操作数组(合并,拆分,追加,查找,删除等)

1. 合并数组 array_merge()函数将数组合并到一起,返回一个联合的数组。所得到的数组以第一个输入数组参数开始,按后面数组参数出现的顺序依次迫加。其形式为: Php代码   ...

PDF合并拆分 C#源码

  • 2017年09月09日 12:03
  • 126KB
  • 下载

excel大数据拆分

  • 2016年01月11日 17:47
  • 54KB
  • 下载

如何拆分含有多种分隔符的字符串

实际案例我们要把某个字符串依据分隔符号拆分不同的字段,该字符串包含多种不同的分隔符...

拆分字段统计

  • 2013年10月24日 11:16
  • 649B
  • 下载

文件拆分器

  • 2013年12月04日 21:57
  • 12KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:【转载】有序拆分
举报原因:
原因补充:

(最多只允许输入30个字)