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'