Qbasic Program: 5, 55, 555, 5555, 55555

216. WAP  to print the following series 9,7,5,….1.

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

FOR I = 9 TO 1 STEP-2

PRINT I

NEXT I

END SUB

217. WAP using  to display product of all numbers from 4 to 8.

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

P = 1

FOR I = 4 TO 8

P = P * I

NEXT I

PRINT “PRODUCT OF ALL NUMBERS FROM 4 TO 8”; P

END SUB

218.  WAP to generate the following numeric pattern 1,12,123,1234,12345

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 5

FOR J = 1 TO I

PRINT J;

NEXT J

PRINT

NEXT I

END SUB

219.  WAP to generate the following series 55555,4444,333,22,1

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 5 TO 1 STEP -1

FOR J = 1 TO I

PRINT I;

NEXT J

PRINT

NEXT I

END SUB

220. WAP to generate the following series 5,54,543,5432,54321

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 5 TO 1 STEP -1

FOR J = 5 TO I STEP -1

PRINT J;

NEXT J

PRINT

NEXT I

END SUB

221. WAP to generate the following series 54321,5432,543,54,5

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 5 TO 1 STEP -1

FOR J = I TO 1 STEP -1

PRINT J;

NEXT J

PRINT

NEXT I : END SUB

222. 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

223. 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

224. 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

225. 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

226. WAP to generate the following series ½, 2/3, ¾……….15^th 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

227. WAP to generate the following series 2,4,6,8………….12^th 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

228. WAP to generate the following series 2,3,5,8,13…………10^th 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

229. WAP to generate the following series 11,3,14,17,31………….18^th 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

230. WAP to generate the following series 1,4,9…………..9^th term.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 9

PRINT I ^ 2

NEXT I

END SUB

231. WAP to generate the following series 9,28,14,7,22,11…………..10^th 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

232. WAP to generate the series 1,4,7,10………….12^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 1

FOR I = 1 TO 12

PRINT A;

A = A + 3

NEXT I

END SUB

233. WAP to generate the series 10,20,30………100.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 1

FOR I = 10 TO 100 STEP 10

PRINT I,

NEXT I

END SUB

234. WAP to generate the series 100,95,90…………………..10^th term.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 100

FOR I = 1 TO 10

PRINT A;

A = A - 5

NEXT I

END SUB

235. WAP to generate the series 1,8,27……………8^th.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 8

PRINT I ^ 3,

NEXT I

END SUB

236. WAP to generate the series 2,22,222………..13^th term.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A# = 2

FOR I = 1 TO 13

PRINT A#;

A# = A# * 10 + 2

NEXT I

END SUB

237.   WAP to generate the series 55555,5555,555,55,5.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 55555

FOR I = 1 TO 5

PRINT A;

A = A \ 10

NEXT I

END SUB

238.   WAP to generate the series 1,2,3,5…………9^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 1

B = 2

FOR I = 1 TO 9

PRINT A;

C = A + B

A = B

B = C

NEXT I

END SUB

239. WAP to generate the series 2,2,4,6,10………….13^th term.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 2

B = 2

FOR I = 1 TO 13

PRINT A;

C = A + B

A = B

B = C

NEXT I

END SUB

240. WAP to generate the series 3,10,5,16………………11^th term.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 3

FOR I = 1 TO 11

PRINT A;

IF A MOD 2 = 0 THEN

A = A \ 2

ELSE

A = A * 3 + 1

END IF

NEXT I

END SUB

241. WAP to generate  7,22,11,34……………19^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 7

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

242. WAP to generate the series10,12,15,19…………..14^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 10

B = 2

FOR I = 1 TO 14

PRINT A

A = A + B

B = B + 1

NEXT I

END SUB

243. WAP to generate the series 50,46,41,35…………..7^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 50

B = 4

FOR I = 1 TO 7

PRINT A

A = A - B

B = B + 1

NEXT I

END SUB

244. WAP to generate the series .1,0.01,0.001,0.0001,0.00001

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 1

FOR I = 1 TO 5

PRINT A / 10 ^ I

NEXT I

END SUB

245. WAP to generate the series 0.00003,0.0003,,0.003,0.03,0.3.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = .00003

FOR I = 1 TO 5

PRINT A

A = A * 10

NEXT I

END SUB

246. WAP to display numbers 1,3,5……..30.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 30 STEP 2

PRINT I,

NEXT I

END SUB

247. WAP to display numbers 70,61,52…..7

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 70 TO 7 STEP -9

PRINT I

NEXT I

END SUB

248. WAP to generate the following series 1,121,12321,1234321,123454321.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A# = 1

FOR I = 1 TO 5

PRINT A# ^ 2

A# = A# * 10 + 1

NEXT I

END SUB

249. WAP to generate the following series 11111,1111,111,11,1.                  

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 11111

FOR I = 1 TO 5

PRINT A

A = A \ 10

NEXT I

END SUB

250. WAP to display 3,6,12,24………15^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 3

FOR I = 1 TO 15

PRINT A

A = A * 2

NEXT I

END SUB

251. WAP to display -30,-20,-10,0,10,……………20^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = -30

FOR I = 1 TO 20

PRINT A,

A = A + 10

NEXT I

END SUB

252. WAP to generate the following series 5,55,555,5555,55555.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 5

FOR I = 1 TO 5

PRINT A,

A = A * 10 + 5

NEXT I

END SUB

253. WAP to display numbers 30,28.5,27,25.5…….9^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 30

FOR I = 1 TO 9

PRINT A,

A = A – 1.5

NEXT I

END SUB

254. WAP to generate the series 1,5.25,125…..10^th terms.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 1

FOR I = 1 TO 10

PRINT A,

A = A * 5

NEXT I

END SUB

255. WAP using  to display 50,75,100,125,150.

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 50 TO 150 STEP 25

PRINT I,

NEXT I

END SUB

256. WAP using  to display 1, 10, 101, 1010, 10101

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 5

FOR J = 1 TO I

PRINT J MOD 2;

NEXT J

PRINT

NEXT I

END SUB

257. WAP to display

1          2          3          4          5

2          4          6          8          10

3          6          9          12        15

4          8          12        16        20

5          10        15        20        25       

USING SUB PROCEDURE

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

FOR I = 1 TO 5

FOR J = 1 TO 5

PRINT I * J,

NEXT J

PRINT

NEXT I

END SUB

258. WAP to display

8  8  8  8  8  8  8  8

    6  6  6  6  6  6

        4  4  4  4

            2  2

USING SUB PROCEDURE

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

T = 10

FOR I = 8 TO 1 STEP -2

PRINT TAB(T);

FOR J = 1 TO I

PRINT I;

NEXT J

T = T + 3

NEXT I : END SUB

259. WAP to display

123456789

  1234567

    12345

      123

        1

USING SUB PROCEDURE

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A# = 123456789

FOR I = 1 TO 5

PRINT TAB(I); A#

A# = A# \ 100

NEXT I

END SUB

260. WAP to display

40

38   40

36   38   40

34   36   38   40

32   34   36   38   40

USING SUB PROCEDURE

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 40

FOR I = 1 TO 5

B = A

FOR J = 1 TO I

PRINT B;

B = B + 2

NEXT J

PRINT

A = A - 2

NEXT I : END SUB

261. WAP to display

70   65   60   55   50

70   65   60   55

70   65   60

70   65

70

USING SUB PROCEDURE

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES

A = 50

B = 70

FOR I = A TO B STEP 5

FOR J = B TO I STEP -5

PRINT J;

NEXT J

PRINT

NEXT I

END SUB