Приложение 20
Решить уравнение
методом простой итерации с заданной точностью. Начальное значение x0= 0,5. В качестве результатов вывести значение корня уравнения, значение правой части уравнения и количество потребовавшихся шагов цикла. На каждой итерации выводить номер шага и текущее значение корня уравнения.
Dim xTek, xPred, eps As Double
Dim n As Integer
lstA.Items.Clear()
eps = Val(InputBox("Введите точность"))
xTek = 0.5
n = 0
Do
lstA.Items.Add(Str(n) + vbTab + Str(xTek))
xPred = xTek
n += 1
xTek = Math.Cos(xPred)
Loop Until Math.Abs(xTek - xPred) < eps
lstA.Items.Add("------------------------------------")
lstA.Items.Add("x =" + Str(xTek))
lstA.Items.Add("cos(x) =" + Str(Math.Cos(xTek)))
lstA.Items.Add("Количество шагов =" + Str(n))
Приложение 21
Дан целочисленный массив. Заполнить его случайными числами из некоторого диапазона. Начало и конец диапазона значений задается с клавиатуры. Полученный массив вывести в окно списка и в текстовое поле.
Dim a() As Integer
Dim n, i As Integer
Dim start, fin As Integer
Dim s As String
lstA.Items.Clear()
Do
n = Val(InputBox("Введите количество элементов"))
Loop Until n > 0
n -= 1
ReDim a(n)
start = Val(InputBox("Введите начало отрезка"))
fin = Val(InputBox("Введите конец отрезка")) Randomize()
For i = 0 To n
a(i) = Math.Round(start + (fin - start) * Rnd()) Next
lstA.Items.Add("Исходный массив")
lstA.Items.Add("Номер" + vbTab + "Значение")
For i = 0 To n
lstA.Items.Add(Str(i) + vbTab + Str(a(i)))
Next
s = ""
For i = 0 To n
s += Str(a(i)) + " "
Next
txtA.Text = s
Приложение 22
Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Найти сумму и произведение всех элементов массива. Исходный массив и полученные результаты вывести в окно списка.
Dim a() As Integer
Dim n, i As Integer
Dim summa, proiz As Integer
lstA.Items.Clear()
Do
n = Val(InputBox("Введите количество элементов"))
Loop Until n > 0
n -= 1
ReDim a(n)
For i = 0 To n
a(i) = Val(InputBox("Введите " + Str(i) + _
"-й элемент массива"))
Next
lstA.Items.Add("Исходный массив")
lstA.Items.Add("Номер" + vbTab + "Значение")
For i = 0 To n
lstA.Items.Add(Str(i) + vbTab + Str(a(i)))
Next
summa = 0
proiz = 1
For i = 0 To n
summa += a(i)
proiz *= a(i)
Next
lstA.Items.Add("-------------------------------")
lstA.Items.Add("Сумма = " + Str(summa))
lstA.Items.Add("Произведение = " + Str(proiz))
Приложение 23
Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Определить количество положительных элементов в массиве. Исходный массив и полученные результаты вывести в окно списка.
Dim a() As Integer
Dim n, i As Integer
Dim kol As Integer
lstA.Items.Clear()
Do
n = Val(InputBox("Введите количество элементов"))
Loop Until n > 0
n -= 1
ReDim a(n)
For i = 0 To n
a(i) = Val(InputBox("Введите " + Str(i) + _
"-й элемент массива"))
Next
lstA.Items.Add("Исходный массив")
lstA.Items.Add("Номер" + vbTab + "Значение")
For i = 0 To n
lstA.Items.Add(Str(i) + vbTab + Str(a(i)))
Next
kol = 0
For i = 0 To n
If a(i) > 0 Then
kol += 1
End If
Next
lstA.Items.Add("-------------------------------")
If kol = 0 Then
lstA.Items.Add("Нет положительных элементов")
Else
lstA.Items.Add("Количество положительных =" + _
Str(kol))
End If