Fibonacci

Dalam matematika, bilangan Fibonacci adalah barisan yang didefinisikan secara rekursif sebagai berikut:

Penjelasan: barisan ini berawal dari 0 dan 1, kemudian angka berikutnya didapat dengan cara menambahkan kedua bilangan yang berurutan sebelumnya. Dengan aturan ini, maka barisan bilangan Fibonaccci yang pertama adalah:

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946...

Barisan bilangan Fibonacci dapat dinyatakan sebagai berikut:

F_n = (x₁ⁿ – x₂ⁿ)/ sqrt(5)

dengan

• F_n adalah bilangan Fibonacci ke-n
• x₁ dan x₂ adalah penyelesaian persamaan x²-x-1=0

(wikipedia)

Contoh Program Fibonacci untuk Pascal

program vibonacci;
uses wincrt;
var
b,a,c,i,n:integer;
begin
readln(n);
a:=0;
b:=1;
for i:=1 to n do
begin
c:=b;
b:=a;
a:=a+c;
writeln(a);
end;
end.

Posted in: 1311100133, dio ariadi, fibonacci, pascal, program pascal, program pascal fibonacci, turbo pascal