Pointer67. Даны указатели на первый, последний и текущий элементы двух непустых двусвязных списков. Используя тип TList (см. задание Pointer59), описать процедуру AddList($$L_1$$, $$L_2$$), которая добавляет все элементы из списка $$L_2$$ (в том же порядке) в конец списка $$L_1$$; в результате список $$L_2$$ становится пустым. Текущим элементом списка $$L_1$$ становится первый из добавленных элементов. Оба параметра процедуры имеют тип TList и являются входными и выходными. Операции выделения и освобождения памяти в процедуре не использовать. С помощью этой процедуры добавить второй из исходных списков в конец первого и вывести адреса первого, последнего и текущего элементов объединенного списка.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
program Pointer67; type PNode=^TNode; TNode=record Data: Integer; Next: PNode; Prev: PNode; end; TList=record First,Last,Current:PNode; end; procedure AddList(var L1,L2:TList); begin if L2.First<>nil then begin if L1.First<>nil then begin L1.Current:=L2.First; L1.Last.Next:=L2.First; L2.First.Prev:=L1.Last; L1.Last:=L2.Last; end else begin L1.First:=L2.First; L1.Last:=L2.Last; L1.Current:=L1.First; end; L2.First:=nil; L2.Last:=nil; L2.Current:=nil; end; end; var L1,L2:TList; a:^Word; begin CreateList(L1.First,L1.Last); CreateList(L2.First,L2.Last); L1.Current:=L1.First; L2.Current:=L2.First; AddList(L1,L2); a:=Addr(L1.First); Writeln('L1 First: ',a^); a:=Addr(L1.Last); Writeln('L1 Last: ',a^); a:=Addr(L1.Current); Writeln('L1 Current: ',a^); end. |
Другие задачи из раздела Pointer можно посмотреть здесь.
Комментарии: