1. Разработать алгоритмы и программы на основе базовых алгоритмических структур: следование, разветвление, цикл.
2. Составить схему алгоритма с обязательным соблюдением всех его свойств и ГОСТ 19.701-90 (см. приложение 3). Выполнить построение схемы алгоритма в текстовом процессоре WORD.
3. Распечатать программу и результаты в заданном языке программирования.
Методические указания по выполнению решения задач в среде программирования VBA
Задача 1
При разработке алгоритма, его нужно представить в виде блок-схемы и создать процедуру-функцию для вычисления функции
при х = 0,2.
Блок-схема
 |
Ход выполнения задания:
1. Запустить программу MS Excel.
2. Загрузить редактор VB (Сервис – Макрос – Редактор Visual Basic).
3. Создать модуль командой Insert – Module.
4. Создать процедуру командой Insert – Procudure, имеющую тип Function, область видимости Public.
Программа
Public Function y(x)
y = 9.2 * Cos(x ^ 2) - Abs(Sin(x / 1.1))
End Function
5. Перейти на рабочий лист MS Excel.
6. Ввести на рабочий лист исходные данные.
7. Вызвать созданную функцию командой Вставка – Функция – категория Определенные пользователем.
Результат расчета
Задача 2
При разработке алгоритма, его нужно представить в виде блок-схемы и написать программу для табулирования функции
на участке xÎ[0;10] с шагом Dx=1 при а=1; b=2.
Ввод и вывод данных предусмотреть с рабочего листа MS Excel.
Блок – схема
Ход выполнения задания:
1. Запустить программу MS Excel.
2. Ввести на рабочий лист исходные данные.
3. Загрузить редактор VB.
4. Вставить модуль командой Insert – Module.
5. Создать процедуру с программным кодом командой Insert – Procedure, имеющую тип Sub, область видимости Public.
Программа
Public Sub задача2()
Dim a As Single, b As Single, x0 As Single, xk As Single, dx As Single
Dim x As Single, y As Single
a = Cells(3, 1).Value
b = Cells(3, 2).Value
x0 = Cells(3, 3).Value
xk = Cells(3, 4).Value
dx = Cells(3, 5).Value
x = x0
i = 5
2 If x >= 6 Then y = a * b Else y = b - a * x ^ 2
Cells(i + 1, 1).Value = x
Cells(i + 1, 2).Value = y
i = i + 1
x = x + dx
If x <= xk Then GoTo 2
End Sub
Результат расчета
Задача 3
При вычислении суммы всех тех членов ряда 
, которые по величине меньше заданного числа e=10. Определить число членов ряда, соответствующих этому условию. Предусмотреть ввод данных через диалоговое окно, вывод результатов на рабочий лист MS Excel.
Блок – схема
Ход выполнения задания:
1. Запустить программу MS Excel.
2. Загрузить редактор VB.
3. Вставить Модуль и Процедуру типа Sub.
4. Записать код программы.
Программа
Public Sub задача3()
Dim ds As Single, s As Single
Dim i As Integer
e = Val(InputBox("Введите значение e"))
s = 0
i=1
ds = i ^ 2
do while ds < e
s = s + ds
Cells(2, 2) = s
Cells(2, 1) = i
i=i+1
ds = i ^ 2
loop
End Sub
Результат расчета:
Сумма ряда S = 14 при i = 3
Задача 4
При разработке алгоритма его нужно представить в виде блок – схемы и написать программу для вычисления значения функции 
X = (-2.3, 4.5, 5.1, -1.2 4.9)
Y=(1.3,12.5,2.5,-14.2, -3.5)
Предусмотреть вывод промежуточных результатов на рабочий лист MS Excel.
Блок – схема
Ход выполнения задания:
1. Запустить программу MS Excel.
2. Ввести на рабочий лист исходные данные
3. Загрузить редактор VB.
4. Вставить модуль командой Insert – Module.
5. Создать процедуру с программным кодом командой Insert – Procedure, имеющую тип Sub, область видимости Public.
Программа
Public Sub задача4()
Dim x(1 To 5) As Single
Dim y(1 To 5) As Single
s1 = 0
s2 = 0
n = 2
For i = 1 To 5
x(i) = Cells(n, 1).Value
y(i) = Cells(n, 2).Value
n = n + 1
s1 = s1 + x(i) ^ 2 + y(i)
If x(i) > 0 And y(i) > 0 Then s2 = s2 + x(i) + y(i)
Next i
z = s1 / s2
Cells(2, 3).Value = z
End Sub
Результат расчета
