Вторник, 17.09.2019, 19:16
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

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

 

Форма входа
Поиск
Календарь
«  Сентябрь 2019  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
30
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz