Ask Question

Write a program in pascal to solve a quadratic equation

+5
Answers (1)
  1. 3 February, 19:34
    0
    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.
Know the Answer?
Not Sure About the Answer?
Find an answer to your question 👍 “Write a program in pascal to solve a quadratic equation ...” in 📗 Computers & Technology if the answers seem to be not correct or there’s no answer. Try a smart search to find answers to similar questions.
Search for Other Answers