Algoritma dan Pemrogaman : Fungsi atau Prosedur Rekursif

Sebuah fungsi rekursif mungkin dapat kita ubah menjadi prosedur rekursif. Berikut ini adalah contoh fungsi rekursif untuk mengembalikan bilangan fibbonacci suku ke n. Barisan Bilangan Fibonacci adalah barisan yang nilai sukunya sama dengan jumlah dua suku di depannya. Barisan: 1, 1, 2, 3, 5, 8, 13, 21, 34, …

program fibo_using_rekursif;
var
  x,i: integer;

function fib(n:integer):integer;
begin
  if(n=1) then fib:=1
  else if (n=2) then fib:=1
  else fib:=fib(n-1)+fib(n-2);
end;

begin
  writeln('deret fibonacci');
  write('input value : ');
  readln(x);
  writeln;

  for i := 1 to x do write(fib(i),' ');

  readln;
end.

Dan berikut ini adalah versi prosedurnya

procedure pib(n:integer; var hsl :integer);
var f1, f2: integer;
begin
  if(n=1) or (n=2) then hsl:=1
  else
    begin
      pib(n-1, f1);
      pib(n-2, f2);
      hsl:= f1 + f2;
    end;
end;

var x, i: integer; hsl:integer;
begin
  writeln('Barisan Bilangan Fibonacci');
  write('Jumlah bilangan Fibonnaci yang ingin ditampilkan : ');
  readln(x); 
  writeln;

  for i := 1 to x do
  begin
    pib(i,hsl);
    write(hsl,' ');
  end;

readln;
end.