Решение квадратного уравнения (хочу чтоб кто то проверил) - VB

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim a, b, c, d, x1, x2 As String
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = (b ^ 2) - (4 * a * c)
Text4.Text = d
If d < 0 Then
MsgBox ("Нет корней")
Else
If d >= 0 Then
x1 = (-b + Sqr(d)) / 2 * a
x2 = (-b - Sqr(d)) / 2 * a
Text5.Text = x1
Text6.Text = x2
End If
End If
End Sub

Всё нормально?

Решение задачи: «Решение квадратного уравнения (хочу чтоб кто то проверил)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim a, b, c As Integer
Dim d as single
dim x1,x2,x as string
a = val(Text1.Text)
b = val(Text2.Text)
c = val(Text3.Text)
d = (b ^ 2) - (4 * a * c)
Text4.Text = d
If d < 0 Then
MsgBox ("Нет корней")
Else
If d > 0 Then
x1 = (-b + Sqr(d)) / 2 * a
x2 = (-b - Sqr(d)) / 2 * a
Text5.Text = x1
Text6.Text = x2
else
if d = 0 then
x = (-b)/2*a
text7.text = x
End If
End If
End if
End Sub

Оцени полезность:

6 голосов , оценка 4.667 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы