08-08-2009, 02:17 AM
CLS
FOR x = 0 TO 10
FOR y = 0 TO x
p$ = p$ + STR$(x * y) + " "
NEXT y
IF x < 10 THEN PRINT USING "##"; y - 1; : PRINT " "; p$; : PRINT USING "##"; y
IF x = 10 THEN PRINT USING "##"; y - 1; : PRINT " "; p$
p$ = ""
NEXT x
END
Multiplication table.
Read to rigth, after, to down, until end
0Â 0
1Â 0 1
2Â 0 2 4
3Â 0 3 6 9
4Â 0 4 8 12 16
5Â 0 5 10 15 20 25
6Â 0 6 12 18 24 30 36
7Â 0 7 14 21 28 35 42 49
8Â 0 8 16 24 32 40 48 56 64
9Â 0 9 18 27 36 45 54 63 72 81
10Â 0 10 20 30 40 50 60 70 80 90 100
FOR x = 0 TO 10
FOR y = 0 TO x
p$ = p$ + STR$(x * y) + " "
NEXT y
IF x < 10 THEN PRINT USING "##"; y - 1; : PRINT " "; p$; : PRINT USING "##"; y
IF x = 10 THEN PRINT USING "##"; y - 1; : PRINT " "; p$
p$ = ""
NEXT x
END
Multiplication table.
Read to rigth, after, to down, until end
0Â 0
1Â 0 1
2Â 0 2 4
3Â 0 3 6 9
4Â 0 4 8 12 16
5Â 0 5 10 15 20 25
6Â 0 6 12 18 24 30 36
7Â 0 7 14 21 28 35 42 49
8Â 0 8 16 24 32 40 48 56 64
9Â 0 9 18 27 36 45 54 63 72 81
10Â 0 10 20 30 40 50 60 70 80 90 100