bNAyb0 - Online Perl Interpreter & Debugging Tool

#!/usr/bin/perl
#
# Calculation the roots of a quadratic equation
#
# a*x^2 + b*x + c = 0
#
# # # # # # # # # # # # # # # # # # # # # # # #
#
#	Задача :
#	- Расчет Корней Квадратного Уравнения
#	Решение :
#	- автор Дмитрий Кузнецов
#	- цена $108.17
#
# # # # # # # # # # # # # # # # # # # # # # # #
#
#

my $a = <STDIN>;
my $b = <STDIN>;
my $c = <STDIN>;

# Formula for eauation of discriminator
my $d = sqrt($b*$b - 4*$a*$c);

# Roots
my $x1 = (-$b - $d) / (2 * $a);
my $x2 = (-$b + $d) / (2 * $a);

# Output Results
print ("Roots for ... a*x^2 + b*x + c = 0 \n");
print (" a = $a b = $b c = $c \n :: x1 : $x1 :: x2 : $x2 ::\n");