Написать программу, которая решает уравнение ax+b = 0 (Паскаль)

использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0

Question

Информатика

Леша

28 января, 08:46

Написать программу, которая решает уравнение ax+b = 0 (Паскаль)

использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0

+3

Ответы (1)

Знаете ответ на вопрос?

Жозефина · Answer 1

Var a, b, x:real;

begin

writeln ('Введите значение a') ;

readln (a) ;

writeln ('Введите значение b') ;

readln (b) ;

x: = ((-1) * b) / a;

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

else if (a=0) and (b0) then writeln ('Нет корней')

else writeln ('x=', x) ;

end.

Написать программу, которая решает уравнение ax+b = 0 (Паскаль)использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0

Написать программу, которая решает уравнение ax+b = 0 (Паскаль)

использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0