２行３列の行列を加算する (多次元配列)

明解Ｃ言語入門編 > 5. 配列 >

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    i, j: Integer;

    ma: array[1..2] of array[1..3] of Integer = ((1, 2, 3), (4, 5, 6));

    mb: array[1..2] of array[1..3] of Integer = ((6, 3, 4), (5, 1, 2));

    mc: array[1..2] of array[1..3] of Integer;

begin

    for i := 1 to 2 do

    begin

        for j := 1 to 3 do

            write(format('%3d', [mc[i][j]]));

        write(#13#10);

    end;
    for i := 1 to 2 do

        for j := 1 to 3 do

            mc[i][j] := ma[i][j] + mb[i][j];
    for i := 1 to 2 do

    begin

        for j := 1 to 3 do

            write(format('%3d', [mc[i][j]]));

        write(#13#10);

    end;

end.

実行結果



S:\>lesson037\project1.exe

  0  0  0

  0  0  0

  7  5  7

  9  6  8