lalala.....
Delphi-Quellcode:
procedure SucheLoesung(i, Erbhaelfte, TErbe: Integer) ;
var j: Integer ;
begin
{Memo1.Lines.Add('i: ' + IntToStr(i)) ;
Memo1.Lines.Add('Erbhaelfte: ' + IntToStr(Erbhaelfte)) ;
Memo1.Lines.Add('TErbe: ' + IntToStr(TErbe)) ;
Memo1.Lines.Add('__________') ;}
{ If TErbe = Erbhaelfte Then Edit1.Text:= 'Gefunden _ ' + IntToStr(TErbe)
Else
begin }
For j:= i To length(Feld) Do
begin
If (TErbe + Feld[j]) = Erbhaelfte Then
begin
Edit1.Text:= 'Gefunden _ ' + IntToStr(TErbe+Feld[j]) ;
end
Else If (TErbe + Feld[j]) < Erbhaelfte Then
begin
If j < length(Feld) Then
begin
SucheLoesung(j+1, Erbhaelfte, TErbe+Feld[j]) ;
end;
end;
end;
{end;}
end;
begin
If (ErbeBerechnen mod 2) = 0 Then SucheLoesung(1, ErbeBerechnen div 2, 0)
Else Edit1.Text:= 'Erbe nicht teilbar!' ;
Also bei all meinen Beispielen sowie einfach paar Zufallsdinger gibt er entweder das Teilerbe aus (richtige Teilerbe) oder eben nichts bzw. dass das Erbe nicht teilbar ist.
Soweit ich das sehe, ist der Code nun richtig.
Würde mich freuen wenn das jemand bestätigen könnte. Weil dann kann ich mich an die Ausgabe der verwendeten "Münzen" bzw. Felder machen.
mit freundlichen Grüßen