Menu

Wednesday, December 09, 2009

DERET FIBONACHI

Deret Fibonachi adalah salah satu kasus di bidang matematika. deret yang telah ditemukan oleh Fibonachi dengan pola 1 1 2 3 5,dst. Paling asik menghitung deret fibonachi menggunakan turbo pascal.

program fibonachi;

uses wincrt;

var
a:array[1..100] of real;
i,n:integer;

begin
write ( 'insert the number of fibonachi: ');readln(n);
a[1]:=1;
a[2]:=1;

for i:=2 to n do
a[i+1]:=a[i]+a[i-1];
for i:=1 to n do
write (a[i]:2:1,' ');


end.

Ngga yakin??? coba aja!!
selamat mencoba! :D

No comments:

Post a Comment

Thanks for your critics,,