Типовые задачи с использованием циклов

End Sub

Loop

MsgBox "Наибольшее целое " & n - 1,, "Ответ задачи"

Табулирование функции. Задача табулирования некоторой функции y = f (x) сводится к вычислению значений этой функции при параметре цикла х, изменяющемся в заданных пределах с постоянным шагом. На печать при этом выводится множество пар значений аргумента х и функции у с помощью оператора печати, расположенного внутри тела цикла.

В рассмотренных выше примерах тело цикла реализовывалось одним или несколькими простыми операторами. Однако в общем случае внутри цикла могут использоваться любые операторы, в том числе и другие операторы цикла, условные операторы, операторы безусловного перехода.

Вычисление суммы. Вычисление конечной суммы сводится к нахождению суммы заданного количества слагаемых:

,

где i – номер слагаемого; f (i) – слагаемое с номером i.

Вычисление организуется в виде циклического алгоритма, когда при каждом прохождении цикла номер слагаемого i увеличивается на 1, а сумма изменяется на величину i -го слагаемого:

.

Цикл повторяется до тех пор, пока не будут просуммированы все n слагаемых. Для того чтобы начальное содержимое ячейки суммы не исказило результат, сумма предварительно должна быть обнулена (). Вывод результата осуществляется после окончания работы цикла.

Алгоритм нахождения суммы представлен на рис. 9.6.

Пример 17. Вычислить сумму ряда N натуральных чисел.

Sub Demo_Summa()

Dim i As Integer

Dim sStart, sEnd As Integer

Dim Sum As Long

sStart = 1

sEnd = InputBox ("Введите длину ряда:", "Запрос программы")

Sum = 0

For i = sStart To sEnd

Sum = Sum + i

Next i

MsgBox "Сумма чисел от " & sStart & " до " & sEnd & " равна " & Sum,, "Решение задачи"

Дата добавления: 2014-01-04