|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.04.2011, 17:06 | #11 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Игорь, это все ерунда))) результаты-то хоть совпадают?
Roky на конкурс ничего не прислал? может кода немного или денег? предлагаю определить победителей по номинациям САМЫЙ: 1. короткий код, 2. быстрый алгоритм, 3. оригинальный алгоритм. Roky, пока количество премий только 3 - лучше обьявиться самому, добровольно. Когда судебные исполнители придут описывать имущество в пользу победителей конкурса - будет уже поздно.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
28.04.2011, 17:13 | #12 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Результаты тютелька в тютельку
Самый оригинальный у меня. И букв больше всего тоже у меня Но UDF тоже вон из ряда))) Чтоб на скорость проверить - это опять нужно диапазон менять И наполнять его данными, что в лом... Уже сложил всё в один файл, из дома разошлю. А почему 3 премии? Вариантов уже 5 - Roky придётся пятерым платить... Или премии только призовым местам, а остальным грамоты будем выдавать?
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 28.04.2011 в 17:20. |
28.04.2011, 17:54 | #13 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Появился 6-ой конкурсант. Проверить пока не могу - не рассчитано на XL2000, но приз за оригинальность уже его.
Схожих с остальными кодами 2 строки: Set rng = [a1].CurrentRegion и MsgBox "Максиминное значение " & a & vbCrLf & _ "строка " & r.Row & vbCrLf & _ "столбец " & r.Column Описка видать по Фрейду , Николай?
webmoney: E265281470651 Z422237915069 R418926282008
|
28.04.2011, 18:31 | #14 | |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Цитата:
Кстати, вместо rng лучше With [a1].CurrentRegion. |
|
28.04.2011, 20:27 | #15 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Принято. Но в коде есть упущение - цифры могут быть неуникальные. Так при проверке и вышло - определяет верно, но находит первое попавшееся. Но с уникальными должно быть красиво!
Высылаю всё, что есть, всем, кто есть в моём почтовом клиенте
webmoney: E265281470651 Z422237915069 R418926282008
|
28.04.2011, 21:01 | #16 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Самое интересное , что алгоритмы абсолютно разные
Я представляю лицо преподавателя, если студент принесет шесть различных алгоритмов
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
28.04.2011, 21:53 | #17 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Я думаю.он не принесет ни одного.
Да направление мыслей у всех разное
Анализ,обработка данных Недорого
|
29.04.2011, 10:03 | #18 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Уже семь.
Я бы этому седьмому коду от MCH отдал все три приза даже без замера скорости. Как оно работает, пока не понял Покажу ядро - куда вставить и как получить результат пусть студент додумает сам: Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
29.04.2011, 14:15 | #19 |
Форумчанин
Регистрация: 21.11.2010
Сообщений: 326
|
Игорь, собственно алгоритм аналогичен тому, который приведен в UDF
толко вместо циклов: for i=1 to n: for j=1 to m используется цикл for each a in ... и соответственно a.row, a.column вместо i, j Всю остальную обвязку украл из поста, когда ты приводил выдержки из решения Николая |
29.04.2011, 16:05 | #20 | |
Форумчанин
Регистрация: 21.11.2010
Сообщений: 326
|
Цитата:
тело можно записать так: Код:
Исправления (2 варианта) отправил на почту. Кроме того макрос будет работать только если данные находятся в А1 и ниже/правее, как это обойти пока не знаю, т.к. не силен в VBA |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TurboPascal: графы, матрицы смежности и матрицы инцидентности. | ulala | Помощь студентам | 1 | 03.03.2011 19:28 |
Ф-ия, определяющая сумму строк матрицы, если на главной диагонали матрицы имеется отрицательный эл-т. | Volk_xD | Помощь студентам | 6 | 05.01.2011 13:39 |
Матрицы:функция изменения порядка столбцов матрицы | Fajyz | Помощь студентам | 0 | 13.01.2010 09:40 |
На главную диагональ матрицы поместить наибольшие элементы этой матрицы | mivel | Помощь студентам | 2 | 23.12.2009 21:19 |