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

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

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

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

その数は 負 です。