
ПОМОГИТЕ СРОЧНО НАДО!!!!!!!!!! Записать в тетради программу, которая вычисляет и выводит на экран
корни квадратного уравнения, либо сообщение о том, что нет корней.

Ответы на вопрос

program Discrt;
var
a,b,c: real;
x1,x2,x,D: real;
begin
write ('Введите первое значение: ');
readln (a);
write ('Введите второе значение: ');
readln (b);
write ('Введите третье значение: ');
readln (c);
writeln;
D := sqr(b) - 4 * a * c;
if D > 0 then
begin
x1 := (-b-sqrt(D))/(2*a);
x2 := (-b+sqrt(D))/(2*a);
writeln ('x1 = ',x1);
writeln ('x2 = ',x2);
end;
if D = 0 then
begin
x := -b/(2*a);
writeln ('x = ',x);
end;
if D < 0 then
writeln ('Нет корней!!!');
end.



Конечно! Вот пример программы на языке Python, которая вычисляет и выводит на экран корни квадратного уравнения или сообщение о том, что корней нет:
pythonimport math
def solve_quadratic_equation(a, b, c):
discriminant = b**2 - 4*a*c
if discriminant > 0:
# У уравнения два различных корня
root1 = (-b + math.sqrt(discriminant)) / (2*a)
root2 = (-b - math.sqrt(discriminant)) / (2*a)
return root1, root2
elif discriminant == 0:
# У уравнения один корень (два равных)
root = -b / (2*a)
return root, root
else:
# Корней нет
return None
def main():
print("Введите коэффициенты квадратного уравнения ax^2 + bx + c = 0:")
a = float(input("Введите a: "))
b = float(input("Введите b: "))
c = float(input("Введите c: "))
roots = solve_quadratic_equation(a, b, c)
if roots:
root1, root2 = roots
print(f"Корни уравнения: x1 = {root1}, x2 = {root2}")
else:
print("У уравнения нет корней.")
if __name__ == "__main__":
main()
Вы можете скопировать этот код в свою тетрадь или текстовый редактор, сохранить его с расширением .py
и запустить. После запуска программа попросит вас ввести коэффициенты a, b и c для квадратного уравнения, а затем выведет корни или сообщение о их отсутствии.


Похожие вопросы
Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili