Транспонирование матрицы

@Dron43 · Регистрация: 15.04.2018

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

Доброго времени суток!Как сделать матрицу,чтобы при транспонировании прямоугольной матрицы в результирующей матрице переделывалась сама структура(например:матрица 3 на 4 стала 4 на 3 и так далее).В работе сделал условие чтобы транспонировалась ТОЛЬКО квадратная матрица...Но препод сказал,что транспонируется и не только квадратная...

Архив с программой скинул.Почему появляются нули в последней строке когда транспонирую матрицу 3 на 4?

@ZfoxAK · 26.04.2018, 07:07

Совершенно неохота скачивать и еще потом в чужом коде разбираться. Вот рабочий пример-
TranspositionMatrix.rar

@Matan! · 26.04.2018, 08:17

Архив поврежден.

@Dron43 · 26.04.2018, 13:41 **[ТС]**

Сообщение от Matan!

Архив поврежден.

Перезалил,версия делфи-7 если что.

@Matan! · 26.04.2018, 16:00

Та же ерунда. 7-zip, Hamster Zip Arch, Universal Extractor не открыли.

@Puporev · 26.04.2018, 16:12

Сообщение от Matan!

Та же ерунда.

Ну это уже какие-то твои проблемы, у меня открывает, WinRar.
Попробуй мой архив.

@Matan! · 26.04.2018, 16:36

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

Ну это уже какие-то твои проблемы

Ничего подобного. Вот почему от Вас архивы всегда открываются? Небось, ТС всякий хлам натолкал туда?

@Puporev · 26.04.2018, 16:38

Так открой мой, это архив того что было у ТС.

@D1973 · 26.04.2018, 16:50

Сообщение от Matan!

ТС всякий хлам натолкал туда?

На удавление - нет... Правда копии (~*.*) там лишние - но не более того...

@Matan! · 26.04.2018, 17:10

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

Так открой мой, это архив того что было у ТС

Так сразу и сделал

Dron43, слегка изменил:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TfrmMain.btnDecideClick(Sender: TObject);
var
  i1, i2: integer;
begin
  stgMatr2.ColCount := stgMatr1.RowCount;
  stgMatr2.RowCount := stgMatr1.ColCount;
 
  for i1 := 1 to stgMatr1.colcount - 1 do
    for i2 := 1 to stgMatr1.rowcount - 1 do
      stgMatr2.cells[i2, i1] := stgMatr1.cells[i1, i2];
end;

Добавлено через 2 минуты
И уберите эту проверку на равенство количества строк и столбцов в Button1Click.

Не по теме:

D1973, не знаю,как объяснить.. Но в который раз уже такое - архивы от ТСов не открываются, Пупорев там что-то поколдует над ними, после чего всё нормально открывается.. Фиг знает...

@qwertehok · 26.04.2018, 17:54

Не по теме:

архиватор какой версии?

@Пытливый · 26.04.2018, 18:09

Да вроде все нормально открывается. Видимо у вас старая версия архиватора.

@Dron43 · 26.04.2018, 18:15 **[ТС]**

Matan! Спасибо вам огромное!Работает как часы)))))))

@Matan! · 26.04.2018, 19:15

Только что скачаный Hamster - старый?

Хотя - кто знает? Домой пришёл, спокойно открыл через WinRar.. Завтра обновлюсь на работе

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	26.04.2018, 07:07
	Совершенно неохота скачивать и еще потом в чужом коде разбираться. Вот рабочий пример- TranspositionMatrix.rar 0

@Matan! 1882 / 1016 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	26.04.2018, 08:17
	Архив поврежден. 0

@Matan! 1882 / 1016 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	26.04.2018, 16:00
	Та же ерунда. 7-zip, Hamster Zip Arch, Universal Extractor не открыли. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.04.2018, 16:38
	Так открой мой, это архив того что было у ТС. 0

@qwertehok
	26.04.2018, 17:54
	Не по теме: архиватор какой версии? 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	26.04.2018, 18:09
	Да вроде все нормально открывается. Видимо у вас старая версия архиватора. 0

@Dron43 0 / 0 / 1 Регистрация: 15.04.2018 Сообщений: 84
	26.04.2018, 18:15 [ТС]
	Matan! Спасибо вам огромное!Работает как часы))))))) 0

@Matan! 1882 / 1016 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	26.04.2018, 19:15
	Только что скачаный Hamster - старый? Хотя - кто знает? Домой пришёл, спокойно открыл через WinRar.. Завтра обновлюсь на работе 0

Транспонирование матрицы

Решение