Как рационально с точки зрения построения алгоритмв подойти в Бейсике к следующей задаче?
Пишется функция следующего вида.
- Код: Выделить всё
Function xxx(x1 As Double, x2 As Double, x3 As Double ...xn) As String
Dim xxx1 As Double
xxx1=...
'xxx1=выражение произвольного вида, производящее
'арифметические действия над переменными х1, х2, x3...xn’
xxx = ”xxx =” & Искомая функция(символьное выражение для xxx1) & “=” & Str(xxx1)
End Function
где «Искомая функция» - возвращает строковое выражение, представляющее развернутую формулу для xxx1 с подставленными числовыми значениями для переменных х1, х2, x3...xn.
Например xxx1 = (x1+x2)/(x3^3-2*x4)
x1 = 5, x2 = 6, x3= -4, x4 = 1.25
Искомая функция(“(x1+x2)/(x3^3-2*x4)”)= “(5+6)/((-4)^3-2*1.25)”
Возможно данная задача уже кем то из легиона профессионалов basic была решена?
Моего опыта хватает только на нагромождение конструкций типа If ... Then, но как мне кажется это нерациональный путь и я к пенсии таким образом свою задачу не решу.
