Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123475
Language: PASCAL
Code:
program kvien;

 a,b,c,D,x1,x2:real;    
begin
 Read(a,b,c);
 D:=b*b-4*a*c;
 if D<0 
 then WriteLn('D>0 KOPHEu HET')
 else begin
          d:=sqrt(d);
          x1:=(-b+d)/(2*a);
          x2:=(-b-d)/(2*a);
          WriteLn('x1=',x1);
          WriteLn('x2=',x2);
        end;   
end.
          
          
Comments: