Поменять местами максимальные элементы матриц

@irinkka · Регистрация: 03.01.2010

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

Если, Вас не затруднит, то напишите, каким образом, более правильно решать подобную задачу:
Поменять местами максимальные элементы матриц А(5,6),В(3,5).Поиск максимального элемента в матрице осуществить в процедуре...

Мой Вариант:

PureBasic
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
33
34
35
36
37
38
39
40
41
42
Dim A(5,6),B(3,5)
for i=1 to 5
for j=1 to 6
READ A(i,j)
?A(i,j);
next j
?
next i
?
DATA 2,5,4,6,3,0,1,4,15,47,87,2,-3,354,-6,4,-2,-4,-2,-3,-2
DATA -2,5,-6,2,5,-9,0,6,5
 
for i=1 to 3
for j=1 to 5
READ B(i,j)
?B(i,j);
next j
?
next i
?
DATA 6,5,-9,47,5,-3,1,12,4,6,58,4,6,9,3,2,1
 
call max(A(),5,6,l)
call max(B(),3,5,l)
 
rem Выделять нужно так!!
swap A(3,2),B(3,1)
rem и код проги тож форматить нужно!
for i=1 to 5
for j=1 to 6
?A(i,j);
next j
?
next i
 
?
for i=1 to 3
for j=1 to 5
?B(i,j);
next j
?
next i

P.S/интересует выделенная строчка=)

заранее спасибо=)

Добавлено через 2 часа 40 минут
Ау....=)

@кот Бегемот · 19.01.2010, 23:10

Хотелось бы уточнить 2 вещи:
1. Вам нужны именно эти данные, то есть вводим известные данные с помощью DATA и READ, или вам нужен алгоритм для произвольных данных?
2. Обязательно вычислять мах в процедуре? Дела в том, что это легко сделать и без неё.

@irinkka · 19.01.2010, 23:52 **[ТС]**

1)ну, вообще нужен просто алгоритм...а данные я уже для собственной проверки вставила=)
2)если, это не секрет-поделитесь

а вычислять в процедуре обязательно=(

Добавлено через 5 минут
кстати, у моей программы выше изложенной мистическим образом пропало начало

PureBasic
1
2
3
4
5
6
7
cls
sub max(X(2),n,m,k)
l=X(1,1):k=1:h=1
for i=1 to n
for j=1 to m
if X(i,j)>l then l=X(i,j):k=i:h=j
next j,i

@кот Бегемот · 20.01.2010, 00:24

Что-то не идёт у меня ваша прога. Я сделал только одну вещь: после вызова процедуры для 1 массива присвоил индексы k и h другим переменным, k1 и h1, чтобы освободить k и h, потом вызвал ещё раз и попытался поменять a(k1,h1) и b(k,h), программа зависла наглухо. Хотя, навскидку всё в ней правильно. Вряд ли я чем-то смогу помочь вам, потому что не вижу, что я мог бы ещё изменить в программе.

@irinkka · 20.01.2010, 20:22 **[ТС]**

Я всё равно Вам благодарна=)

Новые блоги и статьи Все статьи Все блоги /
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. 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. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	19.01.2010, 23:10
	Хотелось бы уточнить 2 вещи: 1. Вам нужны именно эти данные, то есть вводим известные данные с помощью DATA и READ, или вам нужен алгоритм для произвольных данных? 2. Обязательно вычислять мах в процедуре? Дела в том, что это легко сделать и без неё. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	20.01.2010, 00:24
	Что-то не идёт у меня ваша прога. Я сделал только одну вещь: после вызова процедуры для 1 массива присвоил индексы k и h другим переменным, k1 и h1, чтобы освободить k и h, потом вызвал ещё раз и попытался поменять a(k1,h1) и b(k,h), программа зависла наглухо. Хотя, навскидку всё в ней правильно. Вряд ли я чем-то смогу помочь вам, потому что не вижу, что я мог бы ещё изменить в программе. 1

@irinkka 0 / 0 / 0 Регистрация: 03.01.2010 Сообщений: 13
	20.01.2010, 20:22 [ТС]
	Я всё равно Вам благодарна=) 0