Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
PolinaZh
0 / 0 / 0
Регистрация: 13.06.2014
Сообщений: 3
#1

Формула для квадратной матрицы. Нужна проверка

13.06.2014, 23:13. Просмотров 949. Ответов 2
Метки нет (Все метки)

Подскажите, пожалуйста, формулу для создания этой матрицы.
Формула для квадратной матрицы. Нужна проверка

У меня получилось только

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 N = a + (b - a) * Rnd()
        ReDim Mas(N, N)
        i = 0
        j = 0
        Randomize()
        For i = 0 To N
            For j = 0 To N
                If i - j = 0 Then Mas(i, j) = 1
                If i - j = 1 Then Mas(i, j) = 2
                If i - j = 2 Then Mas(i, j) = 3
                If i - j = 3 Then Mas(i, j) = 4
                If i - j = 4 Then Mas(i, j) = 5
                If i - j = 5 Then Mas(i, j) = 6
                If i - j = 6 Then Mas(i, j) = 7
                If i - j = 7 Then Mas(i, j) = 8
                If i - j = 8 Then Mas(i, j) = 9
            Next j
        Next i
Но вот результат не тот(
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2014, 23:13
Ответы с готовыми решениями:

Заполнение квадратной матрицы вручную
Как заполнить правильно квадратную матрицу вручную? У меня размерность матрицы...

Подсчитать произведение элементов квадратной матрицы
Задана квадратная матрица N*N целых чисел. Подсчитать произведение непарных...

Определить количество строк квадратной матрицы
Определить количество строк квадратной матрицы,в которых на главной диагонали...

Определитель квадратной матрицы второго порядка.
Помогите пожалуйста решить. У самого ничего не получается(( Требуется написать...

Поиск минимального элемента в диагоналях квадратной матрицы
Поиск минимального элемента в диагоналях квадратной матрицы. 2. В...

2
SoftIce
comment ca va
10446 / 3954 / 1009
Регистрация: 27.07.2011
Сообщений: 9,556
Завершенные тесты: 1
14.06.2014, 05:29 #2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
        a = 1: b = 20
        Randomize()
        N = a + (b - a) * Rnd()
        ReDim Mas(N, N)
        For i = 0 To N
            For j = 0 To N
                If i - j >= 0 Then Mas(i, j) = i + 1 - j Else Mas(i, j) = 0
            Next j
        Next i
0
PolinaZh
0 / 0 / 0
Регистрация: 13.06.2014
Сообщений: 3
14.06.2014, 11:03  [ТС] #3
Цитата Сообщение от SoftIce Посмотреть сообщение
Visual Basic
1
2
3
4
5
6
7
8
9
a = 1: b = 20
Randomize()
N = a + (b - a) * Rnd()
ReDim Mas(N, N)
For i = 0 To N
For j = 0 To N
If i - j >= 0 Then Mas(i, j) = i + 1 - j Else Mas(i, j) = 0
Next j
Next i
Спасибо! всё работает
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2014, 11:03

Найти произведение элементов строк квадратной матрицы Р
Помогите пожалуйста решить задачу! Задача:Найти произведение элементов строк...

Определить индексы минимального элемента на главной диагонали квадратной матрицы
Определить индексы минимального элемента на главной диагонали квадратной...

Массив: вычислить среднее арифметическое значение главной диагонали квадратной матрицы
Всем доброе время суток.:) У меня тут проблемка с структурой Сумма...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru