Multiplication Table - Printable Version +- Qbasicnews.com (http://qbasicnews.com/newforum) +-- Forum: General (http://qbasicnews.com/newforum/forum-6.html) +--- Forum: General/Misc (http://qbasicnews.com/newforum/forum-18.html) +---- Forum: General Programming (http://qbasicnews.com/newforum/forum-20.html) +---- Thread: Multiplication Table (/thread-10226.html) |
Multiplication Table - lrcvs - 08-08-2009 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 |