pascal划分正整数

你这里是不是有个规则,就是拆分后的数,是从小到大排列的?函数如下：function BreakNum(const AShowList: TStrings; const ANum: Integer): TStrings;var List: TStringList; //全局字符串列表,用于保存显示 //子函数,递归求解 procedure Break(const AStr: string; const ANum: Integer; Max: Integer); var i: Integer; b1, b2: Integer; begin List。Add(Format('%s%d', [AStr, ANum])); for i := 1 to ANum div 2 do begin b1 := i; if b1 < Max then Continue; if b1 > Max then Max := b1; b2 := ANum - i; if (b2 = Max) then List。Add(Format('%s%d+%d', [AStr, b1, b2])) else if (b2 > Max) then Break(Format('%s%d+', [AStr, b1]), b2, Max); end; end;begin List := TStringList。Create; try List。Sorted := True; //进行排序,注释掉后则不排序 Break(Format('%d=', [ANum]), ANum, 0); AShowList。Assign(List); finally List。Free; end;end;调用时,可以在窗口上添加控件Memo1、TButton1、TEdit1。双击Button1加入如下代码即可：BreakNum(Memo1。Lines, StrToIntDef(Edit1。Text, 0));10的运行结果如下：10=1+1+1+1+1+1+1+1+1+110=1+1+1+1+1+1+1+1+210=1+1+1+1+1+1+1+310=1+1+1+1+1+1+2+210=1+1+1+1+1+1+410=1+1+1+1+1+2+310=1+1+1+1+1+510=1+1+1+1+2+2+210=1+1+1+1+2+410=1+1+1+1+3+310=1+1+1+1+610=1+1+1+2+2+310=1+1+1+2+510=1+1+1+3+410=1+1+1+710=1+1+2+2+2+210=1+1+2+2+410=1+1+2+3+310=1+1+2+610=1+1+3+510=1+1+4+410=1+1+810=1+2+2+2+310=1+2+2+510=1+2+3+410=1+2+710=1+3+3+310=1+3+610=1+4+510=1+910=1010=2+2+2+2+210=2+2+2+410=2+2+3+310=2+2+610=2+3+510=2+4+410=2+810=3+3+410=3+710=4+610=5+5