1:
2:
3:

for i := 0 to 100 do begin
  arrayxyz[i] := i;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

// 1. Globales Zahlen-Array: Zahlen[i]
// 2. Globales Boolsches Array, genausolang wie Zahlen, initial alles false: gewählt[i]
// 3. Summe: integer, initial 0
// 4. Maximalwert: MaxWert
// Benötigt wird außerdem noch eine Ausgabe-Prozedur, die ein Ergbnis z.B. in eine Memo reinpackt

procedure SucheRekursiv(start:Integer; ende:Integer);
begin
  gewählt[i]:=TRUE;
  inc(summe,zahlen[start]); // Den Wert des aktuellen Elements draufaddieren
*************
//  Ausgabe-Prozedur muss hierhin. Alle Werte, wo gewählt auf True ist, geben eine 
// mögliche Kombination
// Abfrage (*) stellt sicher, dass der maximal-Wert hier nicht überschritten ist.
*************
  for i:=start+1 to ende do
    // Wenn man den nächsten Wert noch draufpacken kann, dann machen wir das auch
    // und suchen dort rekursiv weiter
    if (summe + zahlen[i]) < MaxWert then (*)
      SucheRekursiv(start+i);
  // Element wieder aus der Auswahl rausnehmen und Summe erniedrigen.
  dec(summe, zahlen[start]);
  gewählt[i] := FALSE;
end;

// Aufruf der in z.B. ButtonKlick:
for i:=0 to length(zahlen)-1 do
  if zahlen[i]<Maxwert then
     SucheRekursiv(i,length(zahlen)-1)					

1:
2:
3:
4:
5:
6:

z.B. Zahlenwerte 1,2,3,4,5,6, MaxWert=8
Ausgabe (allerdings nicht in dieser Reihenfolge)

1,2,3,4,5,6, (EinerKombos)
1+2, 1+3, 1+4, 1+5, 1+6, 2+3, 2+4, 2+5, 2+6, (ZweierKombos)
1+2+3,1+2+4,1+2+5 (DreierKombos)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

...
 
procedure TForm1.BerechnenClick(Sender: TObject);  
var i:integer;  
begin  
for i:=1 to 78 do  
  Kombinationen(i,78); // Es gibt keine Zahl grösser als die Grenze, deshalb fällt hier der Check weg
end;  

 
procedure TForm1.Kombinationen(start:integer; ende:integer);  
var i:integer;  
begin  
  swahrheit[start]:=true;  
  inc(geslaenge,slaenge[start]);  
  Ausgabe; // Aufruf der Ausgabe-Prozedur  
  for i:=start+i to ende do // aktuelles Problem  
    if (geslaenge+slaenge[i])<grenze then  
      Kombinationen(start+i,78) 
    else  
    begin  
      dec(geslaenge,slaenge[start]);  
      swahrheit[i]:=false;  
    end;  
end;  

 
procedure TForm1.Ausgabe; // schreibt alle Ergebnisse in ein StringGrid  
var i,x:integer;  
begin  
x:=0;  
y:=y+1;  
StringGrid1.RowCount:=y;  
StringGrid1.Cells[0,y-1]:=inttostr(y);  
  for i:=1 to 78 do  
    if swahrheit[i]=true then  
    begin  
      x:=x+1;  
      StringGrid1.Cells[x,y-1]:=inttostr(i);  
    end;  
end;  

...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Kombinationen(start:integer; ende:integer);     
var i:integer;     
begin     
  swahrheit[start]:=true;     
  inc(geslaenge,slaenge[start]);     
  Ausgabe; // Aufruf der Ausgabe-Prozedur     
  for i:=start+1 to ende do 
    if (geslaenge+slaenge[i])<grenze then     
      Kombinationen(i,78)    
//    else     
//    begin     
// das machen, wenn die Schleife beendet ist
      dec(geslaenge,slaenge[start]);     
      swahrheit[start]:=false;     
//    end;     
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

#include <stdio.h>

int main()
{
  char mynum[10] = {0};
  int i = 0, j, base = 26;
  while (i < 100) // erste 100 variationen
  {
    for(j=0; j<10; ++j)
      printf("%c", 'A'+mynum[j]);
    puts("\n");
    for(j=9;j;)
    {
      mynum[j] = (mynum[j]+1)%base;
      if (mynum[j--]) break;
    }
    ++i;
  }
  return 0;
}