QBASIC Program To Print Fibonacci Series Up To 10 Term

QBASIC Program To Print Fibonacci Series Up To 10 Term

CLS

LET A=0

LET B=1

FOR I = 1 TO 1O

LET C=A+B

PRINT C;

A=B

B=C

NEXT I

END 

QBASIC Program To Print Fibonacci Series Up To 10 Term USing SUB Procedure

DECLARE SUB FIBO(A, B) 

CLS

LET A=0

LET B=1

CALL FIBO(A, B)

END

SUB FIBO(A, B)

FOR I = 1 TO 1O

LET C=A+B

PRINT C;

A=B

B=C

NEXT I

END SUB