Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  quadratic
Language: PASCAL
Code:
program Quadratic ;
var
   A ,B , C , D: integer ;
begin
write ('A = ' ) ;
readln(A) ;
if (A =0 ) then
begin
writeln ( 'Not a quadratic equation.' ) ;
halt;
end ;
write ('B = ' ) ;
readln(B) ;
write ('C = ' ) ;
readln(C) ;
   D := B *B -4* A* C ;
if (D =0 ) then
begin
writeln ( 'x = ' ,- B /2.0/ A) ;
halt;
end ;
if (D >0 ) then
begin
writeln ( 'x1 = ' , ( - B+ Sqrt(D)) /2.0/ A) ;
writeln ( 'x2 = ' , ( - B- Sqrt(D)) /2.0/ A) ;
end
else
begin
writeln ( 'x1 = (' ,- B /2.0/ A ,',' , Sqrt(- D) /2.0/ A ,')' ) ;
writeln ( 'x2 = (' ,- B /2.0/ A ,',' ,- Sqrt( - D) /2.0/ A, ')' ) ;
end ;
end .
Comments: