Question

WAP to generate the following series: 1 1 1 3 5 9 … n using FOR & WHILE Loop. in qbasic.

Answer 1

Answer:

WAP to display the series 2   3   5   8   12   17………. upto 10th terms

CLS

i = 2

FOR j = 1 TO 10

PRINT i;

i = i + j

NEXT j

END

Fibonacci Series

1    1    2    3     5      8……………………10th term

CLS

A = 1

B = 1

PRINT A; B;

FOR i = 1 TO 10

C = A + B

PRINT C;

A = B

B = C

NEXT