Задача:заштрихованная область квадратной матрицы, в заштрихованной квадратной матрице найти макс элемент |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача:заштрихованная область квадратной матрицы, в заштрихованной квадратной матрице найти макс элемент |
Анастасия |
15.02.2006 19:49
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 41 Пол: Женский Реальное имя: Анастасия Репутация: 0 |
Задача .Дана квадратная матрица 9*9 . Найти наибольший элемент и его индексы внутри заштрихованной(в прикрепленном файле -зеленой) области. (Знаю , что надо как-то формулой связать строки и столбцы(i и j), но как?).
Эскизы прикрепленных изображений |
klem4 |
15.02.2006 20:14
Сообщение
#2
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Не уверен что оптимальный вариант, но работать с этим куском можнотак :
uses crt; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
APAL |
15.02.2006 20:21
Сообщение
#3
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
... (Знаю , что надо как-то формулой связать строки и столбцы(i и j), но как?). Костяк (т.е. скелет) проги: Код For j:=5 downto 1 do For i:=6-j to 5 do Begin If m[i,j]>MaxM then Begin Begin MaxM:=m[i,j]; MaxX:=i; MaxY:=j; End; If m[10-i,j]>MaxM then Begin Begin MaxM:=m[10-i,j]; MaxX:=10-i; MaxY:=j; End; If m[i,10-j]>MaxM then Begin Begin MaxM:=m[i,10-j]; MaxX:=i; MaxY:=10-j; End; If m[10-i,10-j]>MaxM then Begin Begin MaxM:=m[10-i,10-j]; MaxX:=10-i; MaxY:=10-j; End; End; Примерно так, но у меня тут Паскаль не установлен на работе, так что требуется проверка... P.S.: Извини, Клем, отвлекали по работе, а то был бы раньше... Сообщение отредактировано: APAL - 15.02.2006 20:22 -------------------- |
Текстовая версия | 20.04.2024 14:16 |