Advertisement
Guest User

Untitled

a guest
Apr 25th, 2017
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. var
  2. a,b,c ,d,x1,x2, ans:real;
  3.  
  4. begin
  5. read(a,b,c);
  6. d:=b*b-4*a*c ;
  7.  
  8.  
  9. if(d<0)
  10. then begin
  11. write('no');
  12. end else begin
  13. if(d=0)
  14. then begin
  15. x1:=-b/(2*a);
  16. writeln(x1:2:2);
  17. ans := a * x1 * x1 + b * x1 + c;
  18. writeln(ans:2:2);
  19. end else begin
  20. x1:=(-b+sqrt(d))/2*a;
  21. x2:=(-b-sqrt(d))/2*a;
  22. writeln(x1:2:2, ' ', x2:2:2);
  23. ans := a * x1 * x1 + b * x1 + c;
  24. writeln(ans:2:2);
  25. end;
  26. end;
  27.  
  28.  
  29. readln();
  30. readln();
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement