a410.
解方程
--
TYVJ
| From: [115.231.168.6] |
發表日期
:
2014-06-22 17:14
第 1 測資點(10%): AC (0ms, 164KB)
通过检测
第 2 測資點(0%): WA
(line:1)答案不正确
您的答案為: x=-0.37 正確答案為: x=-2.71
第 3 測資點(0%): WA
(line:1)答案不正确
您的答案為: x=0.03 正確答案為: x=29.69
第 4 測資點(0%): WA
(line:1)答案不正确
您的答案為: x=-0.05 正確答案為: x=-18.59
第 5 測資點(0%): WA
(line:1)答案不正确
您的答案為: x=-3.03 正確答案為: x=-0.33
第 6 測資點(0%): WA
(line:1)答案不正确
您的答案為: x=6.71 正確答案為: x=0.15
第 7 測資點(10%): AC (0ms, 160KB)
通过检测
第 8 測資點(10%): AC (0ms, 160KB)
通过检测
第 9 測資點(0%): RE
(code:106)执行时期错误
執行時期未定義錯誤,code = 106
第 10 測資點(10%): AC (0ms, 156KB)
通过检测
var
a,b,c,d,e,f,x,y:real;
begin
while not eof do begin
readln(a,b,c,d,e,f);
if (a*e-b*d=0) and ((c*e-b*f<>0) or (a*f-c*d<>0)) then writeln('No answer')
else if (c*e-b*f=0) or (a*f-c*d=0) then writeln('Too many')
else begin
y:=(a*f-c*d)/(a*e-b*d);
x:=(b*d-a*e)/(f*b-c*e);
writeln('x=',x:0:2);
writeln('y=',y:0:2);
end;
end;
end.