Вычислить значение выражения - VB (59130)

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

                    Листинг программы
                
 
                        
                          
                    
Dim a, x, y
        a = 2.8
        x = Val(TextBox1.Text)
        If (x < 3.1) Then
            y = a * lg * abs(x ^ 2 - 3)
        Else : y = acos(x)
        End If
        MsgBox(y)
    End Sub
End Class

Решение задачи: «Вычислить значение выражения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
        Dim a, x, y
        a = 2.8
        x = Val(TextBox1.Text)
        If (x < 3.1) Then
            y = a * lg * Math.Abs(x ^ 2 - 3)
        Else : y = Math.Acos(x)
        End If
        MsgBox(y)

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

10 голосов , оценка 4.2 из 5

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

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

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