Введение 8 Этапы создания Windowsприложения 8

• Название: Введение 8 Этапы создания Windowsприложения 8
• Анкор: Visual Basic 2005 (word97).doc
• Дата: 22.12.2017
• Размер: 6.98 Mb.
• Имя файла: Visual Basic 2005 (word97).doc
• Тип: Реферат; #12532
• страница: 55 из 63

Приложение 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))