2章練習問題

perl

[]の中は問題を解くのにかかった時間。

問1[1]

#!/usr/bin/perl -w
$p = 3.141592654;
$hankei = 12.5;
$ensyuu = $hankei * 2 * $p;
print "$ensyuu\n";

OK
ただ、最後はprint "半径が12.5の円周は$ensyuu\n"とした方が
わかりやすくて、よかったと思う。

問2[2]

#!/usr/bin/perl -w
$p = 3.141592654;
print "半径を入力してください。\n";
chomp( $hankei = <STDIN> );
$ensyuu = $hankei * 2 * $p;
print "円周の長さは$ensyuuです。\n";

OK

問3[1]

#!/usr/bin/perl -w
$p = 3.141592654;
print "半径を入力してください。\n";
chomp( $hankei = <STDIN> );
if ( $hankei < 0 ) {
    $hankei = 0;
}
$ensyuu = $hankei * 2 * $p;
print "円周の長さは$ensyuuです。\n";

参考書の解答とは少し違うが、OK

問4[3]

#!/usr/bin/perl -w
print  "数字を入力してください。\n";
chomp ( $n = <STDIN> );
print "もう一度、数字を入力してください。\n";
chomp ( $s = <STDIN> );
print "二つの数字の積は" . $n * $s . "です。\n";

最初、"積は( $n * $s )です。\n"としたが、エラー。
やはり、別けて書かないと駄目らしい。

問5[2]

#!/usr/bin/perl -w
print "文字列を入力してください。\n";
$string = <STDIN>;
print "繰り返し回数を入力してください。\n";
$n = <STDIN>;
print $string x $n;

$nの末尾の改行を取り忘れ。
ただし、どちらでも結果は同じだった。
一応、不必要な改行は取り除いた方がいいのだろうか。