Question

Elaborați un program Pascal ce calculează rădăcina ecuatiei ax+b=0 .Urgent !!!vă rog.​

Answer 1

Răspuns:

var a,b:real;

begin

Write('a=');

Readln(a);

Write('b=');

Readln(b);

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

Writeln('Radacini nu sunt')  

else

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

Writeln('O infinitate de radacini')  

else

Writeln('O radacinia,x=',-b/a:0:6);

Readln;

end.