Перевести с Паскаля на алгоритмический язык :
program KvUravneniye;
var
a, b, c, x1, x2, discriminant : real;
begin
writeln('введите коэффициенты уравнения вида : a*sqr(x)+b*x+c');
{ввод данных}
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
{дискриминант}
discriminant := sqr(b) - 4 * a * c;
if discriminant < 0 then
writeln('Квадратное уравнение не имеет корней')
else
begin
if discriminant = 0 then
begin
{квадратное уравнение имеет два одинаковых корня}
x1 := -b / (2 * a);
x2 := x1;
end
else
begin
{уравнение имеет два разных корня}
x1 := (-b + sqrt(discriminant)) / (2 * a);
x2 := (-b - sqrt(discriminant)) / (2 * a);
end;
{вывод корней уравнения}
writeln('x1 = ', x1:8:3);
writeln('x2 = ', x2:8:3);
end;
writeln('Уравнение решено.');
end.
128
156
Ответы на вопрос:
Популярно: Информатика
-
Arisha254431.12.2020 22:31
-
ZaraKerimova08.07.2021 23:03
-
iraromanova200205.11.2021 22:47
-
Natasatana09.08.2022 04:42
-
Annet48302.07.2022 01:11
-
gasdgg31.10.2020 17:08
-
ilyapleshakov2927.10.2022 04:47
-
Hah12522.02.2022 02:35
-
mr1assira02.02.2023 10:56
-
Александр75611.10.2021 12:57