Program pascal fibonacci

By Masprastyo

Monday, July 1, 2013

Bismillah, oke share lagi ini merupakan program pascal fibonacci. tau kan fibonacci itu? 

Angka fibonacci adalah urutan angka (deret angka) yang disusun oleh Leoanardo Fibonacci pada tahun 1175 - 1245 M. Bilangan fibonacci dikenal juga dengan sebutan the golden number of human life.

Percaya atau tidak, menurut kepercayaan para ilmuwan di zaman dahulu kala, angka Fibonacci adalah salah satu bukti adanya Tuhan (inilah salah satu alasan saya memberi judul angka Tuhan). Wah kok bisa?

Apa sih sebenarnya bilangan Fibonacci itu? Bilangan Fibonacci adalah urutan angka yang diperoleh dari penjumlahan dua angka didepannya, misalnya seperti ini :

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, dst

Penjelasan : Misal Angka 5, diperoleh dari penjumlahan 2 angka didepannya yaitu 2+3.

oke cekidot

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;

        bool:string;

begin

        clrscr;

        repeat

        clrscr;

        write('Input jumlah baris angka fibonacci : '); readln(a);

        for i:=0 to a do

        write(fib(i), ' ');

        readln;

        write('Ulang (Y/T) : '); readln(bool);

        until (bool='T');

end.

nih kalo mau donlot file .pasnya (DISINI)
dan ini outputnya..

Share :

Facebook Twitter Google+