文字列の走査

明解Ｃ言語入門編 > 9. 文字列の基本 >

C



#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

Delphi



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

Perl

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

Ruby

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