読み込んだ整数値を逆順に表示 (do文)

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

Perl

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

    print "\a負の数を入力しないでください。\n" if ($no < 0);

} while ($no < 0);

print "その数を逆から読むと";
$dig = 0;
do
{
    printf("%d", int($no % 10));
    $no = int($no / 10);
    $dig++;
} while ($no > 0);
print "です。\n";
printf("その数は%d桁です。\n", $dig);

print "\n";

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

    print "\a負の数を入力しないでください。\n" unless ($no >= 0);

} until ($no >= 0);

print "その数を逆から読むと";
$dig = 0;
do
{
    printf("%d", int($no % 10));
    $no = int($no / 10);
    $dig++;
} until ($no <= 0);
print "です。\n";
printf("その数は%d桁です。\n", $dig);

実行結果

L:\>perl lesson_04_025.pl
正の整数を入力してください：-17
負の数を入力しないでください。
正の整数を入力してください：1963
その数を逆から読むと3691です。
その数は4桁です。

正の整数を入力してください：-17
負の数を入力しないでください。
正の整数を入力してください：1963
その数を逆から読むと3691です。
その数は4桁です。