ЛР. Разработка функций для реализации простейших циклических алгоритмов

Для  реализации циклических алгоритмов в VBA используются 3 вида операторов цикла For, While, Do Loop

1.      Формат оператора For

For переменная = начальное_значение To конечное_значение [Step шаг]
[операторы]

[Exit For]
[операторы]

Next [перменная]

пример

For I = 1 To 10

    For J = 1 To 10

        For K = 1 To 10

            ...

        Next K

    Next J

Next I

2.      Формат оператора While

While условие
[операторы]

Wend

пример

While i <= 10
    s=s+i

      i=i+1

Wend

3.      Формат оператора Do ... Loop имеет две разновидности

Do [{While | Until} условие]
[операторы]
[Exit Do]
[операторы]

Loop

 или

Do
[операторы]
[Exit Do]
[операторы]

Loop [{While | Until} условие]

            Примеры функций циклических алгоритмов

• функция вычисления суммы S=1²+2²+…+n²;

Public Function FunS(n)

Dim s As Integer

Dim i As Integer

s = 0

For i = 1 To n

    s = s + i ^ 2

Next

FunS=s

End Function

• функция вычисления приближенного значения sin(x) по формуле  у=x/1!-x³/3!+x⁵/5!-….+x²ⁿ⁺¹/(2n+1)! с заданной погрешностью;

Public Function sinus(x, погрешность)

i = 2

p = x

s = x

While Abs(p) > погрешность

     p = -p * x ^ 2 / (i * (i + 1))

      i = i + 2

     s = s + p

Wend

sinus = s

End Function

Задание

На VBA составить функции для:

1.      найти, где n заданное число;

2.      найти

где m и n заданные числа;

3.      вычисления  суммы S=10³+11³+…+n³;

4.      найти

где m и n заданные числа;

5.      вычислить сумму кубов трехзначных четных чисел;

6.      вычислить сумму квадратов тех четырехзначных чисел, которые при делении на 5 дают в остатке 2;

7.      найти сумму всех несократимых дробей, со знаменателем к, содержащихся между целыми числами m и n, где к простое число;

8.      найти сумму S=1*100+2*99+3*98+…+ 50 *51

9.       найти 

где f(x) любая заданная функция;

10.  найти

где n заданное число и f(x) любая заданная

11.  вычисления произведения   P=n!=1*2*….*n;

12.  нахождения такой суммы S=1+2+3+…, для которой |S-M|  минимально. M –заданное число;

13.  вычисления  суммы S= 1!+2!+3!+……+ n!;

14.  вычисления приближенного значения cos(x) по формуле у=1-x²/2!+x⁴/4!-….+x²ⁿ/(2n)! для заданного числа n;

15.   вычисления приближенного значения  e^x по формуле

с заданной точностью E;