Вопрос задан 12.07.2023 в 08:04. Предмет Информатика. Спрашивает Берликов Дамир.

Ни откуда не копировать! Составьте программу решения квадратного уравнения с использованием

подпрограммы-функции.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Дорфман Илья.

Ответ:

var a,b,c, x1,x2,D: real;

begin

writeln(' а,б,с : ');

readln(a,b,c);

D := b*b - 4*a*c;

if D<0 then writeln('нет ответа') ;

if D=0 then

begin

x1 := -b/2/a;

writeln('х1 : ',x1:0:3);

end;

if D>0 then

begin

x1 := (-b-sqrt(D))/2/a;

x2 := (-b+sqrt(D))/2/a;

writeln('х1 и х2: x1=',x1:0:3,' x2=',x2:0:3);

end;

end.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Конечно, вот пример программы на языке Python, которая решает квадратное уравнение с использованием подпрограммы-функции:

python
import math def solve_quadratic(a, b, c): discriminant = b**2 - 4*a*c if discriminant > 0: x1 = (-b + math.sqrt(discriminant)) / (2*a) x2 = (-b - math.sqrt(discriminant)) / (2*a) return x1, x2 elif discriminant == 0: x = -b / (2*a) return x, else: return None def main(): print("Введите коэффициенты квадратного уравнения:") a = float(input("a: ")) b = float(input("b: ")) c = float(input("c: ")) solutions = solve_quadratic(a, b, c) if solutions is None: print("Корней нет") elif len(solutions) == 2: x1, x2 = solutions print(f"Корни уравнения: x1 = {x1}, x2 = {x2}") else: x = solutions[0] print(f"Уравнение имеет один корень: x = {x}") if __name__ == "__main__": main()

Вы можете вставить этот код в файл с расширением .py и запустить его. Программа запросит вас ввести коэффициенты квадратного уравнения, а затем выведет его корни или сообщит, что корней нет.

0 0

Похожие вопросы

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

Последние заданные вопросы в категории Информатика

Задать вопрос