#8809: pascal gaicuo


lsyyw2002 (袁祎炜)

學校 : 上海市娄山中学
編號 : 40598
來源 : [222.66.36.249]
最後登入時間 :
2015-10-28 15:45:20
a006. 一元二次方程式 | From: [114.91.149.143] | 發表日期 : 2014-05-15 18:44

var  

a,b,c,ans1,ans2:real;

begin  

readln(a,b,c);    

if -1*b/2*a<0 then write('No real root');    

if -1*b/2*a=0 then begin    

ans1:=(-1*b+ sqrt(b*b-4*a*c))/2*a;    

write ('Two same roots x=',ans1:0:0);    

end;    

if -1*b/2*a>0 then begin

      ans1:=(-1*b+ sqrt(b*b-4*a*c))/2*a;      

ans2:=(-1*b- sqrt(b*b-4*a*c))/2*a;    

  write('Two different roots x1=' , ans1:0:0  , ' , ' , 'x2=' , ans2:0:0);    

end;    

readln;

end.

 
ZeroJudge Forum