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

[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]

Так вставляется новый элемент в конец списка:

USES CRT;
  TYPE
  
  EL=^ZAP;
  ZAP=Record
    INF1:integer;
    INF2:string;
    Next:EL;
  END;


VAR
  First, P, Q, T: EL;


Procedure Create_new_element (Var P:EL);
Var
  s:string;
  a,b:integer;
Begin
  clrscr;
  NEW(P);
  writeln('Введите табельный номер:');
  readln(p^.INF1);
  writeln('Введите фамилию сотрудника:');
  readln(p^.INF2);
  p^.Next:=NIL;
End;


procedure Insert_end_list(P:EL; VAR First:EL);
Begin
  IF First=NIL then
    First:=p
  ELSE
    begin
      Q:=First;
      While Q^.NEXT<>NIL do
        Q:=Q^.NEXT;
      Q^.NEXT:=p;
      p^.NEXT:=NIL;
    end;
End;


procedure Insert_begin_list(P:EL; VAR First:EL);
Begin
  IF First=NIL then
    begin
      First:=p;
      p^.Next:=NIL;
    end
  ELSE
    begin
      p^.Next:=First;
      First:=p;
    end;
End;

begin
  Create_new_element(p);
  Insert_begin_list(p,First);
end;

Так ты формируешь 2 списка, потом делаешь, что я расписал выше, а потом вывод на экран

Сообщение отредактировано: Renbo - 14.05.2007 23:39