# Lesson Archives

1. ## WAP to generate the following series 9,28,14,7,22,11…………..10th term

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES A = 9 FOR I = 1 TO 10 PRINT A; IF A MOD 2 = 0 THEN A = A \ 2 ELSE A = A * 3 + 1 END IF NEXT I END SUB
2. ## WAP to generate the following series 1,4,9…………..9th term

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES FOR I = 1 TO 9 PRINT I ^ 2 NEXT I END SUB
3. ## WAP to generate the following series 11,3,14,17,31………….18th term

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES A = 11 B = 3 FOR I = 1 TO 18 PRINT A; C = A + B A = B B = C NEXT I END SUB
4. ## WAP to generate the following series 2,3,5,8,13…………10th term

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES A = 2 B = 3 FOR I = 1 TO 10 PRINT A; C = A + B A = B B = C NEXT I END SUB
5. ## WAP to generate the following series 2,4,6,8………….12th term

DECLARE SUB SERIES ( ) CLS CALL SERIES END SUB SERIES A = 2 FOR I = 1 TO 12 PRINT A, A = A + 2 NEXT I END SUB
6. ## WAP to generate the following series ½, 2/3, ¾……….15th term

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES A = 1 B = 2 FOR I = 1 TO 15 PRINT A; "/"; B A = A + 1 B = B + 1 NEXT I END SUB
7. ## WAP to generate the following series 123456789,1234567,12345,123,1

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES A# = 123456789 FOR I = 1 TO 5 PRINT A# A# = A# \ 100 NEXT I END SUB
8. ## WAP to generate the following series 1,23,456,78910

DECLARE SUB SERIES () CLS CALL SERIES : END SUB SERIES N = 1 FOR I = 1 TO 4 FOR J = 1 TO I PRINT N; N = N + 1 NEXT J PRINT NEXT I : END SUB
9. ## WAP to generate the following series 13579,1357,135,13,1

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES FOR I = 9 TO 1 STEP -2 FOR J = 1 TO I STEP 2 PRINT J; NEXT J PRINT NEXT I END SUB
10. ## WAP to generate the following series 88888888,666666,4444,22

DECLARE SUB SERIES () CLS CALL SERIES : END SUB SERIES FOR I = 8 TO 2 STEP -2 FOR J = 1 TO I PRINT I; NEXT J PRINT NEXT I END SUB
error: Content is protected !!