選ばれた動物の鳴き声を表示 (列挙体)

明解Ｃ言語入門編 > 8. いろいろなプログラムを作ってみよう >

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
type

    TAnimal =

    (

        Dog

    ,   Cat

    ,   Monkey

    ,   Invalid

    );
procedure dog();

begin

    writeln('ワンワン！！');

end;
procedure cat();

begin

    writeln('ニャ〜オ！！');

end;
procedure monkey();

begin

    writeln('キッキッ！！');

end;
function select():TAnimal;

var

    tmp: Integer;

begin

    repeat

        write('0…犬  1…猫  2…猿  3…終了');

        read(tmp);

    until (Integer(Dog) <= tmp) and (tmp <= Integer(Invalid));
    result := TAnimal(tmp);

end;
procedure main();

var

    selected: TAnimal;

begin

    repeat

        selected := select;

        case selected of

            Dog:    dog;

            Cat:    cat;

            Monkey: monkey;

        end;

    until (selected >= Invalid);

end;
begin

    main;

end.

実行結果



S:\>lesson062\Project1.exe

0…犬  1…猫  2…猿  3…終了0

ワンワン！！

0…犬  1…猫  2…猿  3…終了1

ニャ〜オ！！

0…犬  1…猫  2…猿  3…終了2

キッキッ！！

0…犬  1…猫  2…猿  3…終了9

0…犬  1…猫  2…猿  3…終了3