Пример реализации программы
Private Sub Command1_Click()
Dim x As Double ' для хранения исходных данных
x = 0.01
Dim i As Byte ' счетчик цикла
Dim y As Double ' результат вычислений
y = 0
For i = 1 To 99
y = Sqr(Abs(Sin(i * x) + y))
Next i
Print y
End Sub
Пример выполнения задания 2
Вычисление значения функции, заданной графически, целесообразно оформить в виде функции f, аргументом которой является значение оси абсцисс.
Пример реализации программы
Function f(x As Double) As Double
Const R = 2
Select Case x
Case Is < – R
f = x + R
Case -R To R
f = Sqr(R ^ 2 – x ^ 2)
Case Is > R
f = 2
End Select
End Function
Private Sub Command1_Click()
Dim x As Double ‘ значение аргумента функции
Dim y As Double ‘ результат
Dim found As Boolean ‘ признак нахождения отрицат. значения функции
For x = –3 To 3 Step 0.2
y = f(x)
Print Round(x, 2), Round(y, 5) ‘вывод значения x, округленного до двух
‘знаков после десятичной точки и y — округленного до пяти знаков
Next x
found = False
For x = –2 To 2 Step 0.1
y=f(x)
If y < 0 Then
found = True
Print "Самая левая точка с отриц. значением функции ", Round(x, 1), y
Exit For
End If
Next x
If Not found Then Print "Нет точки с отрицательным значением функции"
End Sub
Контрольные вопросы
1. Оператор цикла For и его разновидности.
2. Понятие рекуррентной формулы.
3. Логический тип. Операции над величинами логического типа.
4. Функция округления.
Контрольная работа. Задание
ОПЕРАТОРЫ ЦИКЛА С ПРЕД- И ПОСТУСЛОВИЕМ
Цель работы: Изучить операторы цикла c пред- и постусловием.
Краткие теоретические сведения
Цикл с условием Do … Loop в отличие от цикла с параметром For используется в тех случаях, когда число выполнения тела цикла заранее не известно, но определено условие выхода из цикла.
В зависимости от местоположения условия относительно тела цикла различают два варианта конструкции Do… Loop:
- цикл с предусловием:
Do While|Until <условие>
<операторы>
[Exit Do]
[<операторы>]
Loop
- цикл с постусловием:
Do
<операторы>
[Exit Do]
[<операторы>]
Loop While | Until <условие>
Графические способы изображения циклов с ключевым словом While приведены на рис.5.
Аргумент условие конструкции является логическим выражением. Если оно равно True, то тело цикла Do …Loop While выполнится, если равно False, то происходит выход из цикла и управление передается конструкции следующей за Loop.
Тело цикла Do … Loop Until наоборот выполняется в случае ложности условия. Выход из цикла происходит, если результат проверки условия равен True.
а) цикл с предусловием б) цикл с постусловием
Рис. 5. Способы изображения циклов на схемах алгоритмов
Если условие проверяется в начале цикла (используется цикл с предусловием), то тело цикла может ни разу не выполниться. Если же проверка проводится в конце, то тело цикла выполняется как минимум один раз, независимо от того, выполнено условие или нет.
Если необходимо прервать выполнение цикла Do… Loop до его завершения, используется команда безусловного перехода Exit Do.
Задание. С использованием оператора цикла c пред- или постусловием найти сумму элементов бесконечного заданного ряда с заранее определенной точностью e > 0; x — произвольное число, определенное в программе.
1.
, 2.
, 3.
,
4.
, 5.
, 6.
,
7.
, 8.
, 9.
,
10.
, 11.
, 12.
,
13.
, 14.
, 15.
,
16.
, 17.
, 18.
,
19.
, 20.
, 21.
,
22.
, 23.
, 24.
,
25.
.
Пример выполнения задания