Einzelnen Beitrag anzeigen

-lx-
(Gast)

n/a Beiträge
 
#20

Re: Problem der Erbteilung ?

  Alt 20. Nov 2006, 22:48
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
Miniaturansicht angehängter Grafiken
ccf20112006_00000_kopie_940.jpg  
  Mit Zitat antworten Zitat