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