Delphi-PRAXiS - Delphi Schnelle einführung in die Rekursion gesucht

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Schnelle einführung in die Rekursion gesucht (https://www.delphipraxis.net/87867-schnelle-einfuehrung-die-rekursion-gesucht.html)

DaHui

6. Mär 2007 15:01

Schnelle einführung in die Rekursion gesucht

Sooodele
schreib übermorgen meine Info Klausur bin alles durchgegangen und sieht soweit ganz gut aus nur das mit der Rekusrion versteh ich noch nicht so GANZ

könnte mir jemand von euch schlauen Köpfen hier vielliecht eine schnelle Einführung geben? vll mit einem kleinen Code Beispiel?? währe nett

so long

thx im Vorraus

Timo/dahui

brechi

6. Mär 2007 15:06

Re: Schnelle einführung in die Rekursion gesucht

Delphi-Quellcode:

			
function fakultaet(n: integer): integer;

begin

  if (n < 2 then)

    Result := 1 else

    Result := n*fakultaet(n-1);  //rekursiver aufruf

end;

Einfachstes Beispiel und es sollte selbsterklärend sein :)

CK_CK

6. Mär 2007 15:08

Re: Schnelle einführung in die Rekursion gesucht

Hi!
Also, was Rekursion ist weißt du ja bestimmt schon...
(Eine Prozedur ruft sich selbst wieder auf...)

Eine typische rekursive Aufgabe ist (neben der Fakultät) z.B. der Quicksort-Algorithmus...

Delphi-Quellcode:

			procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);

var

  Lo, Hi, Mid, T: Integer;

begin

  Lo := iLo;

  Hi := iHi;

  Mid := A[(Lo + Hi) div 2];

  repeat

    while A[Lo] < Mid do Inc(Lo);

    while A[Hi] > Mid do Dec(Hi);

    if Lo <= Hi then

    begin

      T := A[Lo];

      A[Lo] := A[Hi];

      A[Hi] := T;

      Inc(Lo);

      Dec(Hi);

    end;

  until Lo > Hi;

  if Hi > iLo then QuickSort(A, iLo, Hi);

  if Lo < iHi then QuickSort(A, Lo, iHi);

end;

Wenn du den verstanden hast, dann wirst du in der Klausur keine Probleme haben...
(Ist schon schwieriger, als der Fakultäts-Algorithmus...) ;)

Viele Grüße,
Chris

DaHui

6. Mär 2007 15:13

Re: Schnelle einführung in die Rekursion gesucht

und wenn nicht o.O

Robert Marquardt

6. Mär 2007 15:25

Re: Schnelle einführung in die Rekursion gesucht

Siehe hier