Дано уравнение ax2+bx+c=0 найти решение этого уравнения или сообщить, что решения не существует

Question

Информатика

Олегыч

23 июня, 23:17

Дано уравнение ax2+bx+c=0 найти решение этого уравнения или сообщить, что решения не существует

+2

Ответы (2)

Знаете ответ на вопрос?

Элеонора · Answer 1

Элеонора 24 июня, 00:20

0

√D=b2-4ac

x1=-b+√D/2a

x2 = b+√D/2a

Евмен · Answer 2

Var

a, b, c, d:double;

Begin

write ('a = ') ;

read (a) ;

write ('b = ') ;

read (b) ;

write ('c = ') ;

read (c) ;

d:=sqrt (b*b-4*a*c) ;

if d > 0 then begin

writeln ('x1 = ', (-b+d) / (2*a)) ;

writeln ('x2 = ', (-b-d) / (2*a)) ;

end

else

if d = 0 then

writeln ('x = ', - b / (2*a))

else

write ('Решений нет') ;

End.