Лабораторная работа № 4 Тема: Разработка программ циклической структуры в среде vba.
Цель работы:
Научиться составлять алгоритмы циклической структуры в виде блок-схемы.
Получить навыки составления программ циклической структуры.
Получение дальнейших навыков по отладке и тестированию программ.
Ход работы:
1) Понятие циклического вычислительного процесса.
Часто при решении задач приходится многократно вычислять значения по одним и тем же математическим зависимостям для различных значений входящих в них величин. Такие многократно повторяемые участки вычислительного процесса называются циклами.
Пример 4. Составить в виде блок-схемы и программы алгоритм накопления суммы. Сложить число «2» четыре раза.
Р
ешение:
При составлении алгоритма решения
данной задачи можно использовать
алгоритмическую структуру цикл
со счётчиком. В
качестве счетчика будет использоваться
переменная i.
Так как число «2» добавляется к сумме
4 раза, то за счётчик цикла можно принять
количество суммирований, и он будет
принимать значения от 1 до 4 с шагом 1.
Перед началом цикла необходимо присвоить сумме начальное значение:
Sum = 0.
После этого в цикле следует выполнять оператор:
Sum = Sum + 2
По окончании цикла результат работы программы будет находиться в переменной Sum. Блок-схема данного алгоритма имеет вид (рис.19):
Рис. 19 Блок-схема алгоритма Пример 4
2) Реализовать данную программу в среде vba Microsoft Excel:
Sub Пример4( )
Dim i, Sum As Integer
Sum = 0
For i = 1 To 4
Sum = Sum + 2
Next i
MsgBox "2+2+2+2=" & Sum
End Sub
Этот цикл эквивалентен четырём операторам Sum=Sum+2 в тексте программы.
3) Внести изменения в программу Пример4 так, чтобы было возможно вычисление суммы любого количества чисел «2».
Пример 5. Требуется вычислить произведение натуральных чисел от 1 до n (факториал числа n): Р= 1*2*...*n = n!
Решение. При составлении алгоритма для решения данной задачи так же можно использовать алгоритмическую структуру цикл со счётчиком. В качестве счетчика, как и в предыдущем примере, будет использоваться переменная i. В данном случае за счётчик можно принять сами числа, произведение которых вычисляется, так как числа изменяются от 1 до n с шагом 1.
Перед началом цикла необходимо присвоить произведению начальное значение: Р= 1
П
осле
этого в цикле следует выполнять оператор:
Р = P * i
По окончании цикла результат работы программы будет находиться в переменной Р.
Блок-схема данного алгоритма имеет вид (рис 20):
Рис. 20 Блок-схема алгоритма Пример 5
4) Реализовать данную программу в среде vba Microsoft Excel:
Sub Пример5()
Dim i, N As Integer
Dim p As Long
N = InputBox("Введите число для вычисления его факториала", "Окно ввода")
p = 1
For i = 1 To N
p = p * i
Next i
MsgBox "Факториал числа " & N & "=" & p
End Sub
Пример 6. Вычислить стоимость порции сыра весом 250, 300, 350, …, 1000гр. (цена 1кг – 128руб. 50коп.).
Решение. Используем для решения этой задачи алгоритмическую структуру цикл со счётчиком. За счётчик в данном случае можно принять Вес порции сыра, так как он изменяются от 250 до 1000 с шагом 50.
В цикле следует выполнять оператор:
Общая_Стоим = Стоим_кг * Вес / 1000
Результат работы программы будет находиться в переменной Общая_Стоим и выводиться при каждом повторе цикла.
Блок-схема данного алгоритма имеет вид (рис.21):
Рис. 21 Блок-схема алгоритма Пример 6