Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Delphi] Линейные списки. создать процедуру


Автор: Blondy 15.2.2008, 18:49
Пожалуйста, помогите! Мне нужно создать процедуру для включения одного линейного списка в конец другого линейного списка

Автор: THandle 15.2.2008, 21:04
Blondy, что то не очень понятно. Какие линейные списки? Они уже есть? или тоже надо писать? Если есть, то пожалуйста, код в студию. А добавление в конец это я так понимаю сделать из двух один?

Автор: Ripper 15.2.2008, 21:27
Если есть два списка, то нужно в первом перемотать временный казатель под конец, взять и присвоить указатель последнего элемента 1 списка на голову второго, разве не так? Я просто в синтаксисах путаюсь, но вроде это просто либо я дико туплю

Автор: Hang 15.2.2008, 21:30
Blondy, можно подробнее!!!

Автор: Greblin 16.2.2008, 12:36
Ну что-то примерно такое
Код

var p, head1, head2: TPtr;
p := head1;
while (p^.next <> nil) do p := p^.next;
p^.next := head2;

Автор: THandle 16.2.2008, 15:43
Ripper, всё правильно. Я что то ступил сначала. smile 

То есть добавляешь как будто новый элемент в 1 список, и этим элементом является 1 элемент второго списка.

Автор: Blondy 17.2.2008, 19:24
Видимо списки надо самим создавать, потому что нам ничего кроме того задания не дали... но до меня кажется дошло! 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)