Пример реализации программы
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. Функция округления.
Лабораторная работа 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.
.
Пример выполнения задания