Deret Fibonacci dengan Pascal

Apa sih deret Fibonacci? dan apa sih kegunaanya?
Deret Fibonacci adalah suatu deret matematika yang berasal dari penjumlahan dua bilangan sebelumnya,
Untuk lebih jelasnya silahkan kunjungi url http://id.answers.yahoo.com/question/index?qid=20071103230736AA1PeL0 atau http://id.wikipedia.org/wiki/Bilangan_Fibonacci

Kalau sudah mengerti apa itu deret Fibonacci dan kegunaanya, sekarang kita lanjutkan ke program yang akan kita buat untuk membuat deret tersebut. Ada beberapa referensi blog yang pernah saya lihat, seperti http://rizalp.blogspot.com/2008/11/algoritma-deret-bilprima-dan-deret.html, tapi disana tidak menggunakan array, jadi menurut saya gregetnya kurang.

Berikut ini source program untuk membuat deret Fibonacci dengan Pascal.

	program fibonacci;
	uses crt;
	var
	   n:integer;
	   i:integer;
	   deret:array[1..100] of longint;

	begin
		{deret fibonacci adalah deret yang merupakan hasil penjumlahan 2 bilangan sebelumnya}
		{7 awal deret fibonacci = 1,1,2,3,5,8,13,...}
		 clrscr;
		 write('Masukan jumlah deret :');
		 readln(n);
		 writeln;
		 for i := 0 to n-1 do
		 begin
			  if (i = 0) or (i = 1) then
				 begin
					  deret[i]:=1;
					  write(deret[i],' ');
				 end
			  else
				  begin
					   deret[i]:=deret[i-1]+deret[i-2];
					   write(deret[i], ' ');
				  end;
		 end;
		 readln;
	end.