ForNext
Only Do What Only You Can Do
024. 読み込んだ整数値は奇数か偶数か (do文)
VBScript
JScript
Perl
更新日 : 2010.10.18
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
PHP
更新日 : 2010.11.03
<?php
$fp = fopen("php://stdin", "r");
do
{
print "整数を入力してください：";
$no = fgets($fp);
if ((int)($no % 2))
print "その数は奇数です。";
else
print "その数は偶数です。";
print "もう１度？ [Yes…0／No…9]：";
$cont = fgets($fp);
} while ($cont == 0);
fclose($fp);
?>
L:\>php lesson_04_024.php 整数を入力してください：17 その数は奇数です。もう１度？ [Yes…0／No…9]：0 整数を入力してください：8 その数は偶数です。もう１度？ [Yes…0／No…9]：9
Python
更新日 : 2010.11.17
# coding: Shift_JIS
cont = 0
while cont == 0:
no = int(raw_input("整数を入力してください："))
if no % 2 != 0:
print "その数は奇数です。"
else:
print "その数は偶数です。"
cont = int(raw_input("もう１度？ [Yes…0／No…9]："))
N:\>python lesson_04_024.py 整数を入力してください：17 その数は奇数です。 もう１度？ [Yes…0／No…9]：0 整数を入力してください：8 その数は偶数です。 もう１度？ [Yes…0／No…9]：9
Ruby
更新日 : 2010.11.01
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 L:\>ruby l:\lesson_04_024.rb 整数を入力してください：17 その数は奇数です。もう１度？ [Yes…0／No…9]：0 整数を入力してください：8 その数は偶数です。もう１度？ [Yes…0／No…9]：9 整数を入力してください：17 その数は奇数です。もう１度？ [Yes…0／No…9]：0 整数を入力してください：8 その数は偶数です。もう１度？ [Yes…0／No…9]：9
PowerShell
Scala
F#
C
更新日 : 2010.10.08
#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
C++
C++Builder
VC++
C#
Java
更新日 : 2010.11.05
import java.util.Scanner;
class Lesson024 {
public static void main(String[] args) {
Scanner stdIn = new Scanner(System.in);
int cont;
do
{
System.out.print("整数を入力してください：");
int no = stdIn.nextInt();
if (no % 2 != 0)
System.out.println("その数は奇数です。");
else
System.out.println("その数は偶数です。");
System.out.print("もう１度？ [Yes…0／No…9]：");
cont = stdIn.nextInt();
} while (cont == 0);
}
}
L:\>java Lesson024 整数を入力してください：17 その数は奇数です。 もう１度？ [Yes…0／No…9]：0 整数を入力してください：8 その数は偶数です。 もう１度？ [Yes…0／No…9]：9
Objective-C
D
VB
VB.NET
Delphi
更新日 : 2010.09.24
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