
Heavzhetm
4 год назад
Составьте алгоритм квадратного уравнения,пожалуйста,ребят
ОТВЕТЫ

Makar
Oct 24, 2020
var
a, b, c, d: real;
begin
readln(a, b, c);
if a = 0 then begin
if b = 0 then
writeln('х может быть любым')
else
writeln('x = ', c / -b);
exit;
end;
d := (b * b) - 4 * a * c;
if d < 0 then begin
writeln('Комплексные корни');
exit;
end;
writeln('x1 = ', -b + sqrt(d) / (2 * a));
writeln('x2 = ', -b - sqrt(d) / (2 * a));
end.
a, b, c, d: real;
begin
readln(a, b, c);
if a = 0 then begin
if b = 0 then
writeln('х может быть любым')
else
writeln('x = ', c / -b);
exit;
end;
d := (b * b) - 4 * a * c;
if d < 0 then begin
writeln('Комплексные корни');
exit;
end;
writeln('x1 = ', -b + sqrt(d) / (2 * a));
writeln('x2 = ', -b - sqrt(d) / (2 * a));
end.
724
Смежные вопросы: