Решите биквадратное уравнение ах4 + bх2 + с = 0 Паскаль
Решите биквадратное уравнение ах4 + bх2 + с = 0
Паскаль
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.1 сборка 1200
var
a, b, c, d, x: real;
x2: array[1..2]of real;
i: integer;
begin
readln(a, b, c);
d := b * b - 4 * a * c;
if d < 0 then begin
writeln('Сложные комплексные корни');
halt;
end;
d := sqrt(d);
x2[1] := (-b + d) / 2 / a;
x2[2] := (-b - d) / 2 / a;
for i := 1 to 2 do
begin
x := sqrt(abs(x2[i]));
if x2[i] >= 0 then
writeln('x[', 2 * i - 1, '] = ', x, ' x[', 2 * i, '] = ', -x)
else
writeln('x[', 2 * i - 1, '] = ', x, 'i x[', 2 * i, '] = ', -x, 'i');
end;
end.
Не нашли ответ?
Похожие вопросы