Bilangan Fibonacci Pascal

       Bilangan Fibonacci adalah kumpulan bilangan yang merupakan hasil dari penjumlahan dua suku bilangan sebelumnya. Misalnya 0, 1, 1, 2, 3, 5, 8, 13, ..., n. Angka yang bergaris bawah adalah angka yang merupakan hasil penjumlahan dua suku sebelumnya. Dimulai dari 1 yang merupakan hasil dari 1 + 0, kemudian 2 yang merupakan hasil dari 1+1, 3 yang merupakan hasil dari 1+2, dan seterusnya. Dalam bahasa pascal, bilangan fibonacci dapat dirumuskan menggunakan rekursif (perulangan menggunakan sub program). Berikut source code dari program fibonacci menggunakan rekursif :

uses crt;

function fib(n:integer):integer;

begin

        if (n=0) then

                fib:=0

        else if (n=1) then

                fib:=1

        else

                fib:=fib(n-1)+fib(n-2);

end;

var  i,a:integer;

begin

        clrscr;

        writeln('Program Bilangan Fobonacci');

        writeln('----------------------------------'); writeln ;

        write('Inputkan Angka     : '); readln(a);

        write('Bilangan Fibonacci : ');

        for i:=0 to a-1 do

        write(fib(i), ' ');

        readln;

end.

Hasil dari program tersebut : 

Share this

Unknown