Полная версия: Списки
Описать процедуру которая формирует список L, включив в него по одному разу элементы которые входят хотя в один из списков L1 и L2
Сначала идешь сюда: FAQ: Списки
читаешь все внимательно, и пишешь программу. Вот если она у тебя не заработает, то приходи и скажи, где...
читаешь все внимательно, и пишешь программу. Вот если она у тебя не заработает, то приходи и скажи, где...
А вообще-то это делается вот так:
Чтобы запустить эту программу - качай файл list.rar из аттача и распаковывай в ту же директорию, где сама программа.
Код
uses item, list;
const
first: array[1 .. 10] of integer =
(1, 3, 6, 3, 8, 2, 6, 5, 3, 9);
second: array[1 .. 10] of integer =
(1, 23, 6, 83, 8, 2, 16, 5, 35, 9);
procedure add_once(var lst_from, lst_to: tlist);
var p: ptitem;
begin
p := lst_from.first;
while assigned(p) do begin
if lst_to.find(p^.info) = nil
then lst_to.append(p^.info);
p := p^.next
end
end;
var
L, L1, L2: tlist;
i: integer;
begin
L1.init; for i := 1 to 10 do
L1.append(first[i]); L1.print;
L2.init; for i := 1 to 10 do
L2.append(second[i]); L2.print;
L.Init;
add_once(L1, L);
add_once(L2, L);
L.print;
L.done;
L2.done;
L1.done;
end.
const
first: array[1 .. 10] of integer =
(1, 3, 6, 3, 8, 2, 6, 5, 3, 9);
second: array[1 .. 10] of integer =
(1, 23, 6, 83, 8, 2, 16, 5, 35, 9);
procedure add_once(var lst_from, lst_to: tlist);
var p: ptitem;
begin
p := lst_from.first;
while assigned(p) do begin
if lst_to.find(p^.info) = nil
then lst_to.append(p^.info);
p := p^.next
end
end;
var
L, L1, L2: tlist;
i: integer;
begin
L1.init; for i := 1 to 10 do
L1.append(first[i]); L1.print;
L2.init; for i := 1 to 10 do
L2.append(second[i]); L2.print;
L.Init;
add_once(L1, L);
add_once(L2, L);
L.print;
L.done;
L2.done;
L1.done;
end.
Чтобы запустить эту программу - качай файл list.rar из аттача и распаковывай в ту же директорию, где сама программа.
Цитата
Описать процедуру которая формирует список L, включив в него по одному разу элементы которые входят хотя в один из списков L1 и L2
Тебе дали ссылку, с необходимой информацией.
Если хочешь думать, читай и делай сам. Если нет, получай решение с ООП...
и разбирайся с ООП и ДСД
:PООП в массы!!!
прогу накидал но она просто пока соединяет 2 списка. Нужно реализовать проверку списков, дабы исключить повторных включений в соединенном списке. Как? 
Код
program name;
uses crt;
type
tdata=integer;
sllptr=^slltype;
slltype = record
inf:tdata;
next: sllptr;
end;
procedure Unite(var head1,head2:sllptr);
var cur: sllptr;
begin
if head2<>nil then begin
if head1=nil then head1:=head2
else
begin cur:=head1;
while cur^.next<>nil do cur:=cur^.next;
cur^.next:=head2;
end;
end;
writeln;writeln;
cur:=head1;
while cur <> nil do
begin
write(cur^.inf);
if cur^.next <> nil then write(',');
cur:=cur^.next
end;readln;
end;
var head3,head4,g:sllptr;a:integer; i,n:integer;
begin
clrscr;
writeln('vvedite kol-vo elementov spiska1');
readln(n);
writeln('vvedite element spiska1');
read(a);
new(head3);
head3^.inf:=a;
head3^.next:=nil;
for i:=1 to n - 1 do
begin read(a);
new(g);
g^.inf:= a;
g^.next:=head3;
head3:=g;
end;
writeln('vvedite kol-vo elmenetov spiska2');
read(n);
writeln('vvedite elementi spiska2');
read(a);
new(head4);
head4^.inf:=a;
head4^.next:=nil;
for i:=1 to n-1 do
begin read(a);
new(g);
g^.inf:=a;
g^.next:=head4;
head4:=g;
end;
unite(head3,head4);
readln;
end.
uses crt;
type
tdata=integer;
sllptr=^slltype;
slltype = record
inf:tdata;
next: sllptr;
end;
procedure Unite(var head1,head2:sllptr);
var cur: sllptr;
begin
if head2<>nil then begin
if head1=nil then head1:=head2
else
begin cur:=head1;
while cur^.next<>nil do cur:=cur^.next;
cur^.next:=head2;
end;
end;
writeln;writeln;
cur:=head1;
while cur <> nil do
begin
write(cur^.inf);
if cur^.next <> nil then write(',');
cur:=cur^.next
end;readln;
end;
var head3,head4,g:sllptr;a:integer; i,n:integer;
begin
clrscr;
writeln('vvedite kol-vo elementov spiska1');
readln(n);
writeln('vvedite element spiska1');
read(a);
new(head3);
head3^.inf:=a;
head3^.next:=nil;
for i:=1 to n - 1 do
begin read(a);
new(g);
g^.inf:= a;
g^.next:=head3;
head3:=g;
end;
writeln('vvedite kol-vo elmenetov spiska2');
read(n);
writeln('vvedite elementi spiska2');
read(a);
new(head4);
head4^.inf:=a;
head4^.next:=nil;
for i:=1 to n-1 do
begin read(a);
new(g);
g^.inf:=a;
g^.next:=head4;
head4:=g;
end;
unite(head3,head4);
readln;
end.
Цитата(Caries @ 20.04.05 19:07)
Нужно реализовать проверку списков, дабы исключить повторных включений в соединенном списке. Как?
"Еще раз повторю - не пытайтесь объять необъятное" (С) Козьма Прутков.
Не надо все действия производить в основной программе. Действуй по принципу "разделяй и властвуй":
program name;
uses crt;
type
tdata = integer;
sllptr = ^slltype;
slltype = record
inf: tdata;
next: sllptr;
end;
tlist = record
first, last: sllptr;
end;
procedure init_list(var l: tlist);
begin
l.first := nil; l.last := nil;
end;
procedure add_to_list(var l: tlist;
element: tdata);
var p: sllptr;
begin
new(p);
p^.inf := element;
p^.next := nil;
if l.first = nil then l.first := p
else l.last^.next := p;
l.last := p
end;
function present_in_list(var l: tlist;
element: tdata): boolean;
var
p: sllptr;
ok: boolean;
begin
p := l.first; ok := true;
while (p <> nil) and ok do
if p^.inf = element
then ok := false
else p := p^.next;
present_in_list := (p <> nil)
end;
procedure unite(var l_res, one, two: tlist);
var
p: sllptr;
x: tdata;
begin
p := one.first;
while p <> nil do begin
add_to_list(l_res, p^.inf);
p := p^.next;
end;
p := two.first;
while p <> nil do begin
{ вот то, что нужно: элемент добавляется к списку-результату
только если не присутствует уже в нем }
if not present_in_list(l_res, p^.inf)
then add_to_list(l_res, p^.inf);
p := p^.next;
end;
end;
var ls, ls_1, ls_2: tlist;
a: tdata; i, n: integer;
p: sllptr;
begin
clrscr;
init_list(ls_1);
writeln('vvedite kol-vo elementov spiska1');
readln(n);
for i := 1 to n do begin
write('vvedite element spiska1: '); readln(a);
add_to_list(ls_1, a)
end;
init_list(ls_2);
writeln('vvedite kol-vo elementov spiska2');
readln(n);
for i := 1 to n do begin
write('vvedite element spiska2: '); readln(a);
add_to_list(ls_2, a)
end;
init_list(ls);
unite(ls, ls_1, ls_2);
p := ls.first;
while p <> nil do begin
write(p^.inf, ' ');
p := p^.next;
end;
readln;
end.
Извиняюсь. Я не понял какую роль выполняет function present_in_list...
Объясните пожалуйста
Объясните пожалуйста
Функция проверки, присутствует ли элемент в списке...
Передаем этой функции список, в котором надо проверять (L) и значение (element), и функция вернет True если element уже присутствует в L... Иначе вернется False...
function present_in_list(var l: tlist;
element: tdata): boolean;
Передаем этой функции список, в котором надо проверять (L) и значение (element), и функция вернет True если element уже присутствует в L... Иначе вернется False...
А если мне надо чтобы входило одновременно в 2 списка?
То есть? Условие переформулируй полностью. Как оно будет звучать?
Описать процедуру которая формирует список L, включив в него по одному разу элементы которые входят одновременно в L1 и L2
Тогда Unite должна будет выглядеть так:
Все просто :yes:
procedure unite(var l_res, one, two: tlist);
var
p: sllptr;
x: tdata;
begin
p := one.first;
while p <> nil do begin
{ если этот элемент присутствует во втором списке }
if present_in_list(two, p^.inf) and
{ и еще не присутствует в результате }
(not present_in_list(l_res, p^.inf)) then
{ то добавить его к результату }
add_to_list(l_res, p^.inf);
p := p^.next;
end;
end;
Все просто :yes:
спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.