Multiplication tables: Difference between revisions

=={{header|BASIC}}==

{{works with|QBasic}}

<lang qbasic>CLS

'header row

PRINT " ";

FOR n = 1 TO 12

'do it this way for alignment purposes

o$ = " "

MID$(o$, LEN(o$) - LEN(STR$(n)) + 1) = STR$(n)

PRINT o$;

NEXT

PRINT : PRINT " "; STRING$(49, "-");

FOR n = 1 TO 12

PRINT

IF n < 10 THEN PRINT " ";

PRINT n; "|"; 'row labels

FOR m = 1 TO n - 1

PRINT " ";

NEXT

FOR m = n TO 12

'alignment again

o$ = " "

MID$(o$, LEN(o$) - LEN(STR$(m * n)) + 1) = STR$(m * n)

PRINT o$;

NEXT

NEXT</lang>

Output:

1 2 3 4 5 6 7 8 9 10 11 12

-------------------------------------------------

1 | 1 2 3 4 5 6 7 8 9 10 11 12

2 | 4 6 8 10 12 14 16 18 20 22 24

3 | 9 12 15 18 21 24 27 30 33 36

4 | 16 20 24 28 32 36 40 44 48

5 | 25 30 35 40 45 50 55 60

6 | 36 42 48 54 60 66 72

7 | 49 56 63 70 77 84

8 | 64 72 80 88 96

9 | 81 90 99 108

10 | 100 110 120

11 | 121 132

12 | 144

'''See also:''' [[#BBC BASIC|BBC BASIC]], [[#Liberty BASIC|Liberty BASIC]], [[#PureBasic|PureBasic]]