Program Mencari Suku Bilangan Fibonacci Menggunakan Pascal

Program pascal berikut untuk mencari suku bilangan Fibonacci. 

program cari_suku_fibonacci;
uses wincrt;
var x:array[1..50] of integer;
    i,n:integer;
begin
    x[1]:=1; x[2]:=1;
    write('Anda mencari suku ke : ');readln(n);
    write(x[1],' ');
    write(x[2],' ');
    for i:=3 to n do
    begin
	x[i]:=x[i-1]+x[i-2];
	write(x[i],' ');
    end;
    writeln;
    writeln('Suku ke ',i,' = ',x[i]);
    readln;
end.

Download

---

Baca Juga :

• Konversi Detik Ke Jam Menit Detik Pada Visual Basic
• Form Berbentuk Ellips/Bulat Pada Visual Basic
• Membuat Form Agar Tidak Bisa Di Maximize Pada Visual Basic
• Membuat Form Agar Tidak Bisa Di Resize Pada Visual Basic
• Source Code AutoComplete Pada ComboBox Di Visual Basic