Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Решение квадратного уравнения в общем виде по разветвляющей структуре программы

Ответ оставил Гость

Var a,b,c,d : Real;
Begin
  Write(Введите коэффициенты A B C: ); Readln(a,b,c);
  d:=b*b-4*a*c;
  If d<0 then Writeln(Решений нет) else
    Case d=0 of
     True : Writeln(x1 и x2 = ,-b/(2*a):8:4);
     False : Writeln(x1 = ,(-b+sqrt(d))/(2*a):8:4,  x2 = ,(-b-sqrt(d))/(2*a):8:4);
   end;
end.