Informatika gyűjtemény

Egy szinttel feljebb fa_szor.dpr

2004050607080910

<<  1. óra  >>

<<  Szorzattá bontás  >>

NézetNyomtat

fa_szor.dpr (Vissza)
Az alábbi letöltési lehetőségek közül választhatsz: (segítség)
Karakterkódolás:
Sortörés:
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: us-ascii
Méret: 774 byte
{$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.
(Vissza)