Buka Qbasiq terlebih dahulu
·
Setelah Qbasic terbuka, ketikan bahasa program
Qbasic dibawah ini :
DIM
f(20)
INPUT
"Masukan angka awal :", n
FOR a
= 1 TO 20
IF a = 1 THEN f(x) = n
IF a = 2 THEN f(x) = n + 1
IF a > 2 THEN f(x) = f(x - 2) + f(x - 1)
PRINT f(x);
x = x + 1
NEXT
a
END
Deklarasi array : DIM f(x),
Dengan ‘n’
sebagai penentu banyaknya array yang akan dibuat.
INPUT “masukkan angka awal: “, n
Meminta data
ke user untuk harga awal ‘ n ‘ digunakan sebagai angka pertama fibonacci
yang
akan tampil
di output program.
FOR a = 1 TO 20
melaksanakan
perulangan / looping “FOR” dengan harga awal a = 1 dan batas loopnya adalah 20
Menyeleksi kondisi :
IF a = 1 THEN f(x) = n
IF a = 2 THEN f(x) = n + 1
IF a > 2 THEN f(x) = f(x - 2) + f(x - 1)
PRINT f(x)
Menampilakn hasil f(x)
x = x + 1
Operasi penjumlahan x
·
Kemudian tekan F5 atau klik run kemudian Start.
Berikut hasilnya :