Вычислить значение выражения - VB (59555)
Формулировка задачи:
Вычислить двумя способами: используя стандартную функцию и формулу разложения в ряд
Написать нужно на VB6
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
- Private Function tSin(ByVal X As Single, Optional ByVal Iter As Long = 5) As Single
- Static f As Single, sx As Single
- If Iter Then
- tSin = tSin + tSin(X, Iter - 1)
- f = f * (Iter * 2) * (Iter * 2 + 1): sx = sx * X * X
- tSin = tSin + IIf(Iter And 1, -1, 1) / f * sx
- Else: f = 1: tSin = X: sx = X
- End If
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
