MATRIK

PROGRAM BILANGAN FIBONNANCI

uses wincrt;
var
 i,j,k,a,x:integer;
 simpan : array[1..100] of integer;
 begin
      clrscr;
       Writeln('         Program Bilangan Fibonacci ');
       writeln('        -----iryani tiara arif-----');writeln;
      write('Masukkan jumlah looping : ');readln(a);
      for i:= 1 to a do
      begin
       if (i=1) or (i=2) then
       begin
       simpan[i]:=1;
       write(simpan[i],' ');
       end
       else
       begin
       simpan[i] := simpan[i-1]+simpan[i-2];
       write(simpan[i],' ');
       end;
      end;
      readln;
begin
writeln;
write('fibonansi ke  ');read(k);
writeln;
write(simpan[k]);
 end;
 end.