Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2013, 19:48   #1
S.I.D.
 
Регистрация: 16.12.2012
Сообщений: 8
Восклицание 1. Вывести все различные элементы в одномерном массиве

С помощью процедуры вывести все различные элементы в одномерном массиве
S.I.D. вне форума Ответить с цитированием
Старый 14.01.2013, 08:57   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

и в чём, собственно, у Вас проблема?
в общем случае задача может быть решана так:
организуете цикл по элементам массива, в этом цикле для каждого I-го элемента проверяете, был ли он ранее (внутренний цикл от 1 до I-1) - если был, то элемент повторяется (причём встречался ранее), выводить его не нужно, иначе, если его ранее не было - выводим. Профит.

может быть ещё варианты решения:
- с сортировкой (после того, как массив отсортирован достаточно сравнивать элемент только с предыдущим - и, если не равен, то выводить.
- при выводе элемента заменять все аналогичные элементы на недопустимое значение (значение семафор - признак того, что данное значение выводить не нужно)
- вариант с накоплением вывведенных значений (и проверкой, было ли такое значение ранее в данном списке)
и т.д. и т.п.

Но я бы Вам рекомендовал остановится на предложенном мною верхнем варианте (с вложенным циклом от 1 до I-1)
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проверить все ли элементы в массиве различны. Proskurina Паскаль, Turbo Pascal, PascalABC.NET 15 18.09.2012 03:08
проверить все ли элементы в массиве различны. Proskurina Помощь студентам 7 08.09.2012 23:36
Умножить все элементы в массиве B(15) AndreyKolesov Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 17.04.2012 21:46
в массиве все максимальные элементы заменить первым элементом, а все минимальные элементы заменить последним элементом Валерия2701 Паскаль, Turbo Pascal, PascalABC.NET 1 12.10.2011 15:49
в заданном массиве вывести все четные числа leysan Помощь студентам 2 09.12.2009 22:08