ForNext

033. 配列のコピー

VBScript

JScript

Perl

@va    = (1, 2, 3, 4, 5);
@vb    = @va;
$vb[4] = 6;

print " va  vb\n";
print "-------\n";
for (0..4)
{
    printf("%3d %3d\n", $va[$_], $vb[$_]);
}

L:\>perl lesson_05_033.pl
 va  vb
-------
  1   1
  2   2
  3   3
  4   4
  5   6

PHP

<?php
$va    = array(1, 2, 3, 4, 5);
$vb    = $va;
$vb[4] = 6;

print " va  vb\n";
print "-------\n";
for ($i = 0; $i < 5; $i++)
{
    printf("%3d %3d\n", $va[$i], $vb[$i]);
}
?>

L:\>php lesson_05_033.php
 va  vb
-------
  1   1
  2   2
  3   3
  4   4
  5   6

Python

# coding: Shift_JIS

va = range(1, 6, 1)
vb = va
vb[4] = 6

print " va  vb"
print "-------"
for i in range(0, 5, 1):
    print "%3d %3d" % (va[i], vb[i])

va[4] = 5
vc = range(5)
for i in range(0, 5, 1):
    vc[i] = va[i]
vc[4] = 6

print
print " va  vc"
print "-------"
for i in range(0, 5, 1):
    print "%3d %3d" % (va[i], vc[i])

N:\>python lesson_05_033.py
 va  vb
-------
  1   1
  2   2
  3   3
  4   4
  6   6

 va  vc
-------
  1   1
  2   2
  3   3
  4   4
  5   6

Ruby

va    = [1, 2, 3, 4, 5]
vb    = va
vb[4] = 6

puts " va  vb"
puts "-------"
for i in 0..4
    printf("%3d %3d\n", va[i], vb[i])
end

puts ""

va    = [1, 2, 3, 4, 5]
vc    = []
va.each_with_index do |a, i|
    vc[i] = a
end
vc[4] = 7

puts " va  vc"
puts "-------"
va.zip(vc) do |a, c|
    printf("%3d %3d\n", a, c)
end

L:\>ruby  l:\lesson_05_033.rb
 va  vb
-------
  1   1
  2   2
  3   3
  4   4
  6   6

 va  vc
-------
  1   1
  2   2
  3   3
  4   4
  5   7

PowerShell

Scala

F#

C

#include <stdio.h>
int main(int argc, char* argv[])
{
    int i;
    int va[5] = {1, 2, 3, 4, 5};
    int vb[5];

    for (i = 0; i < 5; i++)
        vb[i] = va[i];

    puts(" va  vb");
    puts("-------");
    for (i = 0; i < 5; i++)
        printf("%3d %3d\n", va[i], vb[i]);

    return 0;
}

R:\>lesson033\project1.exe
 va  vb
-------
  1   1
  2   2
  3   3
  4   4
  5   5

C++

C++Builder

VC++

C#

Java

class Lesson033 {
    public static void main(String[] args) {
        int[] va = {1, 2, 3, 4, 5};
        int[] vb = va;
        vb[4] = 6;

        System.out.println(" va  vb");
        System.out.println("-------");
        for (int i = 0; i < 5; i++)
            System.out.printf("%3d %3d\n", va[i], vb[i]);

        va[4] = 5;
        int[] vc = new int[5];
        for (int i = 0; i < 5; i++)
            vc[i] = va[i];
        vc[4] = 6;

        System.out.println(" va  vc");
        System.out.println("-------");
        for (int i = 0; i < 5; i++)
            System.out.printf("%3d %3d\n", va[i], vc[i]);
    }
}

L:\>java Lesson033
 va  vb
-------
  1   1
  2   2
  3   3
  4   4
  6   6
 va  vc
-------
  1   1
  2   2
  3   3
  4   4
  5   6

Objective-C

D

VB

VB.NET

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

Ada

PL/SQL

T-SQL