Additions- und Multiplikationstabellen erstellen 

Mit Inactive ist das Erstellen von Tabellen leichter denn je.

Eine Additionstabelle für die Zahlen 1 bis 7.

In[1]:=

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

Out[1]//TableForm=

Eine Multiplikationstabelle für die Zahlen 1 bis 7.

In[2]:=

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

Out[2]//TableForm=

Erzeugen Sie eine schön formatierte Tabelle.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

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=