Contoh Program Fibonacci

Contoh Program :

(Gambar 1. Tampilan Program)

# Program Fibonacci; uses crt; var a,b : integer; function fibonacci(x:integer):integer; begin if(x=1) then fibonacci:=0 else if(x=2) then fibonacci:=1 else fibonacci:=fibonacci(x-1)+fibonacci(x-2); end; begin clrscr; gotoxy(15,1);writeln('Program Deret Fibonacci'); writeln; write('Masukkan Banyak Deret : ');readln(a); writeln; write('Hasilnya : '); for b:=1 to n do write(fibonacci(b),' '); readkey; end.

Sekian~



Sumber : madisite.blogspot.com