кто сможет составить программу вычисления значения функции

[graft]

составить программу вычисления значения функции z=(x1+x2)/(x2+y2), где x1,x2 - корни уравнения ax^2+bx+c=0 , y1, y2 - корни уравнения dy^2+ey+f=0

[Abstraction]

Для нахождения x2+y2 надо как-то уметь отличать x1 от x2, лично я не умею.

[Blind Guard]

Если что-то просите, то просите подробнее
f это что?

[graft]

нужно код в visual basic прописать)
если бы понимал то конечно бы по подробней расписал..

[graft]

Private Sub CommandButton1_Click()
Dim a, b, c, d, exp1, f As Single
А = Cells(2, 1)
b = Cells(2, 2)
c = Cells(2, 3)
d = Cells(2, 4)
exp1 = Cells(2, 5)
f = Cells(2, 6)
m1 = b ^ 2 - 4 * a * c
m2 = e ^ 2 - 4 * d * f

If m1 < 0 Or (a = 0 And b = 0) Then

ElseIf m2 < 0 Or (d = 0 And e = 0) Then

ElseIf m1 + m2 >= 0 Then

If a = 0 Then
x1 = -c / b
x2 = -c / b
Else
x1 = (-b + Sqr(m1)) / (2 * a)
x2 = (-b - Sqr(m1)) / (2 * a)
End If

If d = 0 Then
x1 = -f / exp1
x2 = -f / exp1
Else
y1 = (-exp1 + Sqr(m2)) / (2 * d)
y2 = (-exp1 - Sqr(m2)) / (2 * d)
End If

End If
z = (x1 + y1) / (x2 + y2)
MsgBox (z)
End Sub