Введение 8 Этапы создания Windowsприложения 8
Скачать 6.98 Mb.
|
Приложение 15Найти произведение всех элементов совокупности. Ввод чисел прекращается при появлении элемента, равного нулю. Dim a, proiz, kol As Integer lstA.Items.Clear() proiz = 1 kol = 0 a = Val(InputBox("Введите элемент совокупности")) Do Until a = 0 lstA.Items.Add(Str(a)) kol += 1 proiz *= a a = Val(InputBox("Введите элемент совокупности")) Loop lstA.Items.Add("----------------------------") If kol = 0 Then lstA.Items.Add("Нет ненулевых элементов") Else lstA.Items.Add("Произведение = " + Str(proiz)) End If Приложение 16Найти сумму все элементов последовательности. После ввода каждого числа пользователю задается вопрос, хочет ли он продолжить ввод чисел. Dim a, summa, otvet As Integer lstA.Items.Clear() summa = 0 Do a = Val(InputBox("Введите элемент совокупности")) lstA.Items.Add(Str(a)) summa += a otvet = MsgBox("Еще вводить числа?", 32 + 4) Loop Until otvet = 7 lstA.Items.Add("----------------------------") lstA.Items.Add("Сумма = " + Str(summa)) Приложение 17Найти сумму ряда , где в некоторой заранее заданной точке x с определенной точностью ε, вычисляя очередное слагаемое по общей формуле. В качестве результатов вывести полученное значение суммы, значение левой части выражения, номер и значение последнего слагаемого, вошедшего в сумму. Dim x, summa, slag, eps As Double Dim n, i As Integer Dim f As ULong lstA.Items.Clear() x = Val(InputBox("Введите точку")) eps = Val(InputBox("введите точность")) summa = 0 n = 0 Do n += 1 f = 1 For i = 2 To 2 * n - 1 f *= i Next slag = (-1) ^ (n + 1) * x ^ (2 * n - 1) / f summa += slag Loop Until Math.Abs(slag) <= eps lstA.Items.Add("summa=" + Str(summa)) lstA.Items.Add("sin(x)=" + Str(Math.Sin(x))) lstA.Items.Add("n=" + Str(n)) lstA.Items.Add("Последнее слагаемое =" + Str(slag)) Приложение 18Найти сумму ряда , где в некоторой заранее заданной точке x с определенной точностью ε, вычисляя очередное слагаемое с помощью рекуррентного соотношения. В качестве результатов вывести полученное значение суммы, значение левой части выражения, номер и значение последнего слагаемого, вошедшего в сумму. Dim x, summa, slag, eps As Double Dim n As Integer lstA.Items.Clear() x = Val(InputBox("Введите точку")) eps = Val(InputBox("Введите точность")) summa = 0 n = 1 slag = x summa = slag Do n += 1 slag = -slag * x ^ 2 / ((2 * n - 2) * (2 * n - 1)) summa += slag Loop Until Math.Abs(slag) <= eps lstA.Items.Add("summa=" + Str(summa)) lstA.Items.Add("sin(x)=" + Str(Math.Sin(x))) lstA.Items.Add("n=" + Str(n)) lstA.Items.Add("Последнее слагаемое =" + Str(slag)) Приложение 19Найти произведение ряда в некоторой заранее заданной точке x с определенной точностью ε. В качестве результатов вывести итоговое произведение, значение левой части выражения, номер и значение последнего сомножителя. На каждом шаге цикла выводить его номер и накопленное значение произведения. Dim x, proiz, p, eps As Double Dim n As Integer lstA.Items.Clear() x = Val(InputBox("Введите точку")) eps = Val(InputBox("Введите точность")) proiz = 1 n = 0 Do n += 1 p = 1 - 4 * x ^ 2 / ((2 * n - 1) ^ 2 * Math.PI ^ 2) proiz *= p lstA.Items.Add(Str(n) + vbTab + Str(proiz)) Loop Until Math.Abs(1 - p) <= eps lstA.Items.Add("----------------------------------") lstA.Items.Add("Произведение =" + Str(proiz)) lstA.Items.Add("cos(x)=" + Str(Math.Cos(x))) lstA.Items.Add("n=" + Str(n)) lstA.Items.Add("Последний сомножитель =" + Str(p)) |