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

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

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

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

,

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

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

.

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

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

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

Sub Demo_Summa()

DimiAs 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, , "Решение задачи"