Iteration und Rekursion in Pascal 2

Aus ProgrammingWiki

< Einführungskurs

Archivierte Version vom 2011-01-17T19:55:36+00:00. Aktuelle Version

Inhaltsverzeichnis

1 Typische Beispiele selbstständig bearbeiten
- 1.1 Summe der ersten n natürlichen Zahlen
  - 1.1.1 iterativ
  - 1.1.2 rekursiv
- 1.2 Die Fibonaccizahlen
  - 1.2.1 iterativ
  - 1.2.2 rekursiv

Typische Beispiele selbstständig bearbeiten

Summe der ersten n natürlichen Zahlen

Schreiben Sie eine iterative sowie rekursive Funktion, die die Summe der ersten n Zahlen berechnet!

iterativ

function summe_erste_n(n:integer):integer;

begin

end;

writeln(inttostr(summe_erste_n(5)));

rekursiv

function su_rek(n:integer):integer;
begin

end;

writeln(inttostr(su_rek(5)));

Die Fibonaccizahlen

Leonardo Fibonacci di Pisa (* um 1180; † 1241) beschrieb die Fortpflanzung von Kaninchen mit der Zahlenfolge:

1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...

Definition:

\mbox{fib}(n)=\begin{cases}1,\mbox{wenn}\hspace{0.3em}n=1\\1,\mbox{wenn}\hspace{0.3em}n=2\\\mbox{fib}(n-1)+\mbox{fib}(n-2),\mbox{sonst}\end{cases}

Beschreibung:

Die Kaninchenpaar bekommt nach zwei Monaten Nachwuchs (Pärchen!), dies dann jeden Monat. Die "Kinderpaare" verhalten sich genauso. Die Kaninchen leben "unendlich lange".

Das bedeutet:

Die ersten beiden Glieder der Zahlenfolge sind jeweils 1.
Jedes weitere Glied ergibt sich aus der Summe seiner beiden Vorgänger.

Prüfen!

siehe auch http://www.ijon.de/mathe/fibonacci/index.html

iterativ

Zunächst eine iterative Version:

function fibo_it(n:integer):integer;
var f1,f2:integer;
begin
  result := 1;
  f1 := 1;
  f2 := 1;
  for n := 3 to n do
  begin
    result := f1 + f2;
    f1 := f2;
    f2 := result;
  end;
end;

writeln(fibo_it(4));

rekursiv

Schreiben Sie nun eine rekursive Funktion gemäß der oberen Beschreibung:

function fibo_rek(n:integer):integer; 
begin
 
end;

write(fibo_rek(3));

Iteration und Rekursion in Pascal 2

Inhaltsverzeichnis

Typische Beispiele selbstständig bearbeiten

Summe der ersten n natürlichen Zahlen

iterativ

rekursiv

Die Fibonaccizahlen

iterativ

rekursiv

Suche