profile
Размещено 5 лет назад по предмету Информатика от НатальяМамаева

Помогите, пожалуйста, программисты. Basic

 

 

Составьте подпрограмму, изменяющую одномерный массив чисел делением его
положительных элементов на свои индексы и определяющую число измененных
элементов. Используя эту процедуру, определите, в каком из двух заданных
одномерных массивов А или В больше измененных элементов, а также выведите
измененные массивы А и В. Если же число измененных элементов одинаково, то
выведите соответствующее сообщение

  1. Ответ на вопрос
    Ответ на вопрос дан Dmon55
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim A() As Integer
            Dim B() As Integer


            Randomize()
            Dim k As Integer
            Dim i As Integer
            i = Rnd() * 100 + 1
            ReDim A(i)
            For k = 0 To i
                A(k) = Rnd() * -1000 + 500
            Next
            i = Rnd() * 100 + 1
            ReDim B(i)
            For k = 0 To i
                B(k) = Rnd() * -1000 + 500
            Next


            Dim countA As Integer
            Dim countB As Integer

            countA = change(A)
            countB = change(B)
            Dim msg_A As String
            For i = 0 To UBound(A) - 1
                msg_A = msg_A & A(i) & vbCrLf
    '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
            Next
            Dim msg_B As String
            For i = 0 To UBound(B) - 1
                msg_B = msg_B & B(i) & vbCrLf
            Next
            If countA = countB Then MsgBox("Количество измененных элементов в двух массивах одинаково")
            MsgBox(msg_A)
            MsgBox(msg_B)
        End Sub


        Private Function change(ByRef Massiv() As Integer) As Integer
            Dim count As Integer
            Dim i As Integer
            For i = 0 To UBound(Massiv) - 1
                If Massiv(i) > 0 Then Massiv(i) = Massiv(i) / i : count = count + 1
            Next
            Return count
        End Function
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.