Постановка задачи:
Вычислить значение функции y = sinx, если известно, что –π ≤ x < π и величина шага ∆x = π/4.
Входные данные: ∆x, π.
Выходные данные: y.
Схема алгоритма:
В циклах для вывода данных на форму используется метод print. Печать осуществляется, на текущей форме, начиная с верхнего левого угла. Поэтому левая часть формы должна быть свободной.
Поэтому кнопку запуска программы располагать в правом нижнем углу.
Программа:
Private Sub Command1_Click()
Const pi As Single = 3.1415
Dim x As Single, y As Single
For x = -pi To pi + pi / 8 Step pi / 4
y = Sin(x)
Print "x=" & x & "y=" & y
Next
End Sub
Если предполагается запустить программу несколько раз, то лучше включить метод Cls*, который очищает форму, т.е. удаляет текст, созданный методом Print (кнопка остается).
Этот же алгоритм может, реализован с помощью Do…Loop:
Private Sub Command1_Click()
Const pi As Single = 3.1415
Dim x As Single, y As Single
Cls
x = -pi
Do While x <= pi + pi / 8
y = Sin(x)
Print "x=" & x & "y=" & y
x = x + pi / 4
Loop
End Sub
С помощью Do…UNTIL:
Private Sub Command1_Click()
Const pi As Single = 3.1415
Dim x As Single, y As Single
Cls
x = -pi
Do Until x > pi + pi / 8
y = Sin(x)
Print "x=" & x & "y=" & y
x = x + pi / 4
Loop
End Sub
Структура «цикл в цикле» с предусловием
Если функция зависит более чем от одного параметра, то структура называется вложенным циклом и алгоритм выглядит следующим образом:
Пример: z = ƒ(x, y)
Телом внутреннего Цикла является тело Цикла.
Телом внешнего Цикла является весь внутренний Цикл.
Пример:
Вычислить функцию y = sinx + z, где x меняется в диапазоне –π ≤ x ≤ π с шагом ∆x = π/2, а z меняется 1 ≤ z ≤ 3 с шагом ∆x = 0,5.
Формула расчета количества значений внешнего Цикла:
, где
K – конечное значение цикла;
N – начальное значение цикла;
∆ - шаг.
Формула расчета количества значений внутреннего Цикла:
Всего 25 значений для вложенного Цикла.
Схема алгоритма вложенной структуры с предусловием:
тело внешнего Цикла;