visual basic

бэйсик нашел, терь банально не ставиться.... изза первого SP...
люди, кому не в лом, сделайте плз програмку!
вычислить S=1+(cos(pi/4))*(x/1!)+...+(cos(n*pi/4))*(x^n/n!)+... при х=0,12 с точностью до 4го знака после запятой.... где "^" - степень, а "!" - факториал. заранее благодарен)

Интерпретатор VBA есть в MS Office =))

Факториал n! вычисляется так:
k=1
for i=2 to n
  k=k * i
next

Если не нравится такой способ, можно написать рекурсивный метод вычисления, впрочем это в данном случае неважно.

создаём ф-ю:
private sub faktor(n as integer)
dim i as integer, k as integer
k = 1
for i = 2 To n
  k = k * i
next
faktor = k
end sub

а вся твоя ботва описывается таким образом:
dim i ds Integer
dim s as double, x as double, pi as double
x = 0.12
s = 1
n = 4
pi = 3.1416
for i = 1 To n
   s = s + (i * cos(i * pi / 4)) * (x ^ (i / faktor(i)))
next

где, faktor(n as integer) - имя функции, вычисляющей факториал значения, переданного ей в качестве параметра.
Вроде всё. Мне даж проверять лень, если честно. Если где-то будет ошибка, то думаю, разберёшься сам.

З.Ы. Модерам и админам: включите наконец возможность вставки тега <PRE>, а то задалбывает для каждого отступа вставлять по несколько символов &nbsp;

пасиб! век благодарен буду!

Люди, помогите, пожалуйста, в бейсике нарисовать движущийся по экрану шарик. Я пропустила много, и нихрена не понимаю, как это делается(((