АААААААААААААААЙЙ!!!!!!!!! хелп-хелп ми!!!
кто знает Visual Basic??????????????
помогите мне формулу написаааать..............
Y = 1 - x/2 + x^2/4 - x^3/8 + ... вот пример кода для Y = 1 + 2/x + (2*3)/x^2 + (2*3*2)/x^3 + (2*3*2*3)/x^4 + ...
Option Explicit
Public tv As Single
Function Y(ByVal x As Single, ByRef t As Single) As Single
Dim pr!, sl!, s!
Dim m As Byte, zn%
s = 0: pr = 0: sl = 1: m = 2: zn = 1
Do While Abs(pr - sl) > t
s = s + sl
pr = sl: sl = sl * m / x
m = m + zn: zn = -zn
Loop
Y = s
End Function
не понимааааю...(((((((((( а курсовую в пн сдаваааать...(((