Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Простенькая задачка по спискам. |
| Diver |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация:  0   |
Помогите плз написать 2 задачки по спискам, тк я сам в них вообще не соображаю.
Это моя самая не любимая тема ). 1. Написать процедуру, которая формирует список L, включая в него по одному разу элементы, которые входят в один из списков L1, L2, но в то же время не входят в другой. 2. Написать программу, которая переставляет местами последующий и предыдущий элементы относительно заданного. Заранее благодарен. |
   |
 
|
| klem4 |
Сообщение
#2
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Diver |
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Первая проблема в том, что я не могу рандомно присвоить элементы в список Л1 и Л2.
Например нужно чтоб в списке было 15 элементов. Пробовал сделать циклом, а оно не пашет. Поэтому решил обратиться к вам. |
|
|
|
| volvo |
Сообщение
#4
|
|
Гость |
Diver, чтобы иметь возможность заполнять списки, нужно сначала реализовать их функциональность (объекты или процедуры, что-то из этого ты должен сделать)...
списки ООП Здесь я приводил ООП-реализацию списков, которую очень просто изменить так, чтобы списки заполнялись рандомно... Если же у тебя есть другая реализация - приведи ее... |
|
|
|
| Diver |
Сообщение
#5
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Да я вроде новый список создал, а вот элементы кроме первого не пишутся.
Просто я в списках ничего не понимаю, еще блин и эти указатели там взялись. Ну делать нечего буду пытаться сделать. |
|
|
|
| APAL |
Сообщение
#6
|
 Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Может все таки стоит сюда выложить то что сделал, а то говорим ни очем...
-------------------- |
|
|
|
| Diver |
Сообщение
#7
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Вот та часть программы которую я сумел смастерить.
Прикрепленные файлы 
111.PAS ( 1.52 килобайт )
Кол-во скачиваний: 257 |
|
|
|
| Diver |
Сообщение
#8
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Вроде с рандомом разобрался, а вот как сделать поиск в списках?
Чтоб не совпадающие элементы в списках 1 и 2 записывал в 3 список. Прикрепленные файлы
111.PAS ( 2.31 килобайт )
Кол-во скачиваний: 259 |
|
|
|
| Diver |
Сообщение
#9
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Плиз помогите с поиском, а то в четверг уже нада сдавать.
|
|
|
|
| Diver |
Сообщение
#10
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
И еще вопросик.
Переключение на следующий элемент осуществляется так : list^.next; а на предыдущий по идеи должнобыть list^.last;но почемуто не работает. |
|
|
|
| klem4 |
Сообщение
#11
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Так у тебя список-то односторонний, и ссылка в каждом элементе только на следующий, чтобы в разные стороны "ходить", надо использовать кольцевой список, если тебе это вообще нужно ...
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Diver |
Сообщение
#12
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
У меня работа по теме: Работа с линейными односвязными списками.
Я просто не могу понять как переставить местами предыдущий и последующий элементы относительно исходного. А тут еще и первую задачу надо делать. Уже голова пухнет. Все лабы уже сдал, а по спискам не могу сделать  .Еще чуть чуть и заброшу вообще ее, нервов не хватит. |
|
|
|
| Diver |
Сообщение
#13
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Всем спасибо за внимание. Мне уже помогли так что можно закрывать тему.
|
|
|
|
|
|
Текстовая версия | 11.01.2025 4:56 |
