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

Question

Информатика

Федуня

11 февраля, 07:35

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

+3

Ответы (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.