АП
Александр Перминов
помогите с vba, задание на зачет по массивам.
Задание на зачет. Рассчитать на vba (sinx+sin^2 x+...+sin^n x)/(cosx*cos(x+1)*...*cos(x+n)). n и x задаются с клавы
Очень нужно, плз
Задание на зачет. Рассчитать на vba (sinx+sin^2 x+...+sin^n x)/(cosx*cos(x+1)*...*cos(x+n)). n и x задаются с клавы
Очень нужно, плз
sub ppp()
dim mas(20)
xx = val(inputbox("введите Х"))
nn = val(inputbox("введите N <=20"))
yy = 1
zz = 0
rr = 1
for ii = 1 to 20
yy = yy*sin(xx)
zz = zz+yy
rr = rr*cos(xx+ii-1)
mas(ii)=zz/rr
cells(ii,1) = mas(ii) ' выведем на лист excel
next ii
end sub