Pemrograman 1 - Deret Fibbonaci (Array)

DERET FIBONACCI

Membuat sebuah larik dengan kapasitas 100 ruang data yang bertipe data integer. Isilah nilai larik pada index ke-1 dan index ke-2 dengan bilangan 1. Larik ini akan mengisi index ke-3 dan seterusnya berdasarkan penjumlahan pada dua buah bilangan sebelumnya, sehingga menjadi sebuah deret yang dinamakan dengan deret Fibonacci. Kemudian menampilkan deret tersebut.

• Berikut Source Code menggunakan Turbo Pascal.

Program Fibonaci;

uses crt;

type larik = array [1..100] of integer;

var deret : larik;

    n, a : integer;

begin

     clrscr;

     write('Masukkan jumlah deret : '); readln(n);

     writeln;

     for a:=0 to n-1 do

     begin

          if (a=0) or (a=1) then

             begin

                  deret[a]:=1;

                  write(deret[a],' ');

             end

          else

              begin

                   deret[a]:=deret[a-1] + deret[a-2];

                   write(deret[a],' ');

              end;

          end;

     readln;

end.

• Hasil Eksekusi