Исходники VBScript: Решение квадратного уравнения

'Имя скрипта: Решалка квадратных уравнений.
'Описание: Данный скрипт автоматически за вас решит квадратное уравнение.
'Все что от вас требуется - это ввести три переменные и вы получите два корня и дискриминант.
'(C)Alex.Devil.LX 2011
Dim A, B, C, Descriminant, Sqrt_Discriminant, Result_Pls, Result_Min
A = InputBox ("Введите переменную A" & Chr (10) & "[A]x2+bx+c=0", "Решалка квадратных уравнений: Введите A", "Введите [A]x2")
B = InputBox ("Введите переменную B" & Chr (10) & "ax2+[B]x+c=0", "Решалка квадратных уравнений: Введите B", "Введите [B]x")
C = InputBox ("Введите переменную C" & Chr (10) & "ax2+bx+[C]=0", "Решалка квадратных уравнений: Введите C", "Введите [C]")
Discriminant = cint (B) ^2 - 4* cint (A) * cint (C)
MsgBox "Дискриминант: " & Discriminant
If Discriminant < 0 Then
MsgBox "Дискриминант меньше 0, из него квадратного корня нельзя извлечь, следовательно уравнение корней не имеет"
Else
Sqrt_Discriminant = Sqr (Discriminant)
Result_Pls = (-(cint (B)) + cint (Sqrt_Discriminant)) / (2 * cint (A))
Result_Min = (-(cint (B)) - cint (Sqrt_Discriminant)) / (2 * cint (A))
MsgBox "Результат при положительном дискриминанте: " & Result_Pls
MsgBox "Результат при отрицательном дискриминанте: " & Result_Min
End If