九九表 (1次元配列版)

先日の授業で出された課題。
所謂九九表ですが、問題の主旨が2次元配列を使うのではなくワザと1次元配列を使う仕様だったので、それに合わせています。

C=======================================================================
C m_table.for | 九九表
C---+-7--+----+----+----+----+----+----+----+----+----+----+----+----+-|
      IMPLICIT NONE
      INTEGER MUL(9),I,J
      DO 10 I=1,9
        DO 20 J=1,9
          MUL(J)=I*J
   20   CONTINUE
        WRITE(6,200) MUL
   10 CONTINUE
  200 FORMAT(9I5)
      STOP
      END


出力結果は以下の通りです。

$ ./m_table
    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   27
    4    8   12   16   20   24   28   32   36
    5   10   15   20   25   30   35   40   45
    6   12   18   24   30   36   42   48   54
    7   14   21   28   35   42   49   56   63
    8   16   24   32   40   48   56   64   72
    9   18   27   36   45   54   63   72   81

処理の内容を判りやすくするために、中間結果を出力した場合は次のような感じになります。

$ ./m_table
<1回目のループ>
I = 1  J = 1  MUL(1) = 1 x 1 =  1
I = 1  J = 2  MUL(2) = 1 x 2 =  2
I = 1  J = 3  MUL(3) = 1 x 3 =  3
I = 1  J = 4  MUL(4) = 1 x 4 =  4
I = 1  J = 5  MUL(5) = 1 x 5 =  5
I = 1  J = 6  MUL(6) = 1 x 6 =  6
I = 1  J = 7  MUL(7) = 1 x 7 =  7
I = 1  J = 8  MUL(8) = 1 x 8 =  8
I = 1  J = 9  MUL(9) = 1 x 9 =  9
MUL=    1    2    3    4    5    6    7    8    9

<2回目のループ>
I = 2  J = 1  MUL(1) = 2 x 1 =  2
I = 2  J = 2  MUL(2) = 2 x 2 =  4
I = 2  J = 3  MUL(3) = 2 x 3 =  6
I = 2  J = 4  MUL(4) = 2 x 4 =  8
I = 2  J = 5  MUL(5) = 2 x 5 = 10
I = 2  J = 6  MUL(6) = 2 x 6 = 12
I = 2  J = 7  MUL(7) = 2 x 7 = 14
I = 2  J = 8  MUL(8) = 2 x 8 = 16
I = 2  J = 9  MUL(9) = 2 x 9 = 18
MUL=    2    4    6    8   10   12   14   16   18

<3回目のループ>
I = 3  J = 1  MUL(1) = 3 x 1 =  3
I = 3  J = 2  MUL(2) = 3 x 2 =  6
I = 3  J = 3  MUL(3) = 3 x 3 =  9
I = 3  J = 4  MUL(4) = 3 x 4 = 12
I = 3  J = 5  MUL(5) = 3 x 5 = 15
I = 3  J = 6  MUL(6) = 3 x 6 = 18
I = 3  J = 7  MUL(7) = 3 x 7 = 21
I = 3  J = 8  MUL(8) = 3 x 8 = 24
I = 3  J = 9  MUL(9) = 3 x 9 = 27
MUL=    3    6    9   12   15   18   21   24   27

<4回目のループ>
I = 4  J = 1  MUL(1) = 4 x 1 =  4
I = 4  J = 2  MUL(2) = 4 x 2 =  8
I = 4  J = 3  MUL(3) = 4 x 3 = 12
I = 4  J = 4  MUL(4) = 4 x 4 = 16
I = 4  J = 5  MUL(5) = 4 x 5 = 20
I = 4  J = 6  MUL(6) = 4 x 6 = 24
I = 4  J = 7  MUL(7) = 4 x 7 = 28
I = 4  J = 8  MUL(8) = 4 x 8 = 32
I = 4  J = 9  MUL(9) = 4 x 9 = 36
MUL=    4    8   12   16   20   24   28   32   36

<5回目のループ>
I = 5  J = 1  MUL(1) = 5 x 1 =  5
I = 5  J = 2  MUL(2) = 5 x 2 = 10
I = 5  J = 3  MUL(3) = 5 x 3 = 15
I = 5  J = 4  MUL(4) = 5 x 4 = 20
I = 5  J = 5  MUL(5) = 5 x 5 = 25
I = 5  J = 6  MUL(6) = 5 x 6 = 30
I = 5  J = 7  MUL(7) = 5 x 7 = 35
I = 5  J = 8  MUL(8) = 5 x 8 = 40
I = 5  J = 9  MUL(9) = 5 x 9 = 45
MUL=    5   10   15   20   25   30   35   40   45

<6回目のループ>
I = 6  J = 1  MUL(1) = 6 x 1 =  6
I = 6  J = 2  MUL(2) = 6 x 2 = 12
I = 6  J = 3  MUL(3) = 6 x 3 = 18
I = 6  J = 4  MUL(4) = 6 x 4 = 24
I = 6  J = 5  MUL(5) = 6 x 5 = 30
I = 6  J = 6  MUL(6) = 6 x 6 = 36
I = 6  J = 7  MUL(7) = 6 x 7 = 42
I = 6  J = 8  MUL(8) = 6 x 8 = 48
I = 6  J = 9  MUL(9) = 6 x 9 = 54
MUL=    6   12   18   24   30   36   42   48   54

<7回目のループ>
I = 7  J = 1  MUL(1) = 7 x 1 =  7
I = 7  J = 2  MUL(2) = 7 x 2 = 14
I = 7  J = 3  MUL(3) = 7 x 3 = 21
I = 7  J = 4  MUL(4) = 7 x 4 = 28
I = 7  J = 5  MUL(5) = 7 x 5 = 35
I = 7  J = 6  MUL(6) = 7 x 6 = 42
I = 7  J = 7  MUL(7) = 7 x 7 = 49
I = 7  J = 8  MUL(8) = 7 x 8 = 56
I = 7  J = 9  MUL(9) = 7 x 9 = 63
MUL=    7   14   21   28   35   42   49   56   63

<8回目のループ>
I = 8  J = 1  MUL(1) = 8 x 1 =  8
I = 8  J = 2  MUL(2) = 8 x 2 = 16
I = 8  J = 3  MUL(3) = 8 x 3 = 24
I = 8  J = 4  MUL(4) = 8 x 4 = 32
I = 8  J = 5  MUL(5) = 8 x 5 = 40
I = 8  J = 6  MUL(6) = 8 x 6 = 48
I = 8  J = 7  MUL(7) = 8 x 7 = 56
I = 8  J = 8  MUL(8) = 8 x 8 = 64
I = 8  J = 9  MUL(9) = 8 x 9 = 72
MUL=    8   16   24   32   40   48   56   64   72

<9回目のループ>
I = 9  J = 1  MUL(1) = 9 x 1 =  9
I = 9  J = 2  MUL(2) = 9 x 2 = 18
I = 9  J = 3  MUL(3) = 9 x 3 = 27
I = 9  J = 4  MUL(4) = 9 x 4 = 36
I = 9  J = 5  MUL(5) = 9 x 5 = 45
I = 9  J = 6  MUL(6) = 9 x 6 = 54
I = 9  J = 7  MUL(7) = 9 x 7 = 63
I = 9  J = 8  MUL(8) = 9 x 8 = 72
I = 9  J = 9  MUL(9) = 9 x 9 = 81
MUL=    9   18   27   36   45   54   63   72   81

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中