配列のコピー

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

配列のコピー

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    i: Integer;

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

    vb: array[1..5] of Integer;

begin

    for i := 1 to 5 do

        vb[i] := va[i];
    writeln(' va  vb');

    writeln('-------');

    for i := 1 to 5 do

        writeln(format('%3d %3d', [va[i], vb[i]]));

end.

実行結果

S:\>lesson033\project1.exe

 va  vb












-





  1   1

  2   2

  3   3

  4   4

  5   5