読み込んだ整数値は奇数か偶数か (do文)

明解Ｃ言語入門編 > 4. プログラムの流れの繰り返し >

C



#include <stdio.h>

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

{

    int cont;
    do

    {

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

        scanf("%d", &no);
        if (no % 2)

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

        else

            puts("その数は偶数です。");
        printf("もう１度？ [Yes…0／No…9]：");

        scanf("%d", &cont);

    } while (cont == 0);
    return 0;

}

実行結果



R:\>lesson024\project1.exe

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

その数は奇数です。

もう１度？ [Yes…0／No…9]：0

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

その数は偶数です。

もう１度？ [Yes…0／No…9]：9

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    cont, no: Integer;

begin

    repeat

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

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

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

        else

            writeln('その数は奇数です。');
        write('もう１度？ [Yes…0／No…9]：');

        read(cont);

    until cont <> 0

end.

実行結果



S:\>lesson024\project1.exe

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

その数は奇数です。

もう１度？ [Yes…0／No…9]：0

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

その数は偶数です。

もう１度？ [Yes…0／No…9]：9

Perl

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

    if (int($no % 2))
    {
        print "その数は奇数です。";
    }
    else
    {
        print "その数は偶数です。";
    }

    print "もう１度？ [Yes…0／No…9]：";
    chomp($cont = <STDIN>);
} while ($cont == 0);

print "\n";

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

    if (int($no % 2))
    {
        print "その数は奇数です。";
    }
    else
    {
        print "その数は偶数です。";
    }

    print "もう１度？ [Yes…0／No…9]：";
    chomp($cont = <STDIN>);
} until ($cont != 0);

実行結果

L:\>perl lesson_04_024.pl
整数を入力してください：17
その数は奇数です。もう１度？ [Yes…0／No…9]：0
整数を入力してください：8
その数は偶数です。もう１度？ [Yes…0／No…9]：9

整数を入力してください：17
その数は奇数です。もう１度？ [Yes…0／No…9]：0
整数を入力してください：8
その数は偶数です。もう１度？ [Yes…0／No…9]：9

Ruby

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

    if (no % 2 == 0)
        print "その数は偶数です。"
    else
        print "その数は奇数です。"
    end

    print "もう１度？ [Yes…0／No…9]："
    cont = STDIN.gets.chomp.to_i
end while (cont == 0)

puts ""

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

    if (no % 2 == 0)
        print "その数は偶数です。"
    else
        print "その数は奇数です。"
    end

    print "もう１度？ [Yes…0／No…9]："
    cont = STDIN.gets.chomp.to_i
end until (cont != 0)

実行結果

L:\>ruby l:\lesson_04_024.rb
整数を入力してください：17
その数は奇数です。もう１度？ [Yes…0／No…9]：0
整数を入力してください：8
その数は偶数です。もう１度？ [Yes…0／No…9]：9

整数を入力してください：17
その数は奇数です。もう１度？ [Yes…0／No…9]：8