發表新討論
#1104: 这是为什么？


epig_pdd (epig_pdd)

學校 : 湖北省宜昌市夷陵中学
編號 : 4924
來源 : [124.239.251.120]
最後登入時間 ：
2017-04-07 17:43:03
a006. 一元二次方程式 | From: [119.36.136.133] | 發表日期 : 2008-12-25 16:44

program a006;
var a,b,c,x1,x2,d:longint;
begin
while not eof(input)do
begin
read(a,b,c);
if b*b-4*a*c<0 then begin writeln('No real root');end;
if b*b-4*a*c=0 then begin d:=trunc(sqrt(b*b-4*a*c));write('Two same roots x=');if a<>0 then x1:=-(b div 2 div a);if x1=0then writeln('0')else writeln(x1);end;
if b*b-4*a*c>0 then begin d:=trunc(sqrt(b*b-4*a*c));write('Two different roots x1=');if a<> 0 then x1:=(-b+d)div 2 div a;write(x1,' , ');if a<>0 then x2:=(-b-d)div 2 div a;write('x2=');writeln(x2);end;
end;
end.

我在自己的电脑上面，完全能正常运行，得出正确的答案，为什么一提交，就会出现NA呢？

不解。。。。

 
#1112: Re:这是为什么？


epig_pdd (epig_pdd)

學校 : 湖北省宜昌市夷陵中学
編號 : 4924
來源 : [124.239.251.120]
最後登入時間 ：
2017-04-07 17:43:03
a006. 一元二次方程式 | From: [119.36.136.133] | 發表日期 : 2008-12-26 16:39
program a006;  
var a,b,c,x1,x2,d:longint;  
begin 
while not eof(input)do 
begin 
read(a,b,c);  
if b*b-4*a*c<0 then begin writeln('No real root');end;  
if b*b-4*a*c=0 then
begin
write('Two same roots x=');
if a<>0 then x1:=-(b div 2 div a);
if x1=0 then writeln('0')else writeln(x1);
end;  
if b*b-4*a*c>0 then
begin
d:=trunc(sqrt(b*b-4*a*c));
write('Two different roots x1=');
if a<> 0 then x1:=(-b+d)div 2 div a;
if a<>0 then x2:=(-b-d)div 2 div a;
if x1>x2 then
begin
write(x1,' , ');
write('x2=');
writeln(x2);
end
else
begin
write(x2,' , ');
write('x2=');
writeln(x1);
end;
end;  
end;  
end.
原来的程序有点纰漏,改正后,仍然NA,请大牛帮忙看看.... 
 
ZeroJudge Forum