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

Question

Информатика

Натаня

22 декабря, 03:22

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

+1

Ответы (1)

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

Евтихия · Answer 1

var a, b, c, D, x1, x2:real;

begin

readln (a, b, c) ;

D:=b*b-4*a*c;

if D<0 then Writeln ('Только комплексные корни')

else

begin

d:=sqrt (d) ;

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

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

WriteLn ('x1=', x1) ;

WriteLn ('x2=', x2) ;

end;

end.