Question

Elaborati un program in pascal care va calcula ecuatia de gradul I: ax+b=0 *

Answer 1

var a,b,x : real;

begin

readln (a,b);

if a<>0 then

begin

x:=-b/a;

writeln('Ecuatia are o singura radacina', x);

end;

if (a=0)and (b=0) then

writeln('Ecuatia are o multime infinita de radacini');

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

writeln ('Ecuatia nu are sens');

end.