best. rekursive funktion erklären

[MathiasSimmack]

Zitat:

Zitat von Niels

[edit]
Mir ist grad nochwas aufgefallen. Der rechte Teil der Zuweisung

Delphi-Quellcode:

funktion:=funktion(x-1,y-1) + funktion(x,y);

wird immer wieder mit den Ausgangswerten aufgerufen.[/edit]

Das hat der Blechwolf schon vor ´ner Stunde bemerkt. :zwinker:

[Jelly]

Das Problem in der ganzen Rekursion ist, daß du keinen Startwert hast. Abgesehen von der Abbruchbedingung, berechnest du immer deine Funktion mit Vorwerten. Du brauchst aber einen Startwert, um deine Reihe überhaupt zu beginnen... Das kannst du mit dem Bsp vergleichen, daß du eine Zahl immer mit 2 multiplizierst, bis der Endwert > 100 wird. Du brauchst aber eine Startzahl, mit dem du beginnen kannst.

Gruß,
Tom

[Niels]

Zitat:

Zitat von MathiasSimmack

Zitat:

Zitat von Niels

[edit]
Mir ist grad nochwas aufgefallen. Der rechte Teil der Zuweisung

Delphi-Quellcode:

funktion:=funktion(x-1,y-1) + funktion(x,y);

wird immer wieder mit den Ausgangswerten aufgerufen.[/edit]

Das hat der Blechwolf schon vor ´ner Stunde bemerkt. :zwinker:

Tut mir leid :oops: ...bissl mehr schlafen und bissl weniger Kaffe wäre vielleicht besser :wink:

[glkgereon]

trotzdem bleibt die frage was die function macht...denn:

wenn sie mit x=2*y aufgerufen wird, dann wird sie ohne ergebniss beendet
wenn aber x<>2*x dann
wird immer wieder die function mit x-1 und y-1 aufgerufen
und dann mit den startwerten aufgerufen, wo es zu ner endlosschleife kommt.....

daher hat diese function keinen erkennbaren sinn....

denkbar wäre da schon eher sowas:

Delphi-Quellcode:

function funktion(x, y:byte): byte;
begin
  if (x<>2*y) then
    funktion:=funktion(x-1,y-1) + funktion(x,y);
end;

was das nu wieder bringt is ne andere frage....

[Jelly]

Zitat:

Zitat von Delphi-Joe

Delphi-Quellcode:

function funktion(x, y:byte): byte; 
begin 
  if (x<>2*y) then
    funktion:=funktion(x-1,y-1) + funktion(x,y);
end;

Zitat:

Zitat von glkgereon

Delphi-Quellcode:

function funktion(x, y:byte): byte;
begin
  if (x<>2*y) then
    funktion:=funktion(x-1,y-1) + funktion(x,y);
end;

Bitte wo ist denn da der Unterschied :gruebel:

[glkgereon]

:oops: :oops: :oops:

ich wollte eigentlich das schreiben:

Delphi-Quellcode:

function funktion(x, y:byte): byte;
begin
  if (x<>2*y) then
    funktion:=funktion(x-1,y-1) + funktion(x+1,y+1);
end;

[Niels]

Zitat:

Zitat von glkgereon

:oops: :oops: :oops:

ich wollte eigentlich das schreiben:

Delphi-Quellcode:

function funktion(x, y:byte): byte;
begin
  if (x<>2*y) then
    funktion:=funktion(x-1,y-1) + funktion(x+1,y+1);
end;

Hi,
ist irgendwie kein bisschen besser, weil eine Seite wieder zu ner Endlosrekursion führt und das "else" immer noch fehlt.

MfG Niels :thumb:

[glkgereon]

hmm :gruebel:

stimmt....

aber weisst du was uns die "arbeit" wesentlich erleichtern könnte?

wenn Delphi-Joe uns verraten würde ob es a) nur ein mehr oder minder dummes beispiel war oder b) was das tuen soll....