Приложение: poick kratn.rar
 

Занятие 34.1 Поиск элементов по условию

Пример 1

Создайте проект, в котором необходимо сформировать массив из десяти целых чисел, расположенных в многострочном поле. Найдите среднее арифметическое значение элементов массива и выведите результат в Надпись

Интерфейс проекта

Программный код проекта

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(9), s As Integer
        Dim z As Single
        Dim i As Integer

        s = 0
        For i = 0 To 9
            Randomize()
            a(i) = Int(20 * Rnd())
            s = s + a(i)
            ListBox1.Items.Add("a(" & i & ")   = " & vbTab & a(i) & vbTab & " s =  " & s)
        Next
        z = s / 10
        TextBox1.Text = Str(z)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        TextBox1.Text = ""
    End Sub

 

Пример 2.
В одномерном массиве, содержащем 15 элементов найти  элементы, кратные  некоторому числу k

Интерфейс проекта

Программный код
      Public kopiy As Object              'переменная для хранения копии массива type(тип)- Object   

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click

        Dim A(15) As Integer
        Dim i As Integer
        Randomize()
        For i = 1 To 15
            A(i) = Fix(100 - 150 * Rnd())
            ListBox1.Items.Add("A(" & i & ")  =" & vbTab & A(i))

        Next i

        kopiy = A     'Массивы могут храниться в переменных типа Object 
        
    End Sub

    Private Sub ПоискКратныхЧиселToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПоискКратныхЧиселToolStripMenuItem.Click
        Dim k As Integer
        Dim i As Integer

        k = Val(InputBox("введите делитель", "поиск по k"))

        For i = 1 To 15
            If (kopiy(i) Mod k = 0) And (kopiy(i) <> 0) Then

                ListBox2.Items.Add("kopiy(" & i & ")" & " = " & kopiy(i) & vbTab & "кратное " & k)
            End If
        Next i
    End Sub

    Private Sub УдалениеДанныхToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УдалениеДанныхToolStripMenuItem.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
    End Sub

    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        End
    End Sub

Выполните задания.

1. Составьте таблицу выполнения фрагмента программы и определите значение переменной sum после его завершения для массива, значениями эле­ментов которого являются числа 2; 0; 23; -14:

sum := 0;
for і := 1 to 4 do
if a[i] mod 2 =0 then sum := sum + a[i]*a[i];
next i

2. Создайте  проект,  в  котором  нужно  сформировать  массив  из  двенадцати действительных  чисел,  находящихся  в  строках  многострочного  поля,  увеличить  значение  каждого  элемента  массива  в  3  раза  и  вывести  новые  зна­чения  в  другое  многострочное  поле.

3. Создайте  проект,  в  котором  нужно  сформировать  массив  из  десяти  дей­ствительных  чисел,  находящихся  в  строках  многострочного  поля,  опреде­лить наименьшее среди значений элементов этого массива и поменять его местами  с  первым  элементом  массива.  Полученный  массив  выведите  в другое  многострочное  поле.