二次函数闭区间求最小值、、

某题目出错了，然后就写了个错的、

觉得很可惜，就粘过来、、

 自己感觉挺对的、、

Var
  l,r,a,b,c,n,i:longint;
  x,xx,Iris:Extended;
Begin
  Read(L,r);
  Iris:=-1*Maxlongint;
  Read(a,b,c);
  if a=0 Then
    Begin
      if b<0 Then xx:=b*r+c
      Else xx:=a*l*l+b*l+c;
    End
  Else if a>0 Then
    Begin
      x:=-0.5*b/a;
      if x<0 Then
        xx:=c+a*l*l+b*l
      Else if x>r Then xx:=a*r*r+r*b+c
      Else xx:=c-b*b/(4*a);
    End
  Else
    if a<0 Then
      Begin
        x:=-0.5*b/a;
        if x<0 Then xx:=a*r*r+r*b+c
        Else if x>r Then xx:=c+a*l*l+b*l
        Else
          Begin
            if x<r-x Then xx:=a*r*r+r*b+c
            Else xx:=c+a*l*l+b*l;
          End;
      End;
  Iris:=xx;
  Writeln(Iris:0:4);
End.