読み込んだ月の季節を表示 (switch文)

C Delphi Ruby

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 >

読み込んだ月の季節を表示 (switch文)

C



#include <stdio.h>

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

{

    int month;
    printf("何月ですか：");

    scanf("%d", &month);
    switch (month)

    {

        case 3:

        case 4:

        case 5:

            puts("春です。");

            break;

        case 6:

        case 7:

        case 8:

            puts("夏です。");

            break;

        case 9:

        case 10:

        case 11:

            puts("秋です。");

            break;

        case 12:

        case 1:

        case 2:

            puts("冬です。");

            break;

        default:

            puts("そんな月はありませんよ！！");

    }
    return 0;

}

実行結果



R:\>lesson023\project1.exe

何月ですか：5

春です。
R:\>lesson023\project1.exe

何月ですか：8

夏です。
R:\>lesson023\project1.exe

何月ですか：13

そんな月はありませんよ！！

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    month: Integer;

begin

    write('何月ですか：');

    read(month);
    case month of

        3..5:

            writeln('春です。');

        6..8:

            writeln('夏です。');

        9..11:

            writeln('秋です。');

        1, 2, 12:

            writeln('冬です。');

        else

            writeln('そんな月はありませんよ！！');

    end;

end.

実行結果



S:\>lesson023\project1.exe

何月ですか：5

春です。
S:\>lesson023\project1.exe

何月ですか：8

夏です。
S:\>lesson023\project1.exe

何月ですか：13

そんな月はありませんよ！！

Ruby
print "何月ですか："
month = STDIN.gets.chomp.to_i

case month
    when 3..5
        puts "春です。"
    when 6..8
        puts "夏です。"
    when 9..11
        puts "秋です。"
    when 1, 2, 12
        puts "冬です。"
    else
        puts "そんな月はありませんよ！！"
end

実行結果


L:\>ruby  l:\lesson_03_023.rb

何月ですか：5

春です。
L:\>ruby  l:\lesson_03_023.rb

何月ですか：8

夏です。
L:\>ruby  l:\lesson_03_023.rb

何月ですか：13

そんな月はありませんよ！！