VPF::Получить квадратную матрицу - Форум программистов

desant13

Дата 18.1.2015, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 18.1.2015

Репутация: нет
Всего: нет

Получить квадратную матрицу A размером N/N (N – случайное число от 4 до 10)
1. Вывести исходную матрицу.
2. Найти среднее арифметическое элементов матрицы.
3. Заменить на (-1) элементы матрицы, большие среднего арифметического.
4. Вывести среднее арифметическое и преобразованную матрицу.

Сделал это:

Код


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim i, j, sum, a, b, n As Integer
        Dim t, r As New Random
        Dim matrica(,) As Integer
        Dim matrica2(,) As Integer
 
        a = r.Next(4, 10)
        b = r.Next(4, 10)
        ReDim matrica(a, b)
        ReDim matrica2(a, b)
        Label1.Text = String.Empty
        Label2.Text = String.Empty
        Label3.Text = String.Empty
        Label4.Text = String.Empty

        '********************
        For i = 0 To a
            For j = 0 To b
                matrica(i, j) = r.Next(0, 5)

                n += 1
                sum += matrica(i, j)

                Label1.Text += CStr(matrica(i, j)) + Space(5)

            Next j
            Label1.Text += vbCrLf
        Next i
        '***************
        For i = 0 To a
            For j = 0 To b
                matrica2(i, j) = matrica(i, j)

                
                If matrica2(i, j) > (sum / n) Then matrica2(i, j) = matrica2(i, j) - 1

                Label4.Text += CStr(matrica2(i, j)) + Space(5)


            Next j
            Label4.Text += vbCrLf
        Next i
        Label3.Text = CStr(sum / n)


    End Sub

А теперь вопрос... я не могу понять 4 задание )))

diadiavova

Дата 18.1.2015, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

В четвертом задании от тебя требуется над матрицей, полученной в результате выполнения задания 3, выполнить ровным счётом те же действия, которые ты выполнял над исходной матрицей в заданиях 1 и 2 (вывести на экран и вычислить среднее арифметическое элементов).

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »