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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.5 из 5