Algoritma Pemrograman : Membuat Barisan Fibonacci

Assalamualaikum gan!

Balik lagi nih ane udah lama gak ngepost, maklum gan lagi sibuk kuliah. Kebetulan ane ada tugas dari dosen ane buat bikin barisan fibonacci dengan struktur algoritma gan. Barisan fibonacci itu bisa disebut sebagai barisan yang dihasilkan dari penjumlahan bilangan barisan terakhir dengan barisan sebelumnya gan, dimana dua barisan awalnya adalah 0 dan 1 (sumber). Lebih gampangnya lihat contoh dibawah gan!

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, ...........

Nah pasti udah kebayang kan? Langsung aja deh ke intinya ya gan. Disini ane mau coba praktekin apa yang udah ane pelajari kemarin. Ada tiga bentuk penyajian algoritma, yaitu:

1. Struktur Bahasa Indonesia
2. Pseudocode
3. Flowchart

Ane bakal coba memakai semua penyajian algoritma untuk membentuk barisan fibonacci itu gan. Oiya berhubung barisan fibonacci itu tak berhingga banyaknya, ane batesin sampai 100 angka aja ya gan. Cus gan!

• Struktur Bahasa Indonesia

1. Baca angka 0 dan 1.
2. Tulis angka 0 dan 1 dengan 0 sebagai urutan pertama dan 1 sebagai urutan kedua.
3. Jumlahkan angka urutan terakhir dengan angka urutan sebelum terakhir.
4. Tulis hasilnya sebagai urutan terakhir yang baru.
5. Ulangi langkah ke-3 sampai ke-4 hingga menghasilkan urutan ke-100.

• Pseudocode

1. Input (data [1]=0 ; data [2]=1)
2. Output (data [1] , data [2])
3. data [x] = data [x-1] + data [x-2] ; x ≥ 3 ; x : integer
4. Output (data [x])
5. Repeat step 3-4 until x=100

• Flowchart

Kira-kira begitulah beberapa bentuk penyajian algoritma dari barisan fibonacci gan. Terus disini ane juga mau coba memakai struktur pengulangan "while ... do ..." gan. Sebenarnya ada beberapa struktur pengulangan yang baru ane pelajari kemarin tapi nyoba yang ini dulu deh yak hehe.

program Barisan_Fibonacci;
uses crt;
var
a,b,c,n:integer;

begin

clrscr;
a:=0;
b:=1;
write('masukkan angka :');
readln(n);
while a<n do
begin
c:=a+b;
writeln(a);
a:=b;
b:=c;
end;
readln;

end.

Kira-kira begitulah gan struktur penulisan barisan fibonacci dengan pascal. Kalau menurut agan ada yang kurang atau salah, silahkan komentar aja gan. Makasih udah mampir di blog ane gan, tunggu postingan ane selanjutnya!