Hello...
Iseng aja nih mau bagi-bagi ilmu, sekalian mengingat-ingat pelajaran-pelajaran sebelumnya.
Buat yang udah pada lupa, saya ingatkan lagi, deret fibonacci itu adalah deret yang merupakan hasil penjumlahan 2 bilangan sebelumnya, ingat???
Contoh 7 awal deret fibonacci adalah 1,1,2,3,5,8,13,...

Nah di sini, saya ingin berbagi coding untuk membuat Deret Fibonacci pada bahasa pemrograman PASCAL.

Silahkan lihat di bawah :


01 program deret_fibonacci;
02 uses crt;
03 var
04 n : integer;
05 i : integer;
06 deret : array[1..100] of longint;
07
08 begin
09 clrscr;
10
11
12 write('Masukkan 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.


Gimana, jalan kan??? ;)

Selamat Mencoba. d^^