(* Exam . of Double Loop   2005/08/16 aito  *)

Table[i * j, {i, 1, 10, 2}, {j, 10, 20, 3}]

{{10, 13, 16, 19}, {30, 39, 48, 57}, {50, 65, 80, 95}, {70, 91, 112, 133}, {90, 117, 144, 171}}

For[i = 1, i<100, i *= 5, For[j = 10, j<100, j *= 3, Print[i, " * ", j, " = ", i * j] ] ]

1 * 10 = 10

1 * 30 = 30

1 * 90 = 90

5 * 10 = 50

5 * 30 = 150

5 * 90 = 450

25 * 10 = 250

25 * 30 = 750

25 * 90 = 2250

rslt = Table[i * (10 - j), {i, 1, 9}, {j, 1, 9}]

{{9, 8, 7, 6, 5, 4, 3, 2, 1}, {18, 16, 14, 12, 10, 8, 6, 4, 2}, {27, 24, 21, 18, 15, 12, 9, ... 2, 35, 28, 21, 14, 7}, {72, 64, 56, 48, 40, 32, 24, 16, 8}, {81, 72, 63, 54, 45, 36, 27, 18, 9}}

rslt

{{9, 8, 7, 6, 5, 4, 3, 2, 1}, {18, 16, 14, 12, 10, 8, 6, 4, 2}, {27, 24, 21, 18, 15, 12, 9, ... 2, 35, 28, 21, 14, 7}, {72, 64, 56, 48, 40, 32, 24, 16, 8}, {81, 72, 63, 54, 45, 36, 27, 18, 9}}

rslt[[1]]

{9, 8, 7, 6, 5, 4, 3, 2, 1}

rslt[[2]]

{18, 16, 14, 12, 10, 8, 6, 4, 2}

rslt[[1, 3]]

7

For[i = 1, i <= 9, i ++, For[j = 1, j <= 9, j ++, rslt[[i, j]] = i * j ] ]

rslt

{{1, 2, 3, 4, 5, 6, 7, 8, 9}, {2, 4, 6, 8, 10, 12, 14, 16, 18}, {3, 6, 9, 12, 15, 18, 21, 24 ... , 35, 42, 49, 56, 63}, {8, 16, 24, 32, 40, 48, 56, 64, 72}, {9, 18, 27, 36, 45, 54, 63, 72, 81}}

Created by Mathematica  (August 16, 2005) Valid XHTML 1.1!