|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.11.2011, 10:43 | #1 |
Пользователь
Регистрация: 18.09.2009
Сообщений: 62
|
Turbo Pascal - Композиция Двух Двумерных Массивов размером 100х100
Доброго времени суток всем!
Дано: две квадратные матрицы (два двумерных массива) R и S. Требуется: сравнить первую строку массива R с первым столбцом массива S и выбрать из них минимумы. Затем сравнить первую строку массива R со вторым столбцом массива S и выбрать из них минимумы и т.д. сравнивать первую строку массива R со всеми столбцами массива S и выбирать минимумы. А потом сравнивать уже вторую строку массива R со всеми столбцами массива S и выбирать минимумы. Т.е. каждая строка массива R поочерёдно сравнивается со всеми столбцами массива S, выбираются минимумы. Потом из полученных минимумов выбрирается максимум - и он будет первым элементом нового массива RoS, который является композицией. Пример: массив R 1 0,8 0,7 0,5 0,8 1 0,9 0,6 0,7 0,9 1 0,8 0,5 0,6 0,8 1 массив S 1 0,9 0,7 0,3 0,9 1 0,3 0,2 0,7 0,3 1 0,4 0,5 0,2 0,1 0 1я строка с 1ым столбцом: (1;1) (0,8;0,9) (0,7;0,7) (0,3;0,5)=1;0,8;0,7;0,3 - минимумы; 1 - максимум из минимумов 1я строка со 2ым столбцом: (1;0,9) (0,8;1) (0,7;0,3) (0,5;0,2)=0,9;0,8;0,3;0,2 - минимумы; 0,9 - максимум из минимумов 1я строка с 3им столбцом: (1;0,7) (0,8;0,3) (0,7;1) (0,5;0,1)=0,7;0,3;0,7;0,1 - минимумы; 0,7 - максимум из минимумов 1я строка с 4ым столбцом: (1;0,3) (0,8;0,2) (0,7;0,4) (0,5;0)= 0,3;0,2;0,4;0 минимумы; 0,4 - максимум из минимумов Т.о., 1ая строка искомого массива (композиции) будет выглядеть так: RoS=1 0,9 0,7 0,4 Далее мы сравниваем 2ую строку массива R поочерёдно со всеми столбцами массива S и получаем 2ую строку искомого массива RoS и т.д.... Ну и самое интересное))) Текст моей программы: Код:
Ну,как?.. Твоё коллективное сознание уловило Message или ты по-прежнему считаешь себя Избранным?..
|
09.11.2011, 13:38 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,238
|
абсолютно не разбираясь, что Вы там "мутили" в массивах для расчётов,
просто переписав ваш (подчёркиваю, именно ВАШ код) можно легко получить такую программу: Код:
p.s. сколько я не ломал голову, так и не смог понять, какие максимумы выбираются из временных таблиц.. видимо, эта задача за пределами моего понимания... поэтому, если программа будет работать НЕПРАВИЛЬНО, то самостоятельно подправьте поиск максимума.. (ну или укажите набор исходных данных с указанием того, что (и главное, почему) собирается неверно. я поправлю код. p.p.s. О. теперь я понял. в процедуре формирования массива RoS у Вас ошибка! Вы выводите значения ДО того, как они сформируются. попробуйте после цикла заполнения (перед финальным readln; end.) вывести содержимое массива RoS "по простому". два цикла. так же, как Вы выводите исходные массивы. И Вы поймёте, о чём я говорю... Последний раз редактировалось Serge_Bliznykov; 09.11.2011 в 13:50. |
09.11.2011, 15:54 | #3 |
Пользователь
Регистрация: 18.09.2009
Сообщений: 62
|
Большое спасибо!
Ну,как?.. Твоё коллективное сознание уловило Message или ты по-прежнему считаешь себя Избранным?..
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обработка двумерных массивов | Alexxxxxx | Помощь студентам | 5 | 23.10.2011 00:07 |
обработка двумерных массивов... | Mizantrop | Помощь студентам | 2 | 25.03.2010 09:11 |
Гики двумерных массивов | Кипящий чайник | Общие вопросы C/C++ | 13 | 02.02.2010 13:25 |
Умножение двух чисел в p-ичной системе счисления - turbo pascal | oxygen2007rus | Помощь студентам | 1 | 13.12.2009 16:00 |
Обработка двумерных массивов | Kreigen | Помощь студентам | 3 | 29.11.2009 10:50 |