\(　　数表の作成\ \ \ \ １〜７\)

\(１　平方と立方の表\)

For[n = 1, 
      n ≤ 10, n++, 
Print[n, "  ", 
        n n, "  ", n n n]]

\(２\ \ 逆数と平方の逆数\)

For[n = 1, 
      n ≤ 10, n++, 
Print[n, "  ", 
        N[1/n] , "  ", N[1/n^2]]]

\(３\ 　平方根と立方根\)

For[n = 1, 
      n ≤ 10, n++, 
Print[n, "  ", 
        N[Sqrt[n]] , "  ", N[n^(1/3)]]]

\(４　\ 常用対数　x\ が１から１０までの0  .1\ 刻みの\ log \((x)\)\ （底は10）\)

N[Log[10, 2]]

Table[Table[N[Log[10, i + j/10]], {j, 0, 9}], {i, 1, 9}]

\(５\ \ \ 三角関数表\)

Table[{n, N[Sin[n Pi/180]], N[Cos[n Pi/180]], N[Tan[n Pi/180]]}, {n, 
        0, 45}]

\(6\ \ 単利表と複利表\)

A = 10000;
For[r = 0.05, r ≤ 0.25, 
      r = r + 0.05, 
Print[
        Table[{n, A (1 + r/100) n, A (1 + r/100)^n}, {n, 1, 
            10}]]
]

\(７　乱数表\)

Table[Random[Integer, {0, 1}], {100}]

Table[Random[Integer, {1, 6}], {100}]

Table[Random[], {100}]