Приложение 12

Табуляция функции с известным количеством узлов.

Dim a, b, h, x, y As Single

Dim n As Integer

vvod:

a = Val(InputBox("Введите начало отрезка"))

b = Val(InputBox("Введите конец отрезка"))

n = Val(InputBox("Введите количество узлов табуляции"))

If a > b Or n < 2 Then

MsgBox("Неправильные данные")

GoTo vvod

End If

lstResult.Items.Clear()

lstResult.Items.Add("x" + vbTab + "y")

h = (b - a) / (n - 1)

For x = a To b Step h

If x + 4 < 0 Or x = 0 Then

lstResult.Items.Add(Str(x) + vbTab + "Ошибка")

Else

y = Math.Sqrt(x + 4) + 1 / x

lstResult.Items.Add(Str(x) + vbTab + Str(y))

End If

Next

Приложение 13

Вычисление факториала заданного натурального числа.

Dim f As ULong

Dim i, n As Byte

n = Val(InputBox("введите натуральное число n"))

f = 1

For i = 2 To n

f *= i

Next

MsgBox(Str(n) + "! =" + Str(f))

Приложение 14

Обработка совокупности чисел с известным количеством элементов.

Вычисление суммы чисел.

Dim a, i, n As Integer

Dim summa As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

summa = 0

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

summa += a

Next

lstA.Items.Add("-----------------------------------")

lstA.Items.Add("Сумма чисел =" + Str(summa))

Вычисление произведения чисел.

Dim a, i, n As Integer

Dim proiz As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

proiz = 1

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

proiz *= a

Next

lstA.Items.Add("-----------------------------------")

lstA.Items.Add("Произведение чисел =" + Str(proiz))

Определение количества четных чисел в совокупности.

Dim a, i, n As Integer

Dim kol As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

kol = 0

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a Mod 2 = 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

Вычисление среднего арифметического положительных чисел в совокупности.

Dim a, i, n As Integer

Dim summa, kol As Integer

Dim sred As Single

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

summa = 0

kol = 0

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a > 0 Then

summa += a

kol += 1

End If

Next

lstA.Items.Add("-----------------------------------")

If kol = 0 Then

lstA.Items.Add("Нет положительных чисел")

Else

sred = summa / kol

lstA.Items.Add("Сред. арифм. полож. чисел =" + _

Str(sred))

End If

Вычисление среднего геометрического отрицательных чисел в совокупности.

Dim a, i, n As Integer

Dim proiz, kol As Integer

Dim geom As Single

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

proiz = 1

kol = 0

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a < 0 Then

proiz *= a

kol += 1

End If

Next

lstA.Items.Add("-----------------------------------")

if kol = 0 Then

lstA.Items.Add("Нет отрицательных чисел")

Else

If proiz > 0 Then

geom = proiz ^ (1 / kol)

Else

geom = -Math.Abs(proiz) ^ (1 / kol) End If

lstA.Items.Add("Сред. геом. отриц. чисел =" + _

Str(geom))

End If

Поиск максимального числа в совокупности.

Dim a, i, n As Integer

Dim max As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

max = -100000

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a > max Then

max = a

End If

Next

lstA.Items.Add("-----------------------------------")

lstA.Items.Add("Максимальное число =" + Str(max))

Поиск минимального числа, кратного трем.

Dim a, i, n As Integer

Dim min As Integer

lstA.Items.Clear()

n = Val(InputBox("Введите количество элементов"))

min = 100000

For i = 1 To n

a = Val(InputBox("Введите элемент совокупности"))

lstA.Items.Add(Str(i) + vbTab + Str(a))

If a Mod 3 = 0 And a < min Then

min = a

End If

Next

lstA.Items.Add("-----------------------------------")

If min = 100000 Then

lstA.Items.Add("Нет чисел, кратных 3")

Else

lstA.Items.Add("Минимальное кратное трем = " + _

Str(min))

End If