Списки, простая задачка, доделайте пожалуйста! Pascal.
Добавлено: 16 май 2008, 20:47
Доделайте пожалуйста лабу, препод подсказал немного, я тут набросал... Но чет не то...
Описать процедуру или функцию, которая:
Добавляет в конец списка L1 все элементы списка L2.
Сделайте пожалуйста, чтоб это заработало как полноценная работа. 
мало времени... Спасибо!..
Описать процедуру или функцию, которая:
Добавляет в конец списка L1 все элементы списка L2.
Код: Выделить всё
procedure create (n,k:integer);
tupe person=record;
f,l:string;
end;
var L1:array[1..1000] of person;
L2:array[1..1000] of person;
i:integer;
begin
for i:=1 to n do
with L1[i] do
readln(f);
readln(l);
end;
for i:=1 to k do
with L2[i] do
readln(f);
readln(l);
end;
end;
begin
for i:=1 to k do
begin
L1[n+i].f:=L2[i].f;
L2[n+i].l:=L2[i].l;
end; n:=n+k;
end;