VB6 расчет по формуле
Формулировка задачи:
Помогите пожалуйста с решением данного задания на Visual Basic 6, я не совсем понимаю откуда брать значение k :c
Организовать вычисления результата по формуле, при x = 0.5, n = 20:
Решение задачи: «VB6 расчет по формуле»
textual
Листинг программы
Function F(x As Double, Optional n As Long = 20) As Double Dim k As Long, t1 As Double, t2 As Double F = 1 t1 = Sqr(x) t2 = Log(x) For k = 1 To n F = F * (t1 / k + Cos(t2 / k)) Next t1 = Exp(x) F = (t1 + 1 / t1) ^ (1 / 3) - F End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д