Решение линейных уравнений - VB
Формулировка задачи:
Нужно сделать лабораторную а знаний не хватает,помогите правильно записать в программе уравнение я его записываю так,но мне программа выдаёт ошибку a = (Log(b + x ^ 2) + (Tan ^ 2(x)) / (x - b) ^ (1 / 2)).
Ошибка там где я рассписываю tg^2x
Помогите пожалуйста!
Решение задачи: «Решение линейных уравнений»
textual
Листинг программы
Dim x As Single, y As Single, nv As Byte
Const a = 2
x = Val(InputBox("Введите x"))
If x < a Then
nv = 1: y = 1 + a * x ^ (1 / 2)
ElseIf x = a Then
nv = 2: y = Sqr(a) + Log(x) ^ 2
ElseIf x > a Then
nv = 3: y = Sin(a * x)
End If
MsgBox "При x= " & x & " ветвь " & nv & " y= " & y
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д