Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (коэффициент (программа Паскаль)
Вопрос посетителя
Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (коэффициент A не равен 0), если известно, что дискриминант уравнения положителен. Вывести вначале меньший, а затем больший из найденных корней. Корни квадратного уравнения находятся по формуле
x1,2 = (−B ± D1/2)/(2·A),
где D — дискриминант, равный B2 − 4·A·C.
Ответ эксперта
var
A, B, C, D, x: real;
begin
write(‘A = ‘);
readln(A); { <-- вводим А≠0 }
write(‘B = ‘);
readln(B); { <-- вводим B }
write(‘C = ‘);
readln(C); { <-- вводим C }
writeln;
D := sqr(B) — 4 * A * C; { <== вычисляем дискриминант }
writeln(‘Результат:’);
x := (- B — sqrt(D)) /(2 * A); { <== первый корень }
writeln(‘ x1 = ‘, x:0:4);
x := (- B + sqrt(D)) /(2 * A); { <== второй корень }
writeln(‘ x2 = ‘, x:0:4);
readln
end.
