読み込んだ整数値の符号を判定 (関係演算子)

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

読み込んだ整数値の符号を判定 (関係演算子)

Perl

print "整数を入力してください：";
chomp($no = <STDIN>);

if ($no == 0)
{
    print "その数は 0 です。\n";
}
elsif ($no > 0)
{
    print "その数は 正 です。\n";
}
else
{
    print "その数は 負 です。\n";
}

実行結果

L:\>perl lesson_03_019.pl

整数を入力してください：0

その数は 0 です。
L:\>perl lesson_03_019.pl

整数を入力してください：39

その数は 正 です。
L:\>perl lesson_03_019.pl

整数を入力してください：-4

その数は 負 です。