Решение линейных уравнений - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
