結果

問題 No.1179 Quadratic Equation
ユーザー maple116
提出日時 2021-01-03 16:51:46
言語 Perl
(5.40.0)
結果
AC  
実行時間 4 ms / 2,000 ms
コード長 876 bytes
コンパイル時間 280 ms
コンパイル使用メモリ 5,376 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-10-13 10:21:35
合計ジャッジ時間 1,148 ms
ジャッジサーバーID
(参考情報)
judge3 / judge2
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 11
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
プレゼンテーションモードにする

# my $t = <>;
my $t = 1;
if($t == 0) {
exit;
}
while ($t--) {
my ($a, $b, $c) = split(/ /, <>);
if($a == 0) {
if($b == 0){
if($c == 0){
print "3\n";
} else {
print "0\n";
}
} else {
printf "%.12f\n", -$c/$b;
}
} else {
my $d = $b * $b - 4 * $a * $c;
if($d > 0){
# print "2 ";
my $s = sqrt($d);
if($a > 0){
printf "%.12f ", (-$b-$s)/(2*$a);
printf "%.12f \n", (-$b+$s)/(2*$a);
} else {
printf "%.12f ", (-$b+$s)/(2*$a);
printf "%.12f\n", (-$b-$s)/(2*$a);
}
} elsif($d == 0){
# print "1 ";
printf "%.12f\n", -$b/(2*$a);
} else {
print "imaginary\n"
}
}
}
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0