Sabtu, 31 Januari 2009

Membuat Program Pascal untuk Barisan Fibonacci 1(Menggunakan Array)

program fibonaci1;
uses wincrt;
var
x:array[0..100]of longint;
i,n:integer;
begin
x[1]:=1;
x[0]:=0;
write(' Masukkan banyaknya bilangan fibonaci = ');readln(n);{meginputkan banyaknya bilangan}
for i:=1 to n do {mengulang sampai n kali}
begin
x[i+1]:=x[i]+x[i-1]; {nilai x berikutnya adalah hasil penjumlahan 2 nilai sebelumnya}
writeln(x[i-1]); {menampilkan nilai-nilai x}
end;
readln;
end.

Lihat juga edisi kedua.

Tidak ada komentar:

Posting Komentar

Kirim Komentar Anda
(Send Your Comment)