60 Балов Написать программу решения квадратного уравнения: Ax²+Bx+C=0

Question

60 Балов
Написать программу решения квадратного уравнения:
Ax²+Bx+C=0

Comments

Ограничения есть какие-то? Например A не равно нулю и т.д.?

---

ytne

---

нету

---

Тогда Ваша программа должна быть весьма велика... При А=0 нужно писать решение линейного уравнения и т.д.

---

информатичка задала...

---

Ну тут как бы можно попробовать искусственно заявить, что А не должно быть равно нулю, потому что тогда уже уравнение не будет квадратным, но это, конечно же отговорки.

---

а вы можете помочь?

---

Какой язык программирования?

---

А еще - не стоит врать про 60 баллов, поскольку реально-то 15+8 за решение.

---

Это ненаказуемо, но создает не очень хорошее впечатление о Вас.

Answer 1

Var
  a,b,c,D,x1,x2:double;
begin
  Write('Введите коэффициенты квадратного уравнения А В С: ');
  Read(a,b,c);
  if a=0 then
    Writeln('А не может равняться нулю: уравнение не будет квадратным')
  else begin
    D:=sqr(b)-4*a*c;
    if D<0 then Writeln('Нет корней')<br>    else
      if D=0 then Writeln('x=',-b/(2*a))
      else begin
        D:=sqrt(D);
        x1:=(-b-D)/(2*a); x2:=(-b+D)/(2*a);
        Writeln('x1=',x1,', x2=',x2)
      end
  end
end.

Тестовое решение:
Введите коэффициенты квадратного уравнения А В С: 2 -5 3
x1=1, x2=1.5

Answer 2

Var a,b,c,D,x1,x2:double; begin Write('Введите коэффициенты квадратного уравнения А В С: '); Read(a,b,c); if a=0 then Writeln('А не может равняться нулю: уравнение не будет квадратным') else begin D:=sqr(b)-4*a*c; if D<0 then Writeln('Нет корней') else if D=0 then Writeln('x=',-b/(2*a)) else begin D:=sqrt(D); x1:=(-b-D)/(2*a); x2:=(-b+D)/(2*a); Writeln('x1=',x1,', x2=',x2) end end end. Тестовое решение: Введите коэффициенты квадратного уравнения А В С: 2 -5 3 x1=1, x2=1.5 ответ у модератора совершенно верен.