Получить самую большую разность между 30 парами элементов массива - Visual Basic .NET

Формулировка задачи:

Нужно получить самую большую разность между 30 парами элементов и вывести его в TextBox3. Сейчас программа генерирует и выводит 2 массива, каждый из которых по 30 эл.
Dim D(100) As Integer
        Dim N(100) As Integer
        Dim S1, S2 As String
        Dim I, J, Day, Nigth, Difference As Integer
        Day = Val(TextBox1.Text)
        Nigth = Val(TextBox2.Text)
        For I = 1 To Day
            D(I) = Int(Rnd() * 20 - 10)
            S1 &= CStr((D(I)) & " ")
        Next
        MsgBox("Массив 1:" & vbCrLf & S1)
        For J = 1 To Nigth
            N(J) = Int(Rnd() * 20 - 10)
            S2 &= CStr((N(J)) & " ")
        Next
        MsgBox("Массив 2:" & vbCrLf & S2)
        'TextBox3.Text = Str(Difference)

Код к задаче: «Получить самую большую разность между 30 парами элементов массива - Visual Basic .NET»

textual
        Dim D(), N(), i, CountDay, MaxDif, iMax, t As Integer
        Dim S, S1, S2 As String, r As New Random
        CountDay = 30 'Val(TextBox1.Text)
        'Nigth = Val(TextBox2.Text)
        ReDim D(CountDay - 1), N(CountDay - 1)
        ' Randomize()
        For i = 0 To CountDay - 1
            D(i) = CInt(r.Next(-10, 11)) 'CInt(Rnd() * 20 - 10)
            N(i) = CInt(r.Next(-10, 11)) 'CInt(Rnd() * 20 - 10)
            S1 &= CStr((D(i)) & " ")
            S2 &= CStr((N(i)) & " ")
        Next
        S &= "Массив 1:" & vbCrLf & S1 & vbCrLf & "Массив 2:" & vbCrLf & S2 & vbCrLf
        If D(0) < N(0) Then MaxDif = (D(0) - N(0)) Else MaxDif = (N(0) - D(0))
        iMax = 0
        For i = 0 To CountDay - 1
            If D(i) < N(i) Then t = (D(i) - N(i)) Else t = (N(i) - D(i))
            If Math.Abs(t) > Math.Abs(MaxDif) Then MaxDif = t : iMax = i
        Next
        S &= "Максимальная разница между элементами № " & iMax + 1 & " равна " & Math.Abs(MaxDif)
        TextBox3.Text = Str(Math.Abs(MaxDif))
        MsgBox(S)
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 5.000 из 5


СДЕЛАЙТЕ РЕПОСТ