"Вычисление суммы с неопределённым числом слагаемых с заданной точностью".

[Андрей)]

Здравствуй дорогой друг.
мне нужна помощь в создании программы.
дана формула:
http://clip2net.com/s/WhEo
где, ! - факториал.
прошу помочь буду очень благодарен...если есть вопросы обращайтесь в скайп fallmons.
Заранее спасибо
мне надо сделать лабу и получить зачёт

[Mandrivnyk]

С утра в понедельник не работает модуль чтения мыслей...
Язык какой?

[Андрей)]

Visual basic 6
очень очень спасибо что отозвался с помощью)

[Mandrivnyk]

На С++...

#include <iostream>
#include <cmath>

using namespace std;

unsigned long long Factor(int k);

double funct(double x, int k);

int main()
{
    double summa = 0.0;
    double x;
    double eps;
    int k = 1;
    cout << "Введите x: " << endl;
    cin >> x;
    cout << "Введите погрешность: " << endl;
    cin >> eps;
    if (abs(funct(x, k)) > abs(funct(x, k + 1)))
    {
        while (abs(funct(x, k)) >= eps)
        {
            summa += funct(x, k);
            k++;
        }
        cout << funct(x, k) << "\t" << k << "\t" << summa << endl;
    }
    else
        cout << "Ряд расходится." << endl;
    return 0;
}

double funct(double x, int k)
{
    return static_cast<double>((pow(-1, k) * pow(x, 2 * k - 1) / Factor(k + 2)));
}

unsigned long long Factor(int n)
{
  if (n == 0)
    return 1;
  else
    return n * Factor(n - 1);
}

Добавил проверку на сходимость ряда.
Вроде бы, нигде не накосячил...

[Андрей)]

Теперь нужно чтобы кто - нибудь изменил код с С++ на ВБ 6 !!!!