Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
П р и м е р 1. Составить алгоритм и программу табулирования функции при b =1,5:
Аргумент x изменяется от 0,1 до 1 (0,1 ≤ x ≤1) с шагом ∆x = 0,1. Схема алгоритма приведена на рис. 6.1. Для организации цикла по переменной x служит блок 3. Телом цикла является разветвляющийся алгоритм по условию bx < 1 (блоки 4 – 7).
Программа на языке VBA имеет вид:
Option Explicit
Sub PR1()
|
Dim i As Integer, j As Integer
i = 2: j = 2: b=1.5
For x = 0.1 To 1 Step 0.1
If b * x < 1 Then
y = b * x + Log(x)
Cells(i, 1) = x: Cells(i, 2) = y: i=i+1
Else
y = b * x - Log(x)
Cells(j, 3) = x: Cells(j, 4) = y: j=j+1
End If
Next x
Дата публикования: 2015-04-06; Прочитано: 226 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!