Вычислить количество элементов каждой строки матрицы

@nearzev · Регистрация: 14.06.2022

Author24 — интернет-сервис помощи студентам

Помогите составить программу вычисления количества элементов каждой строки матрицы А размера 5x5, удовлетворяющих условию 0<a<5, результат вычислений записать в одномерный массив

@Тим70 · 14.06.2022, 18:01

nearzev, Как то так

VB.NET

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim R As New Random
        Dim Arr(), Mat(4, 4), N As Integer
        TextBox1.Text = ""
        ListBox1.Items.Clear()
        'создаем матрицу
        For i = 0 To 4
            For j = 0 To 4
                Mat(i, j) = R.Next(0, 15) 'диапазон чисел от 0 до 14
                TextBox1.Text &= Mat(i, j) & " "
            Next
            TextBox1.Text &= vbNewLine
        Next
        'проверяем условие
        N = -1
        For i = 0 To 4
            For j = 0 To 4
                If Mat(i, j) > 0 And Mat(i, j) < 5 Then
                    N += 1
                    ReDim Preserve Arr(N)
                    Arr(N) = Mat(i, j) 'записываем в массив
                    ListBox1.Items.Add(Arr(N))
                End If
            Next
        Next
        Label1.Text = Arr.Count
    End Sub

Добавлено через 10 минут
Или покороче

VB.NET

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim R As New Random
        Dim Arr(), Mat(4, 4), N As Integer
        TextBox1.Text = ""
        ListBox1.Items.Clear()
        N = -1
        'создаем матрицу
        For i = 0 To 4
            For j = 0 To 4
                Mat(i, j) = R.Next(0, 15) 'диапазон чисел от 0 до 14
                TextBox1.Text &= Mat(i, j) & " "
 
                If Mat(i, j) > 0 And Mat(i, j) < 5 Then   'проверяем условие
                    N += 1
                    ReDim Preserve Arr(N)
                    Arr(N) = Mat(i, j) 'записываем в массив
                    ListBox1.Items.Add(Arr(N))
                End If
            Next
            TextBox1.Text &= vbNewLine
        Next
        Label1.Text = Arr.Count
    End Sub

@January29 · 14.06.2022, 21:59

Тим70, может надо сделать как писал ТС

вычисления количества элементов каждой строки матрицы А размера 5x5

@Тим70 · 15.06.2022, 09:15

January29, Хм,может и так,но тогда получится 5 одномерных массивов.Не знаю.Посмотрим ,что скажет ТС.

Добавлено через 2 часа 0 минут

Сообщение от January29

вычисления количества элементов каждой строки матрицы А размера 5x5

На ум только такое пришло

Кликните здесь для просмотра всего текста

VB.NET

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim R As New Random
        Dim Arr(), Mat(4, 4), N, N1 As Integer
        Dim Arr1(4) As String
 
        TextBox1.Text = ""
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        N = -1
        'создаем матрицу
        For i = 0 To 4
            For j = 0 To 4
                Mat(i, j) = R.Next(0, 15) 'диапазон чисел от 0 до 14
                TextBox1.Text &= Mat(i, j) & " "
 
                If Mat(i, j) > 0 And Mat(i, j) < 5 Then   'проверяем условие
                    N += 1
                    ReDim Preserve Arr(N)
                    Arr(N) = Mat(i, j) 'записываем в массив
                    ListBox1.Items.Add(Arr(N))
                End If
            Next
            TextBox1.Text &= vbNewLine
            N1 = 0
            For q = 0 To 4
                If Mat(i, q) > 0 And Mat(i, q) < 5 Then   'проверяем условие
                    N1 += 1
                End If
            Next
            Arr1(i) = N1.ToString 'количество элементов в каждой строке
            ListBox2.Items.Add("В " & i + 1 & " строке " & N1)
        Next
        Label1.Text = Arr.Count
        ListBox3.Items.AddRange(Arr1)
    End Sub

@nearzev · 15.06.2022, 13:41 **[ТС]**

Спасибо вам большое за помощь

@January29 · 15.06.2022, 18:40

Сообщение от nearzev

удовлетворяющих условию 0<a<5

замечу что если а больше нуля, то значит в матрице могут быть и отрицательные числа.
чтобы их занести в матрицу, нужно в Random.Next Метод сделать ну как пример:

VB.NET

1 2	Dim R As New Random Mat(i, j) = R.Next(-9, 15) 'диапазон чисел от -9 до 14

I can · 15.06.2022, 19:02

Я думаю, что всё намного проще. Код для консоли:

VB.NET

    Sub Main()
        Dim Arr(4, 4) As Integer
        Dim N As Integer = 0, r As New Random
        For i = 0 To 4
            N = 0
            For j = 0 To 4
                Arr(i, j) = r.Next(-10, 11)
                N -= Arr(i, j) > 0 And Arr(i, j) < 5
                Console.Write(Arr(i, j) & vbTab)
            Next
            Console.Write("Количество элементов, удовлетворяющих условию: " & N)
            Console.WriteLine()
        Next
        Console.ReadKey()
    End Sub

I can · 15.06.2022, 19:07

Сообщение от nearzev

результат вычислений записать в одномерный массив

Не заметил сразу. Но так еще проще:

VB.NET

    Sub Main()
        Dim Arr(4, 4) As Integer, B(4) As Integer
        Dim r As New Random
        For i = 0 To 4
            For j = 0 To 4
                Arr(i, j) = r.Next(-10, 11)
                B(i) -= Arr(i, j) > 0 And Arr(i, j) < 5
                Console.Write(Arr(i, j) & vbTab)
            Next
            Console.Write("Количество элементов, удовлетворяющих условию: " & B(i))
            Console.WriteLine()
        Next
        Console.ReadKey()
    End Sub

@Тим70 · 15.06.2022, 19:59

Сообщение от January29

сделать ну как пример:

Ну это и так понятно.Это же диапазон случайных целых чисел.Просто я не стал заморачеваться с отрицательнами числами

@January29 · 15.06.2022, 20:09

Сообщение от Тим70

Просто я не стал заморачеваться

Ну это для ТС справку дал

@Тим70 · 15.06.2022, 20:16

Сообщение от January29

это для ТС справку дал

Молодец!

@nearzev 0 / 0 / 0 Регистрация: 14.06.2022 Сообщений: 2
		1
	Вычислить количество элементов каждой строки матрицы 14.06.2022, 15:34. Показов 1185. Ответов 10 Метки visual basic .net (Все метки) Помогите составить программу вычисления количества элементов каждой строки матрицы А размера 5x5, удовлетворяющих условию 0<a<5, результат вычислений записать в одномерный массив 0

@January29 2756 / 2787 / 545 Регистрация: 17.02.2019 Сообщений: 4,600
	14.06.2022, 21:59	3
	Тим70, может надо сделать как писал ТС `вычисления количества элементов каждой строки матрицы А размера 5x5` 2

@nearzev 0 / 0 / 0 Регистрация: 14.06.2022 Сообщений: 2
	15.06.2022, 13:41 [ТС]	5
	Спасибо вам большое за помощь 0

@Тим70 885 / 646 / 152 Регистрация: 27.01.2019 Сообщений: 1,364
	15.06.2022, 19:59	9
	Сообщение от January29 сделать ну как пример: Ну это и так понятно.Это же диапазон случайных целых чисел.Просто я не стал заморачеваться с отрицательнами числами 1

@January29 2756 / 2787 / 545 Регистрация: 17.02.2019 Сообщений: 4,600
	15.06.2022, 20:09	10
	Сообщение от Тим70 Просто я не стал заморачеваться Ну это для ТС справку дал 1

@Тим70 885 / 646 / 152 Регистрация: 27.01.2019 Сообщений: 1,364
	15.06.2022, 20:16	11
	Сообщение от January29 это для ТС справку дал Молодец! 1

Вычислить количество элементов каждой строки матрицы

Решение