Примеры функций

• функция вычисления выражения y=

Public Function fun1(x)

fun1=(x*x-5*2^0.5)/(2*x^3+1)

End Function

• функция вычисления полупериметра треугольника по трем сторонам a, b, c

Public Function Полупериметр(a, b, c)

Полупериметр=(a+b+c)/2

End Function

• функция вычисления длины окружности и площади круга заданного радиуса R

Public Function Окружность(R)

Pi=3.14

a=2*Pi*R

b=Pi*R^2

Окружность="С="+str(a)+" S="+str(b)

End Function

• функция нахождения максимального элемента из трех чисел a, b, c.

Public Function Max(a, b, c)

If a > b Then

m = a

Else

m = b

End If

If c > m Then

Max = c

Else

Max = m

End If

End Function

• функция нахождения корней квадратного уравнения

Public Function Корни(a, b, c)

d = b ^ 2 - 4 * a * c

If d >= 0 Then

x1 = (-b + d ^ (1 / 2)) / (2 * a)

x2 = (-b + d ^ (1 / 2)) / (2 * a)

Корни = "x1=" + str(x1) + "; x2=" + str(x2)

Else

Корни = "корней нет"

End If

End Function

Задания

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

1. вычисления значение функции:

2. вычислить значение функции

3. нахождения минимального числа из трех (четырех) заданных чисел A, B, C, D;

4. решения линейного уравнения вида аx=c, где a и c - заданные коэффициенты, в том числе и нулевые;

5. определения вида треугольника (равносторонний, равнобедренный, прямоугольный), если три заданных числа a, b, c задают длины его сторон;

6. нахождения площади треугольника, если три заданных числа a, b, c задают длины его сторон.

7. найти площадь трапеции, если четыре заданных числа задают длины ее сторон;

8. вывести текстовое представление числа.

9. вычислить подоходный налог, если известен совокупный годовой доход;

10. вычислить размер стипендии, если известен средний балл студента

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

Для реализации циклических алгоритмов в 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;