TI-84 Plus CE: Addition and Multiplication Math Tables
The programs ADDTABLE and MULTABLE create a 10 x 10 addition and multiplication table, respectively. The programs are presented on the TI-84 Plus CE because colors are included.
I use the drawing commands on a graphing screen instead of using a matrix to accomplish the look I want.
TI-84 Plus CE Program ADDTABLE
"EWS 2019-04-14"
"BUILD THE TABLE"
{11,11}→dim([J])
For(I,2,11)
I-1→[J](1,I)
I-1→[J](I,1)
End
"ADD"
For(I,2,11):For(J,2,11)
[J](I,1)+[J](1,J)→[J](I,J)
End:End
"DRAW"
ClrDraw:AxesOff:FnOff
For(I,1,11):For(J,1,11)
If I=1 or J=1
Then
TextColor(RED)
Else
TextColor(BLACK)
End
Text(1+14(I-1),1+20(J-1),[J](I,J))
TextColor(BLACK)
Text(1,1,"+")
End:End
TI-84 Plus CE Program MULTABLE
"EWS 2019-04-14"
"BUILD THE TABLE"
{11,11}→dim([J])
For(I,2,11)
I-1→[J](1,I)
I-1→[J](I,1)
End
"MULTIPLY"
For(I,2,11):For(J,2,11)
[J](I,1)*[J](1,J)→[J](I,J)
End:End
"DRAW"
ClrDraw:AxesOff:FnOff
For(I,1,11):For(J,1,11)
If I=1 or J=1
Then
TextColor(GREEN)
Else
TextColor(BLACK)
End
Text(1+14(I-1),1+20(J-1),[J](I,J))
TextColor(BLACK)
Text(1,1,"*")
End:End
Eddie
All original content copyright, © 2011-2019. Edward Shore. Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited. This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.
Addition Table |
Multiplication Table |
The programs ADDTABLE and MULTABLE create a 10 x 10 addition and multiplication table, respectively. The programs are presented on the TI-84 Plus CE because colors are included.
I use the drawing commands on a graphing screen instead of using a matrix to accomplish the look I want.
TI-84 Plus CE Program ADDTABLE
"EWS 2019-04-14"
"BUILD THE TABLE"
{11,11}→dim([J])
For(I,2,11)
I-1→[J](1,I)
I-1→[J](I,1)
End
"ADD"
For(I,2,11):For(J,2,11)
[J](I,1)+[J](1,J)→[J](I,J)
End:End
"DRAW"
ClrDraw:AxesOff:FnOff
For(I,1,11):For(J,1,11)
If I=1 or J=1
Then
TextColor(RED)
Else
TextColor(BLACK)
End
Text(1+14(I-1),1+20(J-1),[J](I,J))
TextColor(BLACK)
Text(1,1,"+")
End:End
TI-84 Plus CE Program MULTABLE
"EWS 2019-04-14"
"BUILD THE TABLE"
{11,11}→dim([J])
For(I,2,11)
I-1→[J](1,I)
I-1→[J](I,1)
End
"MULTIPLY"
For(I,2,11):For(J,2,11)
[J](I,1)*[J](1,J)→[J](I,J)
End:End
"DRAW"
ClrDraw:AxesOff:FnOff
For(I,1,11):For(J,1,11)
If I=1 or J=1
Then
TextColor(GREEN)
Else
TextColor(BLACK)
End
Text(1+14(I-1),1+20(J-1),[J](I,J))
TextColor(BLACK)
Text(1,1,"*")
End:End
Eddie
All original content copyright, © 2011-2019. Edward Shore. Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited. This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.