Dim i, j, Min, Max

        Dim t(,) As Integer = {{99, 99, 99, 99, 99}, {99, -8, -14, -19, -18}, {99, 25, 28, 26, 20}, {99, 11, 18, 20, 25}}
        Dim i, j, Min, Max As Integer
        Min = t(1, 1) : Max = t(1, 1)
        For i = 1 To 3
            For j = 1 To 4
                If t(i, j) > Max Then Max = t(i, j)
                If t(i, j) < Min Then Min = t(i, j)
            Next j
        Next i
        Debug.Write(Max - Min)
End Sub
Эта программа напечатает число 47.
120.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a() As Integer = {5, 4, 2, 4, 3, 5, 5, 3, 4, 3}                            'Оценки одного класса
        Dim b() As Integer = {3, 4, 3, 4, 3, 5, 4, 4, 3, 4, 4, 4, 4, 3, 4, 4}    'Оценки другого класса
        If Разница(a) < Разница(b) Then Debug.WriteLine("Первый класс учится ровнее") _
                                                      Else Debug.WriteLine("Второй класс учится ровнее")
End Sub
Function Минимум(ByVal c() As Integer) As Integer
        Dim i As Integer
        Минимум = c(0)
        For i = 1 To c.Length - 1
            If c(i) < Минимум Then Минимум = c(i)
        Next
End Function
Function Максимум(ByVal c() As Integer) As Integer
        Dim i As Integer
        Максимум = c(0)
        For i = 1 To c.Length - 1
            If c(i) > Максимум Then Максимум = c(i)
        Next
End Function
Function Разница(ByVal c() As Integer) As Integer
        Разница = Максимум(c) - Минимум(c)
End Function
121.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Для отладки приняли, что в году 4 дня
        Dim A() As Integer = {25, 22, 18, 20}                  'Показания термометра на станции A
        Dim B() As Integer = {4, 5, 4, 4}                           'Показания термометра на станции B
        Исправление(-2, A)

Содержание  Назад  Вперед

---

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

---

---

---