#10488:


xujieyi2003 (华二 徐介已)

學校 : 上海市娄山中学
編號 : 50360
來源 : [58.37.83.0]
最後登入時間 :
2016-11-02 20:06:43
a006. 一元二次方程式 | From: [58.34.4.17] | 發表日期 : 2015-11-22 13:40

var
  a,b,c,x,x1,x2,xc:real;
begin
  while not eof do begin
    readln(a,b,c);
    if sqr(b)-4*a*c>0 then begin
      x1:=(-b+sqrt(sqr(b)-4*a*c))/(2*a);
      x2:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
      write('Two different roots ');
      if x1<x2 then begin
        xc:=x1;
        x1:=x2;
        x2:=xc;
      end;
      writeln('x1=',x1:0:0,' , x2=',x2:0:0)
    end;
    if sqr(b)-4*a*c=0 then begin
      x:=-(b/(2*a));
      if x=-0 then x:=0;
      writeln('Two same roots x=',x:0:0);
    end;
    if sqr(b)-4*a*c<0 then writeln('No real root');
  end;
end.

 
ZeroJudge Forum