Лабораторная работа №5_1. Разработка функций для реализации линейных и разветвляющихся алгоритмов

В VBA для записи линейных и разветвляющихся алгоритмов используются оператор присваивания и условный оператор If (если). Оператор присваивания имеет следующий вид: переменная=выражение Выражение может быть арифметическим, текстовым или логическим. Для записи выражений в VBA используются операции (операторы) арифметические, текстовые и логические.

Арифметические операции (операторы). Служат для выполнения арифметических операций, таких как сложение, вычитание, умножение. Операции выполняются над числами. Используются следующие арифметические операторы.

Текстовый оператор конкатенации. Амперсанд (&) используется для объединения нескольких текстовых строк в одну строку.

Для записи разветвляющихся алгоритмов используется оператор If.

Он имеет две формы записи.

1. Однострочная запись If условие Then [оператор1] [ Else оператор2]

2. Многострочная запись

If условие-1 Then
[ оператор1 ]

[ ElseIf условие-2 Then
[ оператор2 ]...

[ Else
[оператор3]]

End If

В условии записывается логическое выражение, которое использует операции сравнения, приведенные ниже. Для создания сложных условий используются логические операции and (и) и or (или)

Операции сравнения. Используются для сравнения двух значений. Результатом сравнения является логическое значение: либо ИСТИНА, либо ЛОЖЬ.

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

• функция вычисления выражения 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. вычислить размер стипендии, если известен средний балл студента

Не нашли, что искали? Воспользуйтесь поиском: