Cоставьте программу для решения уравнения x^2+kx+b>0
Answers & Comments
kaeru322Var a, k, b, D, X, X1, X2 : real; begin writeln ('введите коэффициенты уравнения (a, k, b) '); readln(a,k,b); if a=0 then if k=0 then if b=0 then writeln('X - любое число') else writeln('корней нет! ') else begin X:=-b/k; writeln('X=',X:8:3); End else begin D:=k*k-4*a*b; if D<0 then writeln ('Корней нет! ') else begin X1:=(-k+sqrt(D))/2/a; X2:=(-k-sqrt(D))/2/a; writeln ('X1=', X1:8:3, ' X2=',X2:8:3); end; end; end.
Answers & Comments
real;
begin
writeln ('введите коэффициенты уравнения (a, k, b) ');
readln(a,k,b);
if a=0 then
if k=0 then
if b=0 then
writeln('X - любое число')
else
writeln('корней нет! ')
else
begin
X:=-b/k;
writeln('X=',X:8:3);
End
else
begin D:=k*k-4*a*b;
if D<0
then writeln ('Корней нет! ')
else
begin
X1:=(-k+sqrt(D))/2/a;
X2:=(-k-sqrt(D))/2/a;
writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
end;
end;
end.