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

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

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
そんな月はありませんよ！！