home > 写経編 > 柴田望洋『明解C言語 入門編』 > 9. 文字列の基本 >

ForNext

Only Do What Only You Can Do

075. 文字列の配列を受け渡し

VBScript

JScript

Perl

更新日 : 2010.10.18
sub put_strary
{
    my ($st, $n) = @_;
    for (0..$$n - 1)
    {
        print "st[$_] = \"$$st[$_]\"\n";
    }
}

@cs = ("Turbo", "NA", "DOHC");
$n = 3;
&put_strary(\@cs, \$n);
L:\>perl lesson_09_075.pl
st[0] = "Turbo"
st[1] = "NA"
st[2] = "DOHC"

PHP

更新日 : 2010.11.03
<?php
function put_strary($st, $n)
{
    for ($i = 0; $i < $n; $i++)
    {
        print "st[$i] = \"$st[$i]\"\n";
    }
}

$cs = array("Turbo", "NA", "DOHC");
$n = 3;
put_strary($cs, $n);
?>
L:\>php lesson_09_075.php
st[0] = "Turbo"
st[1] = "NA"
st[2] = "DOHC"

Python

更新日 : 2010.11.17
def put_strary(st, n):
    for i in range(n):
        print "st[%d] = \"%s\"" % (i, st[i])

cs = ["Turbo", "NA", "DOHC"]
n = 3
put_strary(cs, n)
N:\>python lesson_09_075.py
st[0] = "Turbo"
st[1] = "NA"
st[2] = "DOHC"

Ruby

更新日 : 2010.11.01
def put_strary(st, n)
    for i in 0..(n - 1)
        print "st[#{i}] = \"#{st[i]}\"\n"
    end
end

cs = ["Turbo", "NA", "DOHC"]
n = 3
put_strary(cs, n)
L:\>ruby  l:\lesson_09_075.rb
st[0] = "Turbo"
st[1] = "NA"
st[2] = "DOHC"

PowerShell

Scala

F#

C

更新日 : 2010.10.08
#include <stdio.h>

void put_strary(const char st[][6], int n)
{
    int i;
    for (i = 0; i < n; i++)
    {
        int j = 0;
        printf("st[%d] = \"", i);

        while (st[i][j])
            putchar(st[i][j++]);

        puts("\"");
    }
}

int main(int argc, char* argv[])
{
    char cs[][6] = {"Turbo", "NA", "DOHC"};
    put_strary(cs, 3);

    return 0;
}
R:\>lesson075\Project1.exe
st[0] = "Turbo"
st[1] = "NA"
st[2] = "DOHC"

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

更新日 : 2010.09.24
program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;

procedure put_strary(st:array of String);
var
    i, j: Integer;
begin
    for i := Low(st) to High(st) do
    begin
        write(Format('st[%d] = ''', [i]));

        for j := 1 to Length(st[i]) do
            write(Format('%s', [st[i][j]]));

        Writeln('''');
    end;
end;

procedure main();
var
    cs: array[1..3] of String;
    i: Integer;
begin
    cs[1] := 'Turbo';
    cs[2] := 'NA';
    cs[3] := 'DOHC';
    put_strary(cs);
end;

begin
    main;
end.
S:\>lesson075\Project1.exe
st[0] = 'Turbo'
st[1] = 'NA'
st[2] = 'DOHC'

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system