Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами a, b, c, которые вводит пользователь.
Квадратное уравнение имеет вид ax2 + bx + c = 0. Коэффициенты a, b и c — это конкретные числа, а x надо найти, решив уравнение.
Вычислить дискриминант по формуле d = b2 — 4ac.
Если дискриминант больше нуля, то вычислить два корня уравнения: x1 = (-b+√d) / 2a x2 = (-b-√d) / 2a
Если дискриминант равен нулю, то вычислить только один корень (второй будет равен ему).
Если дискриминант отрицателен, то вывести сообщение, что корней нет.
Pascal
квадратное уравнение паскаль
var
a,b,c,d,x1,x2: real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
d := b*b - 4*a*c;
if d > 0 then begin
x1 := (-b + sqrt(d)) / (2*a);
x2 := (-b - sqrt(d)) / (2*a);
writeln('x1=',x1:3:2,'; x2=',x2:3:2);
end
else
if d = 0 then begin
x1 := (-b) / (2*a);
writeln('x=',x1:5:2);
end
else
writeln('Корней нет');
end.
print("Введите коэффициенты для квадратного уравнения (ax^2 + bx + c = 0):")
a = float(input("a = "))
b = float(input("b = "))
c = float(input("c = "))
discr = b**2 - 4 * a * c;
print("Дискриминант D = %.2f" % discr)
if discr > 0:
import math
x1 = (-b + math.sqrt(discr)) / (2 * a)
x2 = (-b - math.sqrt(discr)) / (2 * a)
print("x1 = %.2f \nx2 = %.2f" % (x1, x2))
elif discr == 0:
x = -b / (2 * a)
print("x = %.2f" % x)
else:
print("Корней нет")
КуМир
алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 - 4*a*c
вывод "D = ", D, нс
если D > 0 то
x1 := (-b + sqrt(D)) / (2 * a)
x2 := (-b - sqrt(D)) / (2 * a)
вывод "x1 = ", x1, нс
вывод "x2 = ", x2, нс
иначе
если D = 0 то
x1 := -b / (2 * a)
вывод "x = ", x1, нс
иначе
вывод "корней нет", нс
все
все
кон
Basic-256
input "a = ", a
input "b = ", b
input "c = ", c
d = b^2 - 4*a*c
decimal 3
if d > 0 then
x1 = (-b + sqrt(d)) / (2*a)
x2 = (-b - sqrt(d)) / (2*a)
print "x1 = " + x1 + ", x2 = " + x2
else
if d = 0 then
x = -b / (2*a)
print "x = " + x
else
print "Корней нет"
endif
endif
Команда decimal указывает сколько знаков после запятой следует выводить.
Подписаться
0 комментариев
Межтекстовые Отзывы
Посмотреть все комментарии
Pascal
квадратное уравнение паскаль
var a,b,c,d,x1,x2: real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); d := b*b - 4*a*c; if d > 0 then begin x1 := (-b + sqrt(d)) / (2*a); x2 := (-b - sqrt(d)) / (2*a); writeln('x1=',x1:3:2,'; x2=',x2:3:2); end else if d = 0 then begin x1 := (-b) / (2*a); writeln('x=',x1:5:2); end else writeln('Корней нет'); end.
print("Введите коэффициенты для квадратного уравнения (ax^2 + bx + c = 0):") a = float(input("a = ")) b = float(input("b = ")) c = float(input("c = "))
discr = b**2 - 4 * a * c; print("Дискриминант D = %.2f" % discr) if discr > 0: import math x1 = (-b + math.sqrt(discr)) / (2 * a) x2 = (-b - math.sqrt(discr)) / (2 * a) print("x1 = %.2f \nx2 = %.2f" % (x1, x2)) elif discr == 0: x = -b / (2 * a) print("x = %.2f" % x) else: print("Корней нет")
КуМир
алг квадратное уравнение нач вещ a, b, c, D, x1, x2 ввод a ввод b ввод c D := b**2 - 4*a*c вывод "D = ", D, нс если D > 0 то x1 := (-b + sqrt(D)) / (2 * a) x2 := (-b - sqrt(D)) / (2 * a) вывод "x1 = ", x1, нс вывод "x2 = ", x2, нс иначе если D = 0 то x1 := -b / (2 * a) вывод "x = ", x1, нс иначе вывод "корней нет", нс все все кон
Basic-256
input "a = ", a input "b = ", b input "c = ", c d = b^2 - 4*a*c
decimal 3
if d > 0 then x1 = (-b + sqrt(d)) / (2*a) x2 = (-b - sqrt(d)) / (2*a) print "x1 = " + x1 + ", x2 = " + x2 else if d = 0 then x = -b / (2*a) print "x = " + x else print "Корней нет" endif endif
Команда decimal указывает сколько знаков после запятой следует выводить.