123456789 1234567 12345 123 1 NUMERIC PATTERN
264. 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
265. 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
266. 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
267. 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
268. 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
Comments
22
333
4444
55555
FOR i = 1 TO 5
FOR j = 1 TO i
PRINT i;
NEXT j
PRINT
NEXT i
END
B C
C D E
D E F G
E F G H I
B C
C D E
D E F G
E F G H I
V = 64 + I
FOR J = 1 TO I
PRINT CHR$(V);
V = V + 1
NEXT J
PRINT
NEXT I
END
40 50 60
70 80 90 how to solve?
10 20 30
40 50 60
70 80 90
FOR A = 10 TO 90 STEP 30
FOR B = 10 TO 30 STEP 10
C= A+B-10
PRINT C;
NEXT B
PRINTPRINT
NEXT A END
12345 Also,
1234 5
123 45
12 345
1 2345
12345
Cls
For k=1 to 5
For m=1 to k
Print m;
Next m
Print
Next k
End
12345
23456
34567
45678
56789
23456
34567
45678
56789
Code:
n = 12345
m = 6
FOR i = 1 TO 5
PRINT n
n = n MOD 10000
n = n * 10 + m
m = m + 1
NEXT i
END
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
1 4 9 16
1 4 9
1 4
1
***
*****
*******
***
*