Листинг 5. Табулирование функции с постусловием

Sub Пример5()

Dim a, b As Single

Dim h As Single

Dim x, y As Single

a=InputBox(" Введите начальное значение аргумента", " Окно ввода")

b=InputBox(" Введите конечное значение аргумента", " Окно ввода")

h = InputBox(" Введите шаг изменения аргумента", " Окно ввода")

Debug.Print " Аргументы", " Значения"

x = a

Do

y = x * Sin(x) 'здесь f(x)=x*sin(x)

Debug.Print x, y

x = x + h

Loop While x < = b

End Sub

Примечание. В данной программе для того, чтобы заголовки таблицы не выводились при каждом повторе цикла (рис. 24), оператор вывода заголовков Debug.Print " Аргументы", " Значения" записан перед началом работы цикла.

Рис. 24 Результаты работы цикла при а=-5, b=5, h=2

Листинг 6. Табулирование функции с циклом For

Фрагментпрограммыпримера 5 по алгоритму с блоком модификации без описания переменных и оператора ввода исходных данных:

…………………………

Debug.Print " Аргументы", " Значения"

For x = a To b Step h

y = x * Sin(x)

Debug.Print x, y

Next x

………………………………

Листинг 7. Табулирование функции при помощи цикла со счетчиком

Фрагментпрограммыпримера 5 без описания переменных и оператора ввода исходных данных:

…………………………

Debug.Print " Аргументы", " Значения"

x = a

n = Abs((b - a) / h) + 1

For i = 1 To n

y = x * Sin(x)

Debug.Print x, y

x = x + h

Next i

…………………………

Листинг 8. Ежегодное начисление амортизации

Фрагментпрограммыпримера 6 без описания переменных и оператора ввода исходных данных:

…………………………

Debug.Print " Год", " Стоимость оборудования"

For N = 1 To 10

R0 = Round(R0 * (1 - P / 100) + D, 2)

Debug.Print N, R0

Next N

…………………………