Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi best. rekursive funktion erklären (https://www.delphipraxis.net/33781-best-rekursive-funktion-erklaeren.html)

MathiasSimmack 12. Nov 2004 16:23

Re: best. rekursive funktion erklären
 
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 12. Nov 2004 16:28

Re: best. rekursive funktion erklären
 
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 12. Nov 2004 16:30

Re: best. rekursive funktion erklären
 
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 12. Nov 2004 16:51

Re: best. rekursive funktion erklären
 
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 12. Nov 2004 16:54

Re: best. rekursive funktion erklären
 
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 12. Nov 2004 17:32

Re: best. rekursive funktion erklären
 
: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 12. Nov 2004 17:52

Re: best. rekursive funktion erklären
 
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 12. Nov 2004 17:55

Re: best. rekursive funktion erklären
 
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....


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:46 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz