Membuat Deret Fibonacci dengan Bahasa Pemgrograaman Pascal

Dalam matematika, bilangan Fibonacci adalah barisan yang didefinisikan secara rekursif, Berikut rumusnya:

 

Berikut contoh pembuatan Fibonacci dengan menggunakan bahasa pemrograman PASCAL:

program fibonacci;
uses wincrt;
var a, b, c, d, f : longint;
menu,i,sk1,sk2:integer;

function fibo(i:integer):longint;
begin
if i=0 then fibo:=0
else
if i=1 then fibo:=1
else
fibo:=fibo(i-1)+fibo(i-2);
end;


begin
writeln('+--------------------------------------+');
writeln('|         Program Deret Fibonacci      |');
writeln('|           Teknik Informatika        |');
writeln('+--------------------------------------+');
writeln('');
writeln('Silakan masukkan menu pilahan anda.');
writeln('1. Deret fibonacci dengan jumlah n suku.');
writeln('2. Deret fibonacci antara suku ke-a sampai suku ke-b.');
write('Silakan masukkan menu anda [1..2] ');readln(menu);
writeln;
case menu of
1:
(*menggunakan cara 1*)
begin
write('Masukkan Jumlah Suku Deret : ');
readln(a);
write('Deret Fibonaccinya Adalah : ');
d := 1;
f := 1;
c := 0;
write(f,' ');
for b := 2 to a do
    begin
        c := d + c;
        d := f;
         f := c;
          write(c,' ');
    end;
end;

2:
(*menggunakan function*)
begin
write('Masukkan Suku Ke-a : ');readln(sk1);
write('Masukkan Suku Ke-b : ');readln(sk2);
write('Deret Fibonaccinya Adalah : ');
for i:=sk1 to sk2 do
     begin
        write(fibo(i),' ');
    end;
end;
end;
end.


Dicoba, semoga bermanfaat. Terimakasih.

Source : Tugas Perkuliahan AP 1


 

Share this post