Составьте алгоритм нахождения корня линейного уравнения ax+b=0

203

400

Посмотреть ответы 2

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

муркот11

Информатика

4,7(79 оценок)

Алг. арг. a, b; рез. х; нач. вещ.a,b,x; x: =(-b)/a; вывод х; кон.

лупапупа

Информатика

4,8(72 оценок)

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 / (2 * a) writeln (x1: 3: 3); end \\ окончание при нулевом дискриминанте else if d> 0 then \\ ветка для решения при положительном дискриминанте begin x1 : = (- b + sqrt(d) / (2 * a); \\ первый корень x2 : = (- b - sqrt(d) / (2 * a); \\ второй корень writeln (x1: 3: 3, ' ', x2: 3: 3); \\ вывод ответа end else \\ ветка решения для отрицательного дискриминанта writeln ('нет действительных корней'); end.