Question

Как исправить программу чтоб работала, постоянно выдает ошибки (программа по решению квадратных уравнений через дискриминант)

Answer 1

Ответ:

program iyu;

Var A, B, C, D: integer;

X,X1,X2: real;

Begin

Writeln('Введите 1 коэффициент');

Readln (A);

Writeln('Введите 2 коэффициент');

Readln (B);

Writeln('Введите 3 коэффициент');

Readln (C);

D:=(B*B)-(4*A*C);

if D<0 then Writeln('Корней нет')

Else

If D=0 then

begin

X:=-B/(2*A) ;

Writeln ('X=',X)

end

Else

If D>0 then

begin

X1:=(-B+sqrt(D)) / (2*A);

X2:=(-B-sqrt(D)) / (2*A);

Writeln ('X1=', X1, ' X2=', X2)

end

end.