fork download
copy 
  1. {
  2. 	Задача:
  3. 		- квадратное уравнение
  4. 	Решение:
  5. 		- автор Дмитрий С. Кузнецов
  6. 		- цена: $10002
  7. }
  8.  
  9. Program QuadraticEquation(OUTPUT, INPUT);
  10. var
  11. 	a, b, c	:double;
  12. 	d		:double;
  13. 	x1, x2	:double;
  14.  
  15. begin
  16.  
  17. writeln('==========================');
  18. writeln(' ':4, 'Quadratic Equation', ' ':4);
  19. writeln('==========================');
  20. writeln('A, B, C :');
  21. readln(a, b, c);
  22.  
  23. d := sqrt(b * b - 4 * a * c);
  24.  
  25. x1 := (-b - d)/(2 * a);
  26. x2 := (-b + d)/(2 * a);
  27.  
  28.  
  29. writeln('==========================');
  30. writeln(' (', a:5:2, ')*x*x + (', b:5:2, ')*x + (', c:5:2, ') = 0');
  31. writeln('ROOTS :'); 
  32. writeln('  x1 : ', x1:5:2);
  33. writeln('  x2 : ', x2:5:2);
  34. writeln('==========================');
  35.  
  36.  
  37. end.
  38.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
123 40 -1
stdout
copy 
==========================
    Quadratic Equation    
==========================
A, B, C :
==========================
 (123.00)*x*x + (40.00)*x + (-1.00) = 0
ROOTS :
  x1 : -0.35
  x2 :  0.02
==========================
https://ideone.com/DYGzRj
language:
Pascal (fpc 3.0.4)
created:
1 day 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!