Приднестровский государственный университет им. Т.Г. Шевченко
Л А Б О Р А Т О Р Н А Я Р А Б О Т А № 6
Тема: «Разработка приложений с циклическими алгоритмами»
Цель работы:
изучение возможностей разработки приложений с циклическими алгоритмическими структурами;
закрепление темы при создании приложений.
1. Циклические алгоритмические структуры
В алгоритмах обработки информации и реализующих их программах широко используются циклы – повторяющиеся одинаковые вычисления. В программах на Visual Basic для выполнения повторяющихся действий используются циклы. Они бывают следующих типов:
For...Next
While...Wend
Do...Loop
Рассмотрим перечисленные конструкции.
1.1. Оператор цикла For...Next
Оператор цикла For...Next повторяет выполнение группы инструкций указанное число раз.
Синтаксис:
For Параметр = Начало To Конец [Step Шаг]
[Инструкции]
Next [Параметр]
Параметр – числовая переменная-счетчик, используемая для выполнения итераций (последовательного принятия значений от Начало до Конец с шагом Шаг). Не может принадлежать к типу Boolean или быть элементом массива.
Начало – выражение, значение которого представляет начальное значение параметра.
Конец – выражение, значение которого представляет конечное значение параметра.
Шаг – выражение, значение которого добавляется к параметру при каждом достижении предложения Next после очередного выполнения тела цикла (по умолчанию шаг равен единице).
После слова Next параметр можно опустить.
Замечание. Изменять значение переменной Параметр внутри цикла возможно, но крайне нежелательно, т.к. такой цикл уже не будет пошаговым.
Пример. Вычислить факториал натурального числа n.
Dim n As Byte, i As Byte, fact As Double
n = InputBox ("Введите натуральное число","Ввод данных")
fact = 1
For i = 2 To n
fact = fact * i Next
MsgBox "Факториал числа" & Str(n) & " равен" & Str(fact)
Пример. Вычислить сумму конечного
ряда
,
т.е. сумму первых n членов
последовательности
(k = 1, 2, 3.., n).
Dim n As Integer, k As Integer, y As Single, S As Single
n = InputBox ("Введите число членов последовательности")
S = 0
' организация цикла по числу членов последовательности
For k = 1 To n
y = k / (3 * k ^ 2 + 5) 'Вычисление очередного члена последовательности
S = S + y 'Вычисление суммы последовательности
Next
MsgBox "Сумма ряда равна " & CStr(S) 'Вывод результирующей суммы
1.2. Оператор цикла While...Wend
Оператор While...Wend выполняет последовательность инструкций, пока заданное Условие имеет значение True.
Синтаксис:
While Условие
[Инструкции]
Wend
Если Условие имеет значение True, выполняются все Инструкции до предложения Wend. Затем управление возвращается предложению While и вновь проверяется Условие.
Если Условие по-прежнему имеет значение True, процесс повторяется. Если оно не имеет значение True, выполнение возобновляется с инструкции, следующей за предложением Wend.
Пример. Цикл будет продолжаться до тех пор, пока не будет что-то введено в качестве имени.
Dim name As String
name = ""
While name = ""
name = InputBox("Введите имя")
Wend