[Pascal] Łączenie dwóch list jednokierunkowych

[Humanista123]

Witajcie. Jak napisać procedurę w Pascalu, która łączy dwie listy w jedną? Bez sortowania. Czy coś takiego jest dobrze?

Kod: Zaznacz cały

procedure polacz (p,n:lista);

begin
p:=head;
while p<>nil then
    begin
    p:=p^.next;
    end;
n:=head;
p^.next:=head;
end.

Uprzejmie proszę o poprawienie tego kodu, albo napisanie innego. Byłbym wdzięczny

[bartek118]

Nie napisałeś nic, jak wygląda struktura lista; co ma oznaczać np. p:=head;?

Idea powinna być taka - na końcu pierwszej listy (ostatni element), ustawiam wskaźnik na początek drugiej.

[Humanista123]

Kod: Zaznacz cały

type lista=^element;
element=record
next :lista;
end;

p:=head, ma oznaczać, że odwołuję się do pierwszego elementu listy p.
Taka jest moja idea, ale mam problemy z przełożeniem tego na język Pascal.
Czy jest dobrze?

[bartek118]

Z tego, co widzę, Twoja lista nie przechowuje żadnych informacji?

Parametry p i n, które przekazujesz zawierają co? Wskaźnik na pierwszy element listy?

[Humanista123]

Tak, to miał być wskaźnik.

[bartek118]

W takim razie po usunięciu linijek n:=head i p:=head powinno działać.

[Humanista123]

Dziękuję bardzo