Линейные списки Опции

[Xrymz]

читал я фак... немного понял.. но не все...
задание...
дано два линейных списка, А1 и А2, сделать подпрограмму которая будет в конец списка А1 кидать все элементы списка А2.

накалякал я такое

program pmf;
uses crt;
type
TEl = ^El;
El = record
i: integer;
next: TEl;
end;

var
A1,A2,A3: TEl;
i1,i2,j: integer;

begin
clrscr;

Randomize;
i1:= Random(10);
writeln('Dlina spiska A1 - ', i1);
for j:=1 to i1 do  {3a/7oJIHaem A1}
begin
A1^.i:=random(10)-10;
write(A1^.i,' ');
end;
writeln;
i2:=random(10);
writeln('Dlina spiska A2 - ', i2);

for j:=1 to i2 do  {3a/7oJIHaem A2}
begin
A2^.i:=random(10);
write(A2^.i,' ');
end;

writeln;


Readln;
end.

а как функцию правельно сделать незнаю((

[Xrymz]

хм.. а можно поподробнее? =)

[Renbo]

хм.. а можно поподробнее? =)

Ты кстати кажется списки не так вообще формируешь )

Вощем к делу:
Каждый список имеет такую штуку FIRST(указатель на первый элемент). Вот тебе надо в последнем элементе списка А1 в поле с указателем на NIL(т.к. он последний) занести указатель FIRST2(указатель на первый элемент списка А). Тем самым ты установишь связь между А1 и А2, тоесть А2 будет идти следом за А1, что тебе и требуется как ты говоришь )