Cree tablas de suma y multiplicación 

Con Inactive, es más fácil crear tablas de valores.

Una tabla de suma para los números del 1 al 7.

In[1]:=

X (plus = Table[ Inactive[Plus][a, b] == a + b, {a, 7}, {b, 7}]) // TableForm

Out[1]//TableForm=

Una tabla de multiplicación para los números del 1 al 7.

In[2]:=

X (times = Table[ Inactive[Times][a, b] == a b, {a, 7}, {b, 7}]) // TableForm

Out[2]//TableForm=

Cree una tabla bien formateada.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[3]:=

X Grid[Join[{{Item[Style["Addition Table", FontSize -> 18], Alignment -> Left, Background -> GrayLevel[.9]], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, plus, {{Item[Style["Multiplication Table", FontSize -> 18], Alignment -> Left, Background -> GrayLevel[.9]], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, times], Dividers -> All, ItemSize -> {Automatic, 1.6}] // TraditionalForm

Out[3]//TraditionalForm=