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

C Delphi Perl Ruby

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

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

C



#include <stdio.h>

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

{

    int no;
    printf("整数を入力してください：");

    scanf("%d", &no);
    if (no == 0)

        puts("その数は 0 です。");

    else if (no > 0)

        puts("その数は 正 です。");

    else

        puts("その数は 負 です。");
    return 0;

}

実行結果



R:\>lesson019\project1.exe

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

その数は 0 です。
R:\>lesson019\project1.exe

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

その数は 正 です。
R:\>lesson019\project1.exe

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

その数は 負 です。

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    no: Integer;

begin

    write('整数を入力してください：');

    read(no);
    if (no = 0) then

        writeln('その数は 0 です。')

    else if (no > 0) then

        writeln('その数は 正 です。')

    else

        writeln('その数は 負 です。');

end.

実行結果



S:\>lesson019\project1.exe

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

その数は 0 です。
S:\>lesson019\project1.exe

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

その数は 正 です。
S:\>lesson019\project1.exe

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

その数は 負 です。

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

その数は 負 です。

Ruby
print "整数を入力してください："
no = STDIN.gets.chomp.to_i

if (no == 0)
    puts "その数は 0 です。"
elsif (no > 0)
    puts "その数は 正 です。"
else
    puts "その数は 負 です。"
end

実行結果


L:\>ruby  l:\lesson_03_019.rb

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

その数は 正 です。
L:\>ruby  l:\lesson_03_019.rb

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

その数は 負 です。