Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
kari30
0 / 0 / 0
Регистрация: 08.12.2014
Сообщений: 7
#1

Получить таблицу, заполнив побочную диагональ матрицы и соседние диагонали определенным образом

08.12.2014, 18:19. Просмотров 868. Ответов 8
Метки нет (Все метки)

0000000..4..2..1..
0000007500
00000108600
000013119000
0001614120000
0019171500000
0222018000000
2523210000000
262400000000
27000000000

С помощью Visual Basic нужно в Excel получить такую таблицу.Помогите пожалуйста.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2014, 18:19
Ответы с готовыми решениями:

Переставить главную и побочную диагонали матрицы
1. Задана квадратная матрица. Переставить главную и побочную диагонали. 2....

Как считать побочную диагональ снизу?
Здравствуйте! Нужно создать вектор из матрицы (4*4), элементы которого –...

Вывести на печать главную диагональ матрицы и диагональ расположенной под ней в 2 строки
Как вывести на печать главную диагональ матрицы и диагональ расположенной под...

Сортировка списка определенным образом
Всем привет. В общем задача такая: есть список строк взятый из листа....

обнулить побочную диагональ матрицы
Дан двумерный массив А(4,4) в виде квадратной матрицы. Составьте программу,...

8
kalbasiatka
396 / 248 / 77
Регистрация: 27.10.2012
Сообщений: 832
08.12.2014, 18:45 #2
Во второй строке после 5 не должно быть 4?
0
Апострофф
Заблокирован
08.12.2014, 18:58 #3
kalbasiatka, c 4-кой закономерность не станет менее загадочной, не находите?
0
ikki
призрак
2823 / 879 / 118
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
08.12.2014, 19:43 #4
там тройка должна быть

Добавлено через 2 минуты
вместо нуля, конечно
0
Апострофф
Заблокирован
08.12.2014, 19:52 #5
тройка тоже не выход - первая строка не вписывается никак.
0
ikki
призрак
2823 / 879 / 118
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
08.12.2014, 20:00 #6
чё эт не выход?
и код простой
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub t()
  Dim a%(1 To 10, 1 To 10), m%, i%, j%, n%
  m = 1: i = 1: j = 10: n = 3: a(i, j) = m
  Do
    m = m + 1
    If n < 3 Then
      i = i + 1: n = n + 1
    Else
      j = j - 1: i = i - 1: n = 1
      If i < 1 Then n = n - i + 1: i = 1
    End If
    a(i, j) = m
  Loop Until i = 10 And j = 1
  [a1].Resize(10, 10).Value = a
End Sub
Добавлено через 3 минуты
писал лишь бы работало.
можно подсократить. имхо.
0
Апострофф
Заблокирован
08.12.2014, 20:00 #7
Ну дык с помощью IF можно любой массив кодом расписать, лишь бы места и терпения хватило...
0
ikki
призрак
2823 / 879 / 118
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
08.12.2014, 20:14 #8
Лучший ответ Сообщение было отмечено Sasha_Smirnov как решение

Решение

ладно. без if-ов. да и покороче
Visual Basic
1
2
3
4
5
6
7
8
9
Sub tt()
  Dim a%(1 To 10, 1 To 10), m%, i%, j%
  m = 0
  For j = 10 To 1 Step -1
    For i = Application.Max(9 - j, 1) To 11 - j
      m = m + 1: a(i, j) = m
  Next i, j
  [a1].Resize(10, 10).Value = a
End Sub
0
kari30
0 / 0 / 0
Регистрация: 08.12.2014
Сообщений: 7
08.12.2014, 20:57  [ТС] #9
Спасибо
0
08.12.2014, 20:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2014, 20:57

Обнулить побочную диагональ матрицы
Дан двумерный массив А(4,4) в виде квадратной матрицы. Составьте программу,...

Упорядочить побочную диагональ матрицы по уменьшению
Нужно упорядочить по убыванию побочную диагональ матрицы. У меня код работает...

Поменять главную и побочную диагональ матрицы
в заданном целочисленном массиве Аnn поменять главную и побочную диагональ


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

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

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