Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составьте программу решения квадратного уравнения ax(x-в квадрате)+
+bx +c=0. Коэффициенты a,b,c введите с клавиатуры.Выведите на экран
ЗНачения корней x1,x2, если уравнение имеет два корня, значение x, если уравнение имеет один корень, или сообщение <Нет корней>, если уравнение не имеет корней

Ответ оставил Гость

Sub f1()
Dim a, b,c, d, cord, x1, x2 As Single
a =InputBox(" x^2")
b =InputBox(" x")
c = InputBox(" свободный")
d = 0d = (b * b) - 4 * a * c
If d< 0 Then MsgBox ("решений нет")
cord =Sqr(d)
x1 =(-b + cord) / (2 * a)
x2 =(-b - cord) / (2 * a)
if d = 0 then msgbox CStr(x1)
MsgBox ("корни квадратного уравненияравны " + CStr(x1) + "и" + CStr(x2))
EndSub