fibonacci pada pascal

Selasa, 05 April 2011 | chandra wp
di 18.58 |

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.
langsung ja ya kita praktikan hehehehehehe
Berikut ini source program untuk membuat deret Fibonacci dengan Pascal.

01	program fibonacci;

02

uses crt;

03

var

04	n:integer;

05	i:integer;

06	deret:array[1..100] of longint;

07

08

begin

09	{deret fibonacci adalah deret yang merupakan hasil penjumlahan 2 bilangan sebelumnya}

10	{7 awal deret fibonacci = 1,1,2,3,5,8,13,...}

11

clrscr;

12	write('Masukan jumlah deret :');

13	readln(n);

14

writeln;

15	for i := 0 to n-1 do

16

begin

17	if (i = 0) or (i = 1) then

18

begin

19	deret[i]:=1;

20	write(deret[i],' ');

21

end

22

else

23

begin

24	deret[i]:=deret[i-1]+deret[i-2];

25	write(deret[i], ' ');

26

end;

27

end;

28

readln;

29

end.