Question

Elaborati o functie care calculeaza radacina ecuatiei ax+b=0 in PASCAL
pana azi

Answer 1

Program P7;
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.