Задание

Составьте программу решения линейного уравнения \(\mathbf ax+b=0\) , где a, b - коэффициенты, не прибегая к вложенным ветвлениям.

Линейное уравнение \(\mathbf ax+b=0\) имеет решение:

1. если коэффициенты a<>0 и b<>0, x=-b/a;

2. при a=0 и b=0, 0*х + 0 = 0, то х - любое число.

3. при a=0 и b<>0, 0*x+b=0, уравнение не имеет корней.

program n_13;

var x, a, b: real;

begin {начало программного блока}

writeln ('Решение линейного уравнения ');

write ('Введите коэффициенты a, b>>');

readln (a, b);

if (a<>0) and (b<>0) then

if (a=0) and (b=0) then writeln ('x - любое число');

x:=-b/a;

end.

begin

end;

writeln ('Корень уравнения x=', x:9:3)

if (a=0) and (b<>0) then writeln ('Корней нет');