Lordadicidn
Answered

Expand your knowledge base with the help of IDNLearn.com's extensive answer archive. Get prompt and accurate answers to your questions from our community of experts who are always ready to help.

write a program in pascal to solve a quadratic equation

Sagot :

Daniela88idn
program p1;
var a,b,c,d : integer; {i presume you give integer numbers for the values of a, b, c }
     x1, x2 : real;
begin 
write('a='); readln(a);
write('b='); readln(b);
write('c=');readln(c);
d:=b*b - 4*a*c
if a=0 then x1=x2= - c/b
          else
if d>0 then begin 
                 x1:=(-b+sqrt(d)) / (2*a);
                 x2:=(-b - sqrt(d))/(2*a);
                end;
          else if d=0 then x1=x2= - b /(2*a)
                           else write ("no specific solution because d<0");
writeln('x1=', x1);
writeln('x2=',x2);
readln;
end.
We greatly appreciate every question and answer you provide. Keep engaging and finding the best solutions. This community is the perfect place to learn and grow together. IDNLearn.com has the solutions you’re looking for. Thanks for visiting, and see you next time for more reliable information.