多次元配列の受け渡し

明解Ｃ言語 入門編 > 6. 関数 >

多次元配列の受け渡し

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
type

    TMyArray = array[1..2, 1..3] of Integer;
procedure mat_add(const ma:TMyArray; const mb:TMyArray; var mc:TMyArray);

var

    i, j: Integer;

begin

    for i := 1 to 2 do

        for j := 1 to 3 do

            mc[i, j] := ma[i, j] + mb[i, j];

end;
var

    ma: TMyArray = ((1, 2, 3), (4, 5, 6));

    mb: TMyArray = ((6, 3, 4), (5, 1, 2));

    mc: TMyArray;

    i, j: Integer;

begin

    mat_add(ma, mb, mc);
    for i := 1 to 2 do

    begin

        for j := 1 to 3 do

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

        writeln('');

    end;

end.

実行結果

S:\>lesson051\project1.exe

  7  5  7

  9  6  8