Главная /
Старшие классы /
Информатика и ИКТ
Автор: Ташходжаев Султанмурат Акмалович
Решение квадратных уравнений
Скачать
48.69 КБ, 1432016.rar Автор: Ташходжаев Султанмурат Акмалович, 16 Фев 2016
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b * b - 4 * a * c
Text4 = d
If d > 0 Then
X1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Text5 = X1
Text6 = X2
Else
Text5 = "Решение нет"
Text6 = " Решение нет "
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Автор: Ташходжаев Султанмурат Акмалович
Похожие материалы