PROGRAM FIBONACCI PADA QBASIC

Script :
CLS
INPUT "masukkan jumlah angka fibonacci yang anda mau = ", w
q = 0
r = 1
FOR o = r TO w
IF q = 0 THEN
z = 1
END IF
PRINT z;
r = q
q = z
z = r + q
NEXT o

Penjelasan :
1. Bersihkan layar.
2. Perintah masukkan jumlah  angka Fibonacci.
3. Isi nilai q dengan 0 dan r dengan 1
4. Perintah perulangan untuk nilai o, dimulai dengan angka dari r sampai angka dari w.
5. Jika nilai q=0, maka nilai z adalah 1. Kondisi selesai .
6. Print nilai z. Dan isi nilai r dengan nilai dari q, dan nilai q dari nilai z dan nilai z dengan nilai r dikurang q.
7. Lanjutkan perulangan o.

OUTPUT :