Найти транспонированную матрицу

@Stiba · Регистрация: 31.03.2010

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

Вроде написала так как препод объяснял,но что-то не работает.Помогите пожалуйста)))
Вот задача: Даны натуральное n и действительная матрица порядка n. Найти транспонированную матрицу. Транспонирование матрицы производится путём замены строки на столбец.
Вот решение:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim A(10, 10) As Integer
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim J As Integer
n = InputBox("Введите количество элементов n=")
m = InputBox("Введите количество элементов m=")
For i = 1 To n
For J = 1 To n
A(i, J) = InputBox("A(i,J)")
Next i
Next J
For i = 1 To n
For J = 1 To n
A(i, J) = A(J, i)
A(J, i) = MsgBox
 
Next i
Next J
End Sub

@аналитика · 09.04.2010, 20:47

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Command1_Click()
   Dim A() As Integer, A_T() As Integer
   Dim n As Integer
   Dim i As Integer
   Dim j As Integer
   Dim s As String
   
   n = InputBox("Введите количество элементов n=")
   ReDim A(1 To 10, 1 To 10)
   ReDim A_T(1 To 10, 1 To 10)
    
   For i = 1 To n
      For j = 1 To n
         A(i, j) = InputBox("A(" & i & "; " & j & ")")
         s = s & A(i, j) & vbTab
      Next j
      s = s & vbNewLine
   Next i
   MsgBox s: s = ""
   
   For j = 1 To n
      For i = 1 To n
         A_T(i, j) = A(j, i)
         s = s & A(i, j) & vbTab
      Next i
      s = s & vbNewLine
   Next j
   MsgBox s
End Sub

@YuraAAA · 10.04.2010, 00:57

Транспонирование матрицы
(Транспонированая помещается в другую матрицу)

@gaw · 10.04.2010, 01:15

Сообщение от аналитика

s = s & A(i, j) & vbTab

24 строка, думаю опечатка

PureBasic
1
s = s & A_T(i, j) & vbTab

Сообщение от аналитика

n = InputBox("Введите количество элементов n=")
ReDim A(1 To 10, 1 To 10)
ReDim A_T(1 To 10, 1 To 10)

???

@YuraAAA · 10.04.2010, 01:56

Да,действительно) У меня код работает с матрицами любых размеров.

@аналитика · 10.04.2010, 02:51

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

24 строка, думаю опечатка

это не опечатка - индексы циклов местами поменяны

n = InputBox("Введите количество элементов n=")
ReDim A(1 To 10, 1 To 10)
ReDim A_T(1 To 10, 1 To 10)

- это бред.

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	10.04.2010, 00:57
	Транспонирование матрицы (Транспонированая помещается в другую матрицу) 1

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	10.04.2010, 01:56
	Да,действительно) У меня код работает с матрицами любых размеров. 1