[Математика] Скрипт для решения квадратных уравнений

[obeyme]

AutoIt: 3.
Версия: 1.0

Категория: Математика

Описание: Простой скрипт, решающий квадратные уравнения

Код/Пример:

Спойлер

MsgBox(0,"Квадратное уравнение", "Программа для решения квадратных уравнений. Нажмите ОК что бы продолжить")
$a = InputBox("Коэффициент A", "Введите коэффициент а.")
$b = InputBox("Коэффициент B", "Введите коэффициент b.")
$c = InputBox("Коэффициент C", "Введите коэффициент c.")
$b1 = Abs($b)
$D1 = ($b1 ^ 2) - 4 * $a * $c
If $D1 = 0 Then
   $s = -$b / (2 * $a)
   MsgBox(0, "Квадратное уравнение", "Дискриминант оказался нулевым, следовательно в решении оказался только 1 корень - X = " & $s)
   Exit
ElseIf $D1 < 0 Then
   MsgBox(0, "Квадратное уравнение", "Дискриминант оказался меньше нуля, следовательно решения нет!")
   Exit
EndIf
$D = Sqrt($D1)
$x1 = (-$b - $D) / (2 * $a)
$x2 = (-$b + $D) / (2 * $a)
MsgBox(0, "Квадратное уравнение", "x1 = " & $x1)
MsgBox(0, "Квадратное уравнение", "x2 = " & $x2)

 

[inververs]

Вспомнилось http://ithappens.ru/story/10776

 

[obeyme]

Есть один недочет, если, например, x1 будет корень из 3, то он даст приблизительное значение. Так же происходит, если ответ дробный. Можно ли как то сделать вывод ответа в виде дроби или корня?