Написать алгоритм и программу квадратного уравнения

Question

Информатика

Павлюка

29 сентября, 08:35

Написать алгоритм и программу квадратного уравнения

+2

Ответы (2)

Знаете ответ?

Митюля · Answer 1

var

a, kd, b, c, x2, x1, d:extended;

begin

read (a, b, c) ;

d:=-4*a*c;

if d>0 then

begin

kd:=sqrt (d) ;

x1: = (-b+kd) / 2*a;

x2: = (-b-kd) / 2*a;

end;

else

write ('Нет корней') ;

If x1=x2 then write (x1) else write (x1, x2) ;

end.

Елисей · Answer 2

var

a, kd, b, c, x2, x1, d:extended;

begin

read (a, b, c) ;

d:=-4*a*c;

if d>0 then

begin

kd:=sqrt (d) ;

x1: = (-b+kd) / 2*a;

x2: = (-b-kd) / 2*a;

end;

else

write ('Нет корней') ;

If x1=x2 then write (x1) else write (x1, x2) ;

end