Форум » Обработка числовых последовательностей » 27-70 (Д. Муфаззалов, Уфа) » Ответить

27-70 (Д. Муфаззалов, Уфа)

DragonflyLif: Здравствуйте. Есть вопросы по условию задачи и по ее решению. Условие: На вход программы поступает последовательность из N натуральных чисел, каждое из которых не больше 1000. Требуется вывести цифры, встречающиеся в эти числах, в порядке неубывания частоты их появления. Если какие-то цифры встречаются одинаковое число раз, они выводятся в порядке убывания. Входные данные: На вход программе подаётся натуральное число N (N <= 1000), а затем N натуральных чисел, каждое из которых не превышает 10000. В решении этой задачи определяется "общее количество цифр во вводимых числах," а после выполняется цикл столько раз, сколько нашлось всего цифр. Но разве их не может быть очень много? Значит и цикл будет выполняться очень много раз? Я составила свой вариант решения этой задачи. И хотелось бы узнать, могут ли за нее поставить 4 балла. [pre2] var a: array[0..9] of word; j, n, i, num, s, min, h: integer; begin readln(n); for i:=0 to 9 do a[i ]:=0; for i := 1 to n do begin readln(num); while num > 0 do begin s:= num mod 10; a[s ] := a[s ] + 1; num := num div 10; end end; for i := 0 to 9 do if a[i ] <> 0 then begin s:= i; break; end; for i := s to 9 do begin min:= s; while (a[min] = 0) and (min < 9) do min:= min + 1; if a[min] = 0 then break; for j:= min to 9 do if (a[j]<>0) and (a[j] < a[min]) then min:=j; for h:= 9 downto s do if (a[min] = a[h]) and (a[h] <> 0) then begin write(h, ' '); a[h]:= 0; end; end; end. [/pre2]

Ответов - 23, стр: 1 2 All

DragonflyLif: В предыдущем сообщении программа была скопирована с ошибками. Прикрепляю ссылку на файл с этой программой http://file.qip.ru/office/RmATN5We/27_70.html

Поляков: DragonflyLif пишет: Я составила свой вариант решения этой задачи Мне не ясно, чем он лучше приведенного в разборе.

DragonflyLif: Я не утверждаю, что он лучше. Программа, очевидно, более громоздкая. Больше циклов (но в них ограниченное количество действий). Я хотела, чтобы количество действий в цикле не зависело от общего количества цифр в числах. Ведь получается, если чисел очень много, то программа будет выполняться дольше. И еще есть вопрос. Решение этой задачи, представленное на сайте является эффективным по времени? Если да, то конечно его использовать удобнее.


Поляков: DragonflyLif пишет: Я хотела, чтобы количество действий в цикле не зависело от общего количества цифр в числах. В вашем решение все равно такая зависимость есть - см. цикл for, где вводятся данные. Думаю, что вы что-то путаете. Решение этой задачи, представленное на сайте является эффективным по времени? Да.

Sidr: DragonflyLif пишет: В решении этой задачи определяется "общее количество цифр во вводимых числах," а после выполняется цикл столько раз, сколько нашлось всего цифр. Но разве их не может быть очень много? Значит и цикл будет выполняться очень много раз? Более того, ваша программа становится менее эффективна по памяти, т.к. используете больше переменных, чем Д. Муфаззалов, а сложность алгоритма приблизительно одна и та же.

Dm: Добрый вечер! Извиняюсь, что вклиниваюсь в беседу. Ради интереса глянул варианты решения программы, сразу зародился свой. В начале предлагаю в одном цикле считывать не числа, а символы. Пробелы и\или переводы строк при этом игнорировать. Тогда не придется каждый раз крутить цикл с выделением цифр из числа. Но это не главная идея. Особенно мне не понравилась идея с этой переменной count. Цифр же действительно может быть очень много. В худшем случае 40 тыс. (в варианте, как писали выше, опечатка)! Предлагаю свой вариант этого фрагмента. В худшем случае (все элементы разные и отличны от нуля) массив придется просматривать 10 раз (то есть 10 раз по 10 элементов), присваиваний тоже не более нескольких десятков (учитывая присваивания перед циклом for). [pre2] int max2, max1 = -1; do { max2 = max1; max1 = 0; for (int j=0; j<10; j++) { if (a[j] > max1) max1 = a[j]; if (a[j] == max2) { cout << j << " "; a[j] = 0; } } } while (max1>0); [/pre2]

Sidr: Dm пишет: В начале предлагаю в одном цикле считывать не числа, а символы. Пробелы и\или переводы строк при этом игнорировать. Тогда не придется каждый раз крутить цикл с выделением цифр из числа. Но это не главная идея. А можете по подробнее про символы? Ведь всё равно придётся обрабатывать строку для вычленения этих символов из ввода пользователя, или я ошибаюсь?

Dm: Sidr, если в паскале, то можно так: [pre2]var s: string[4]; ... begin readln(n); {Инициализация массива счетчиков} .... for j:=1 to n do begin Readln(s); for k:= 1 to length(s) do inc(a[ord(s[k])-ord('0')]); end; ... [/pre2]Такой подход позволяет избежать делений. На С++ можно попробовать сделать всё в одном цикле, считывать символы функцией getch(). Количество прочитанных чисел можно определять, отлавливая '\n'.

Sidr: Эхх, на Паскале... Я-то на Си пишу все задачки, поэтому мне эффективная по времени и памяти обработка строк очень трудно даётся. Ничего путного в голову не лезет...Функция atoi выведет сразу всё число в строке,чтобы она этого не делала придётся что-то придумывать мудрённое. Если рассматривать каждую строку, то для обработки опять же нужен будет либо цикл for либо while, дабы вычленять символы цифр из каждого числа.

Dm: Sidr, так надо забыть Си и его функции как страшный сон. Для чего придумали C++ и класс string? ;-) [pre2] #include <string> #include <iostream> using namespace std; int main() { string s; cin >> s; // Ввели строку for (int j=0; j<s.size(); j++) cout << s[j]; // Вывели посимвольно return 0; }[/pre2] Можно проверить на http://cpp.sh. Одни удобства на мой взгляд.

Поляков: Dm пишет: Такой подход позволяет избежать делений. Не факт, что это более эффективно. Можете доказать?

Dm: Поляков, если в худшем случае: 10 тыс. чисел, каждое равно 1000. Суммарно циклы while произведут 40 тыс. операций div и столько же mod, причём на 10 (деление и остатки на 2 можно было бы заменить сдвигами). И для каждого из чисел по 4 сравнения в условии цикла. При считывании строк также 4 сравнения в цикле for, зато 0 делений, вместо них будут лишь вычитания. Операций mod тоже 0. Можно, конечно, предположить, что массив потребует 4 операций ввода вместо одной, но это уже больше от компилятора зависит. Вводимые данные всё равно прежде буферизируются, а память считывается с опережением, так что всё также будет в кэше. Попробую определить время ввода из файла сегодня вечером и сообщу результат эксперимента.

Dm: Как и обещал, написал программу для сравнения двух вариантов ввода чисел и выделения из них всех цифр. Вариант А - считываем данные как числа, с помощью целочисленных делений и взятия остатков выделяем из них цифры. Вариант Б - считываем данные как строки, далее трактуем их как массивы цифр. Программа на PascalABC получилась такая: [pre2]const N = 100000; var a: array[0..9] of integer; f: textfile; i, x, k: integer; s: string[5]; begin assign(f, 'test.txt'); rewrite(f); for i:= 1 to N do writeln(f, random(30000)); close(f); {Вариант А} for k:= 0 to 9 do a[k]:= 0; reset(f); var d := Milliseconds; for i:= 1 to N do begin readln(f, x); while x > 0 do begin inc(a[x mod 10]); x:= x div 10 end; end; close(f); writeln((Milliseconds-d)/1000); {Вариант Б} for k:= 0 to 9 do a[k]:= 0; reset(f); d := Milliseconds; k:= ord('0'); for i:= 1 to N do begin readln(f, s); for x:= 1 to length(s) do inc(a[ord(s[x])-k]); end; close(f); writeln((Milliseconds-d)/1000); end.[/pre2] Первоначально в варианте Б я поленился вычислить заранее код символа '0', поэтому время работы получалось немного больше. В нынешнем виде результаты тестов такие (я не стал осреднять, разница от теста к тесту ничтожно мала): [pre2] вариант А: 0.039 вариант Б: 0.046 [/pre2] Но простая замена string[5] на string сразу всё меняет: [pre2] вариант А: 0.039 вариант Б: 0.015 [/pre2] Так что, как я и предполагал, многое зависит от компилятора и "мелочей" в коде. Хотя и нет многократного выигрыша в эффективности, вариант Б более универсален. Если на входе будут большие числа, алгоритм со строками даже не придется особо менять.

Поляков: Dm пишет: Хотя и нет многократного выигрыша в эффективности, вариант Б более универсален. С одной стороны. А с другой стороны, если данные уже заранее загружены в массив, другого варианта, как делением, нет. Или есть?

Dm: Если уже есть массив из чисел, разумеется, нет никакого смысла в его преобразовании в массив строк. Но если есть массив строк, то тоже сомневаюсь в целесообразности преобразовывать строки в числа. Нужно сразу считывать данные в удобном для дальнейшей обработки формате.



полная версия страницы