fork download 
  1. program ideoneC;
  2. var
  3.   a, b, c, delta, x1, x2: real;
  4. begin
  5.  
  6. 	readln(a);
  7. 	readln(b);
  8. 	readln(c);
  9. 	delta := b*b-4*a*c;
  10.  
  11. 	if delta = 0 then
  12. 		begin
  13. 		x1 := -b/(2*a);
  14. 		writeln('Jendo rozwiązanie: ');
  15. 		writeln(x1);
  16. 		end;
  17. 	if delta > 0 then
  18. 		begin
  19. 		delta := sqrt(delta);
  20. 		x1 := (-b-delta)/(2*a);
  21. 		x2 := (-b+delta)/(2*a);
  22. 		writeln('Dwa rozwiazania');
  23. 		writeln(x1);
  24. 		writeln(x2);
  25. 		end;
  26.  
  27.  
  28.  
  29. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin 
7
9
0
stdout 
Dwa rozwiazania
-1.285714285714286e+00
 0.000000000000000e+00
https://ideone.com/npMTvi
language:
Pascal (gpc 20070904)
created:
25 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!