Programozás‎ > ‎Feladatok‎ > ‎Partíció probléma‎ > ‎Megoldás‎ > ‎

ep_par.pas

Letöltés: ep_par.pas

Program par;

var cache : Array[0..100] of Longint;


Procedure x(n,szint:integer);
Var i : integer;
Begin
     If n = 0 Then
     Begin
          For i:=1 To szint Do write(cache[i],' ');
          writeln;
     end;
     For i := cache[szint] To n Do
     Begin
         cache[szint + 1] := i;
         x(n-i,szint+1);
     End;
End;

Begin
    cache[0] := 1;
    x(30,0);
End.
ċ
ep_par.pas
(0k)
Gábor Fehér,
2012. jan. 14. 12:33
Comments