Составить программу, транспонирующую матрицу A размером n x n

@ToxabullY · Регистрация: 17.05.2011

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

Это задача на курсе экономической кибернетики) Нужно решить. Заранее огромное спасибо.

@l2ded · 17.05.2011, 18:16

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

Это задача на курсе экономической кибернетики) Нужно решить. Заранее огромное спасибо.

У тебя пример массива есть делай! Лодырь!

@Assassinys · 17.05.2011, 18:31

Если еще надо могу решить)

@dzug · 17.05.2011, 18:39

Вроде так.. Кнопочку нажми..:black_eye.:

@Assassinys · 17.05.2011, 19:08

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

Вроде так.. Кнопочку нажми..:black_eye.:

Эмм...я думаю что это не правильно))

@dzug · 17.05.2011, 19:14

А как надо??

@Assassinys · 17.05.2011, 19:20

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

А как надо??

думаю вот так)

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
30
31
32
Option Explicit
Sub Transp()
Dim a() As Integer
Dim b() As Integer
Dim str As String
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim j As Integer
n = CInt(InputBox("Kol-vo strok"))
m = CInt(InputBox("Kol-vo stolbcov"))
ReDim a(1 To n, 1 To m)
ReDim b(1 To m, 1 To n)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("Vvedite a(" & i & "," & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To m
b(j, i) = a(i, j)
Next j
Next i
For i = 1 To m
For j = 1 To n
str = str & b(i, j) & " "
Next j
str = str & vbCr
Next i
MsgBox "Transponir matrix" & vbCr & str, , "Matrix"
 
End Sub

@ToxabullY · 17.05.2011, 20:02 **[ТС]**

а как можно заменить команду CInt? а то нам такое на лекциях не давали, а сдавать так очень палевно))

@Assassinys · 17.05.2011, 20:35

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

а как можно заменить команду CInt? а то нам такое на лекциях не давали, а сдавать так очень палевно))

можно так

Visual Basic
1
2
n = val(InputBox("Kol-vo strok"))
m = val(InputBox("Kol-vo stolbcov"))

ну а на крайняк просто

Visual Basic
1
2
n = InputBox("Kol-vo strok")
m = InputBox("Kol-vo stolbcov")

но лучше хотябы с Val

@dzug · 17.05.2011, 21:10

А это лишнее

Visual Basic
1
m = CInt(InputBox("Kol-vo stolbcov"))

т.к. матрица размером n * n ...

@Assassinys · 17.05.2011, 21:24

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

А это лишнее

Visual Basic
1
m = CInt(InputBox("Kol-vo stolbcov"))

т.к. матрица размером n * n ...

разницы нету , может человеку в дальнейшем нужно будет транспонировать матрицу размером m*n и он может это сделать в этой программе так как она транспонирует матрицы размером m*n и n*n , так что можно сказать что эта программа универсальная

@ToxabullY · 17.05.2011, 21:33 **[ТС]**

Спасибо всем откликнувшимся, вы мне реально очень помогли. Еще раз спасибо!

@l2ded · 18.05.2011, 08:03

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

а как можно заменить команду CInt? а то нам такое на лекциях не давали, а сдавать так очень палевно))

Команды Val не знать себя не уважать!

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@ToxabullY 10 / 13 / 0 Регистрация: 17.05.2011 Сообщений: 94

	Составить программу, транспонирующую матрицу A размером n x n 17.05.2011, 18:02. Показов 2299. Ответов 12 Метки нет (Все метки) Это задача на курсе экономической кибернетики) Нужно решить. Заранее огромное спасибо. 0

@Assassinys 15 / 8 / 2 Регистрация: 14.03.2011 Сообщений: 105
	17.05.2011, 18:31
	Если еще надо могу решить) 0

@dzug 695 / 236 / 18 Регистрация: 17.01.2011 Сообщений: 583 Записей в блоге: 1
	17.05.2011, 19:14
	А как надо?? 0

@ToxabullY 10 / 13 / 0 Регистрация: 17.05.2011 Сообщений: 94
	17.05.2011, 20:02 [ТС]
	а как можно заменить команду CInt? а то нам такое на лекциях не давали, а сдавать так очень палевно)) 0

@ToxabullY 10 / 13 / 0 Регистрация: 17.05.2011 Сообщений: 94
	17.05.2011, 21:33 [ТС]
	Спасибо всем откликнувшимся, вы мне реально очень помогли. Еще раз спасибо! 0

Составить программу, транспонирующую матрицу A размером n x n

Решение