大文字・小文字の変換

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

C



#include <stdio.h>

#include <ctype.h>
void str_toupper(char st[])

{

    unsigned i = 0;

    while (st[i])

    {

        st[i] = toupper(st[i]);

        i++;

    }

}
void str_tolower(char st[])

{

    unsigned i = 0;

    while (st[i])

    {

        st[i] = tolower(st[i]);

        i++;

    }

}
int main(int argc, char* argv[])

{

    char str[100] = "BohYoh";
    str_toupper(str);

    printf("大文字：%s\n", str);
    str_tolower(str);

    printf("小文字：%s\n", str);
    return 0;

}

実行結果



R:\>lesson076\Project1.exe

大文字：BOHYOH

小文字：bohyoh

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
procedure str_toupper(var st:String);

begin

    st := UpperCase(st);

end;
procedure str_tolower(var st:String);

begin

    st := LowerCase(st);

end;
procedure main();

var

    str: String;

begin

    str := 'BohYoh';
    str_toupper(str);

    Writeln(Format('大文字：%s', [str]));
    str_tolower(str);

    Writeln(Format('小文字：%s', [str]));

end;
begin

    main;

end.

実行結果



S:\>lesson076\Project1.exe

大文字：BOHYOH

小文字：bohyoh

Perl

$str = "BohYoh";

$str = uc($str);
print "大文字：$str\n";

$str = lc($str);
print "小文字：$str\n";

実行結果



L:\>perl lesson_09_076.pl

大文字：BOHYOH

小文字：bohyoh

Ruby

str = "BohYoh"

str = str.upcase
print "大文字：#{str}\n"

str = str.downcase
print "小文字：#{str}\n"

str.upcase!
print "大文字：#{str}\n"

実行結果



L:\>ruby  l:\lesson_09_076.rb

大文字：BOHYOH

小文字：bohyoh

大文字：BOHYOH