Pascal Iteration und Rekursion

Aus ProgrammingWiki

Archivierte Version vom 2012-11-27T10:23:04+00:00. Aktuelle Version

Vergleich von Iteration und Rekursion

Beispiele für die Fakultätsberechnung in iterativer und rekursiver Form:

Iterativ

function fakultaet_i(zahl:integer):integer;
   var i,ergebnis:integer;
  BEGIN
   // Fakultät nur für natürliche Zahlen (ohen Null).
   if zahl < 1 then
    return 0; 
   else
    BEGIN
     ergebnis := 1;
     for i:=1 to zahl do
      BEGIN
       ergebnis := ergebnis * i;
      END;
     result:=ergebnis;
    END;
  END;

Rekursiv

function fakultaet_r(zahl:integer):integer;
  begin
   // Fakultät nur für natürliche Zahlen (ohen Null).
   if zahl < 1 then
    result:=0 
   else
    begin
    if zahl = 1 then 
      result:=zahl
     else
      result:=zahl*fakultaet_r(zahl-1);
    end;
  end;

Ergebnis Testen:

const zahl = 5;
write("Iterative Berechnung der Fakultät von ");write(zahl);write("ergibt: ");writeln(fakultaet_i(zahl));
write("Rekursive Berechnung der Fakultät von ");write(zahl);write("ergibt: ");writeln(fakultaet_r(zahl));

Suche