Program to display 1,1,2,3,5,8........upto 10th term using SUB
DECLARE SUB SERIES()
CLS
CALL SERIES()
END
SUB SERIES()
A=1
B=1
FOR I= 1 TO 5
PRINT A
PRINT B
A=A+B
B=A+B
NEXT I
END SUB
CLS
CALL SERIES()
END
SUB SERIES()
A=1
B=1
FOR I= 1 TO 5
PRINT A
PRINT B
A=A+B
B=A+B
NEXT I
END SUB
Comments
Post a Comment