Добрый день. Предлагаю Вам проверить Ваше решение уравнения

a*x^2+b*x+c=0.

Найти дискриминант, затем найти корни уравнения x1 и x2.

2. описать условие и решение при помощи vbscript (бэйсик скрипт). Уравнение: a*x^2+b*x+c=0

СООБЩЕНИЕ:

Option Explicit Dim a, b, c, x1, x2, D a= InputBox("Введите значение a=") b= InputBox("Введите значение b= ") c= InputBox("Введите хначение c=") D=b^2-(4*a*c) x1=((-1)*(b)+sqr(D))/(2*a) x2=((-1)*(b)-sqr(D))/(2*a) MsgBox "a=" & vbtab & a & vbtab & "b=" & vbtab & b & vbtab & "c=" & vbtab & c rem MsgBox "c=" & vbtab & c MsgBox " Дискриминант D=" & vbtab & D MsgBox " Корень уравнения x1="& vbtab & x1 & vbtab & " Корень уравнения x2=" & vbtab & x2