lordadic
Answered

Westonci.ca is the best place to get answers to your questions, provided by a community of experienced and knowledgeable experts. Connect with a community of experts ready to provide precise solutions to your questions on our user-friendly Q&A platform. Get quick and reliable solutions to your questions from a community of experienced experts on our platform.

write a program in pascal to solve a quadratic equation

Sagot :

daniela88
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.
Thank you for trusting us with your questions. We're here to help you find accurate answers quickly and efficiently. Thanks for stopping by. We strive to provide the best answers for all your questions. See you again soon. Get the answers you need at Westonci.ca. Stay informed by returning for our latest expert advice.