Семьдесят два балла за простое задание! Сделайте по-нормальному, пожалуйста. Написать...

Question

Семьдесят два балла за простое задание! Сделайте по-нормальному, пожалуйста.
Написать программу для вычисления корней квадратного уравнения: ax^2+bc+c=0.

Answer 1

Var a,b,c,d,x1,x2:real;
begin
writeln('Введите коэффициент a');
readln(a);
writeln('Введите коэффициент b');
readln(b);
writeln('Введите коэффициент c');
readln(c);
d:=sqr(b)-4*a*c;
if d>0 then 
begin
x1:= ((-1)*b+sqrt(d))/(2*a);
x2:=((-1)*b-sqrt(d))/(2*a);
writeln('x1=',x1,' x2=',x2);
end
else if d=0 then
begin
x1:= ((-1)*b)/(2*a);
writeln('x=',x1);
end
else writeln('Корней нет');
end.

Comments

Вы уверены, что это верно?

---

А что именно вас беспокоит?Уверен,если нигде не напутал