|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2016, 19:45 | #1 |
Регистрация: 27.12.2016
Сообщений: 4
|
Pascal abc: Вводится массив 4*6. Найти две строки, в которых элементы одинаковы но могут стоять в разной последовательности.
Вводится массив 4*6. Найти две строки, в которых элементы одинаковы но могут стоять в разной последовательности.
Используя основы языка. |
03.01.2017, 15:34 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Новый год продолжается, и форумцы в спячке Чтоб выйти из запоя, решил накропать для разминки пальцев и бошки. На Паскале лень, потому на Дельфи. Тем более, что спросившему это уже до фонаря, а если нет - сам перепрет в Паскаль
Изящное решение не получается, потому тупо. Можно, конечно, вспомогательный массив, в который отсортированные строчки исходного, но ну его. Код:
Последний раз редактировалось digitalis; 03.01.2017 в 15:55. |
03.01.2017, 21:31 | #3 |
Регистрация: 27.12.2016
Сообщений: 4
|
Спасибо, но в делфи совсем не шарю. Пока ждал свой код подредактировал но не работает и не могу понять почему, помогите найти ошибку
Код:
|
03.01.2017, 21:37 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Че там за алго? Сортануть строки по возростанию и сравнить их?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
03.01.2017, 21:47 | #5 |
Регистрация: 27.12.2016
Сообщений: 4
|
|
04.01.2017, 11:21 | #6 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
1. Посмотрев хотя бы пару тем форума, следовало бы заметить, как оформляются ( форматируются ) программы: с отступами, позволяющими выявить структуру проги и легко ее понять. У тебя же строем, как в казарме, и читать неохота.
2. Дельфи - это Object Pascal, если не касаться ввода-вывода, то на 98% совпадает с "обычныи" Плескалем, и функция cmpstr переносится туда 1:1. Напишешь сам ввод-вывод, 2 вложенных цикла Код:
3. Конечно, можно и через сортировку, но это лишняя загрузка. У меня введен вспомогательный булев массив tmp, чтобы не рассматривать повторно уже совпавший элемент. Так короче, я думаю. Проверено. Фурчит. Ну и в качестве мелкой придирки : в цикле один оператор - begin и end не нужен. Компилятору-то пофиг, а для чтение загромождает . Код:
Последний раз редактировалось digitalis; 04.01.2017 в 15:50. Причина: дополнение |
04.01.2017, 15:55 | #7 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Код:
|
06.01.2017, 10:50 | #8 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
А в ответ - тишина ...
|
06.01.2017, 20:04 | #9 |
Регистрация: 27.12.2016
Сообщений: 4
|
Огромное спасибо.
К замечаниям прислушаюсь |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы? (Pascal) | Soms | Помощь студентам | 3 | 16.03.2016 01:34 |
Найти m-й член последовательности / Pascal ABC | Veronika_13 | Помощь студентам | 1 | 07.07.2014 19:28 |
Найти и закрасить строки матрицы, все элементы которых различны | Kate1414 | Общие вопросы Delphi | 1 | 11.06.2014 13:18 |
Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны. Из полученных значений сформировать одномерный массив. | darwin1 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 16.03.2014 13:31 |
Создать матрицу A[1..N,1..M]. Найти две строки, в которых элементы одинаковы, но могут стоять в различной | Bapr | Помощь студентам | 7 | 11.12.2009 17:44 |