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

ForNext

Only Do What Only You Can Do

073. 文字列の走査

VBScript

JScript

Perl

更新日 : 2010.10.18
sub put_string
{
    my ($str) = @_;

    foreach $val(split(//, $str))
    {
        print $val;
    }
}

$str = "ABC";
&put_string($str);
print "\n";
L:\>perl lesson_09_073.pl
ABC

PHP

更新日 : 2010.11.03
<?php
function put_string($str)
{
    for ($i = 0; $i < strlen($str); $i++)
    {
        print substr($str, $i, 1);
    }
}

$str = "ABC";
put_string($str);
print "\n";
?>
L:\>php lesson_09_073.php
ABC

Python

更新日 : 2010.11.17
import sys

def put_string(str):
    for i in range(0, len(str), 1):
        sys.stdout.write(str[i])

str = "ABC"
put_string(str)
print
N:\>python lesson_09_073.py
ABC

Ruby

更新日 : 2010.11.01
def put_string(arg)
    arg.split(//s).each do |char|
        print char
    end
end

str = "ABC"
put_string(str)

puts ""
L:\>ruby  l:\lesson_09_073.rb
ABC

PowerShell

Scala

F#

C

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

void put_string(const char str[])
{
    unsigned i = 0;

    while (str[i])
        putchar(str[i++]);
}

int main(int argc, char* argv[])
{
    char str[100] = "ABC";
    put_string(str);
    putchar('\n');

    return 0;
}
R:\>lesson073\Project1.exe
ABC

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

更新日 : 2010.09.24
program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;

procedure put_string(str:String);
var
    i: Integer;
begin
    for i := 1 to Length(str) do
        write(str[i]);
end;

procedure main();
var
    str: String;
begin
    str := 'ABC';
    put_string(str);
    write(#13#10);
end;

begin
    main;
end.
S:\>lesson073\Project1.exe
ABC

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system