正整数因子乘积回溯法PASCAL代码.docVIP

正整数的因子乘积的回溯法PASCAL代码 【问题】一个正整数（非素数）可以表示成它的因子的乘积。 给出一正整数，求出它的所有的因子乘积表达式。（交换律得出的表达式为同一种） 如：12的因子有2，3，4，6；12可以表示成2*2*3=3*4=2*6。 样例： 【输入】12 【输出】12=2*6 12=2*2*3 12=3*4 算法思路：先求出该正整数的所有因子，存放在x数组中，b数组存放解的因子； 搜索分量h，终止条件h1 枚举分量i：枚举所有因子x[i] 约束条件1：当前因子x[i] 不能小于前面的因子b[h-1] 约束条件2：能继续分解出大于等于当前因子, 否则需要回溯 s=b[1]*b[2]*...b[h]*s 【程序代码】 var n,s,i,j:integer; x,b:array[0..100] of integer; procedure try(h:integer); var i,p:integer; begin if h1 then begin write(n,=); for p:=1 to h-1 do write(b[p],*); writeln(s); end ; for i:=1 to j do if x[i]=b[h-1] then if s div x[i]x[i] then exit else if s mod x[i]=0 then begin b[h]:=x[i]; s:=s div b[h]; try(h+1); s:=s*b[h]; end; end; begin readln(n); s:=n; j:=0; for i:=2 to s div 2 do if s mod i=0 then begin j:=j+1;x[j]:=i ; end; try(1); readln; end.