Programozás‎ > ‎Feladatok‎ > ‎Szorzattá bontás‎ > ‎Megoldás‎ > ‎

fa_szor.dpr

Letöltés: fa_szor.dpr

{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q+,R+,S-,T-,U+,V+,W+,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE CONSOLE}
program felbont2;

uses
  SysUtils;

Var t : array [1..100] of integer;

Procedure felb(n,szint:integer);
Var i : integer;
Begin
  If (n in [0,1]) then
    Begin
      for i:=1 to szint-2 do write(t[i],'*');
      Writeln(t[szint-1]);
    End;
  For i:=2 to n do
    Begin
      {i*(n/i)}
      t[szint]:=i;
      {If monoton csokkeno then csinald}
      If (szint=1)and((n mod i)=0) then felb(n div i,szint+1) else
      If (szint>1)and(t[szint-1]>=i)and((n mod i)=0) then felb(n div i,szint+1);
    End;
End;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  felb(20,1);
  Readln;
end.
ċ
fa_szor.dpr
(1k)
Gábor Fehér,
2012. jan. 22. 4:57
Comments