Program to generate the pattern:
1
2 6
3 7 10
4 8 11 13
5 9 12 14 15
CLS
x = 5
y = 5
a = 1
FOR i = 5 TO 1 STEP -1
p = x
q = y
FOR j = 1 TO i
LOCATE p, q
PRINT a
a = a + 1
p = p + 1
NEXT j
x = x + 1
y = y + 3
PRINT
NEXT i
END
Related Posts
Binod Bhattarai shared some files with you
Binod Bhattarai shared "Public" folder from his Onedrive. Click to Download You can download share...QBASIC Program 2: To generate the upper triangular numeric pattern.
Program to generate the pattern 5 6 7 8 9 6 7 8 9 7 8 9 8 9 9 CLS tabposition = 0 'starti...
Is there any other logic to solve without the use of locate function??