Private Sub Command1_Click()

Текст программы

Form1

Private Sub Command1_Click()

1: n = Val(InputBox("Введите значение N", "Ввод переменных", "1.5"))

If n <= - 1 Then MsgBox ("Ошибка логарифмирования!"): GoTo 1

If Cos(n) = 0 Then MsgBox ("Деление на ноль!"): GoTo 1

x = 1.8 - Log(n + 1)

c = 0.24 / Cos(n)

If Tan(c) = 0 Then MsgBox ("Деление на ноль!"): GoTo 1

If x < 0 Then MsgBox ("Подлогарифмическое выражение меньше нуля!"): GoTo 1

If Sin(c - 3 * x) = 0 Then MsgBox ("Деление на ноль!"): GoTo 1

If Cos(x) = 0 Then MsgBox ("Деление на ноль!"): GoTo 1

If Tan(x) - Log(x) / Log(10) > 1 / Tan(c) Then

z = 2.44 / Cos(x) + Tan(Tan(x)) / Sin(c - 3 * x): MsgBox (“ Условие z=2.44/Cos(x) + Tan(Tan(x)) / Sin(c - 3 * x) выполняется“)

Else

If Sin(c) = 0 Then MsgBox ("Ошибка вычисления косеканса: деление на ноль!"): GoTo 1

If Abs(Cos(x) ^ 2) <= 1 / Sin(c) Then MsgBox ("Ошибка вычисления корня!"): GoTo 1

z = Sqr(Abs(Cos(x) ^ 2 - 1 / Sin(c))): MsgBox (" Условие z = Sqr(Abs(Cos(x) ^ 2 - 1 / Sin(c))) выполняется")

End If

z = MsgBox("Z=" + Str(z), vbYes, "Результат расчета")

End Sub

Private Sub Command2_Click()

End

End Sub

Задание

Дата добавления: 2015-11-04