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

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

Приложение 20

Решить уравнение



методом простой итерации с заданной точностью. Начальное значение x₀ = 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