Perlについての質問箱 28箱目
■ このスレッドは過去ログ倉庫に格納されています
0731デフォルトの名無しさん
2006/12/07(木) 18:15:15$number2 = $b;
$answer = $c;
if (($number1 == 0) or ($number2 == 0)) {
$answer = 0;
} elsif ($number1 >= $number2) {
$answer = $number1 / $number2;
} elsif ($number2 > $number1) {
$answer = $number2 / $number1;
}
$c = $answer;
■ このスレッドは過去ログ倉庫に格納されています