Введение 8 Этапы создания Windowsприложения 8
Скачать 6.98 Mb.
|
Приложение 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 Приложение 24Дан целочисленный массив. Количество элементов и их значения вводятся с клавиатуры. Вычислить среднее арифметическое четных элементов и среднее геометрическое нечетных элементов массива. Исходный массив и полученные результаты вывести в окно списка. Dim a() As Integer Dim n, i As Integer Dim summa, proiz As Integer Dim kol1, kol2 As Integer Dim arifm, geom As Single 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 kol1 = 0 kol2 = 0 For i = 0 To n If a(i) Mod 2 = 0 Then kol1 += 1 summa += a(i) Else kol2 += 1 proiz *= a(i) End If Next lstA.Items.Add("-------------------------------") If kol1 = 0 Then lstA.Items.Add("Нет четных") Else arifm = summa / kol1 lstA.Items.Add("Сред. арифм. четных = " + _ Str(arifm)) End If If kol2 = 0 Then lstA.Items.Add("Нет нечетных") Else If proiz > 0 Then geom = proiz ^ (1 / kol2) lstA.Items.Add("Сред. геом. нечетных = " + _ Str(geom)) Else If kol2 Mod 2 = 0 Then lstA.Items.Add("Невозможно " + _ " вычислить сред. геом.") Else geom = -Math.Abs(proiz) ^ (1 / kol2) lstA.Items.Add("Сред. геом. нечетных = " + _ Str(geom)) End If End If End If |