Obarvený kód souboru michal.pas

uses crt;

var x    : array[1..6] of word;
    n,i  : integer;
    konec: boolean;

function soucet:boolean; (*odpovida soucet zadani?*)
var s    : word;
 begin
  s:=0;
  for i:=1 to 5 do s:=s+x[i];
  if s=n then soucet:=true else soucet:=false;
 end;

procedure vypis; (*vypise formatovany vystup*)
 begin
  if soucet then
   begin
    for i:=1 to 5 do write(x[6-i]:4);
    writeln;
   end;
 end;

procedure kombinace1; (*Vytvori pocatecni stav*)
 begin
  for i:=1 to 4 do x[i]:=n div 5;
  if n mod 5=0 then x[5]:=n mod 5;
  vypis;
 end;

begin
 clrscr;
 writeln('Vygeruje kombinace cisel kde plati x1>=x2>=x3>=x4>=x5 a x1+x2+x3+x4+x5=N');
 writeln;
  gotoxy(50,20);
   write('Autor : Michal Trs');
  gotoxy(5,5);
   write('Zadejte cislo N : ');
   readln(n);

 if n>=0 then
 begin
  writeln('x1':4,'x2':4,'x3':4,'x4':4,'x5':4);
  kombinace1;
  x[6]:=32767; (* nastavi virtualni hodnotu pro overovani podminky
	x1>=x2>=x3>=x4>=x5
	, aby nesahal mimo vytvorene pole a nebylo nutne slozitych
	omezeni testovani *)
  repeat
   i:=0;
   repeat
    inc(i);
    konec:=false;
    if x[i]+1>x[i+1] then x[i]:=0 else
     begin
      inc(x[i]);
      konec:=true;
     end;
   until konec; (* nalezl dalsi moznou kombinaci po strance  *)
                (* nerovnosti. Soucet bude jeste kontrolovan *)
                (* procedurou vypis...                       *)
   vypis;
  until x[1]>=n;
 end 
  else
   writeln('Cislo musi byt kladne...');

 readln;
end.

created by PaJa