Приложение: pr_11.rar
Занятие 36. Практическая работа 11 "Обработка линейных массивов"
Внимание! Во время работы с компьютером соблюдайте правила безопасности и санитарно-гигиенические нормы.
1. Откройте среду разработки проектов.
2. Создайте проект для решения задачи:
Известна средняя температура каждого дня недели. Определите среднюю температуру за всю неделю. Выясните, сколько раз в неделю температура была выше нуля. Отсортируйте значение температур по убыванию и выясните, была ли одинаковой температура несколько дней в неделе.
В проекте:
а) разместите на форме необходимые элементы управления: многострочные поля,надписи, кнопки;
б) составьте обработчик события Click первой кнопки, выполнение которого приведет к формированию массива;
в) составьте обработчик события Click второй кнопки, выполнение которого приведет к выводу в многострочное поле или надпись средней температуры за неделю;
г) составьте обработчик события Click третьей кнопки, выполнение которого приведет к определению, сколько раз в неделю температура была выше нуля, и выводу результата в многострочное поле или надпись;
д) составьте обработчик события Click четвертой кнопки, выполнение которого приведет к определению, есть ли в массиве одинаковые значения, сообщения о наличии одинаковых элементов ;
е) составьте обработчик события Click пятой кнопки, выполнение которого приведет к сортировке значений температур, выводу отсортированного массива в многострочное поле;
ж) выполните составленные процедуры и убедитесь, что результаты их работы правильны.
3. Создайте в собственной папке папку Практическая 11 и сохраните в ней проект.
Пример.
Интерфейс проекта
Блок - схемы проекта
 
Public t(7) As Single
Public z, k As Integer
Public n As Integer
Public a, z1 As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Randomize()
For i = 1 To 7 ' формирование массива
t(i) = Int(20 * Rnd()) - 10
ListBox1.Items.Add(" " & "t(" & i & ") =" & vbTab & t(i))
Next i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
z = 0
For i = 1 To 7 ' средняя температура недели'
z = z + t(i)
Next i
z1 = (z / 7)
ListBox1.Items.Add("")
ListBox1.Items.Add("средняя температура недели: " & Format(z1, "00.##"))
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For i = 1 To 7 ' поиск количества положительных температур недели
If t(i) > 0 Then
k = k + 1
ListBox2.Items.Add(" t(" & i & ") = " & t(i) & vbTab & vbTab & "k = " & k)
End If
Next i
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim j As Integer
For i = 1 To 7 ' поиск дней одинаковых температур
n = 0
For j = i + 1 To 7
If t(i) = t(j) Then
If t(i) <> t(i - 1) Then
ListBox3.Items.Add(" t(" & j & ") = " & t(j)) : n = n + 1
End If
End If
Next j
If n <> 0 Then ListBox3.Items.Add(" t(" & i & ") = " & t(i))
Next i
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
For i = 1 To 7 ' сортировка массива
For j = 1 To 6
If t(j) > t(j + 1) Then
a = t(j)
t(j) = t(j + 1)
t(j + 1) = a
End If
Next j
Next i
For i = 1 To 7
ListBox4.Items.Add(" t(" & i & ") = " & t(i))
Next i
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
End Sub
| 
