помоги пожалуста со списками, очень надо Опции

[serega204]

Помогите написать программу. Реализовать два однонаправленных линейных списка, элементы в которых символьного типа. Сформировать список из элементов, которые входят только в один из списков.

[amega]

а с чего ты решил, что оно к тебе, амега?

чет я ступил

и так пишем процедуру добавления

procedure addtolist(var start:TPRec, newel:TPRec);
var 
  wp,pp:TPRec;
begin
pp:=nil;
wp:=start;
{ищем место вставки нашего елемента}
while (wp<>nil) and (newel^.ch > Wp^.ch) do
 begin
    pp:=wp;
    wp:=wp^.next;
  end;
{проверям указатель пп(пред поинт), если он = нил то єто значит что у нас нет элементов в списке,
либо вставляемый элемент меньше первого}
if pp=nil then
  begin
     newel^.next:=start;
     start:=newel;
  end
else
  begin
    newel^.next:=pp^.next;
    pp^.next:=newel;
  end;
end; 

как видим нет никаких процедур сортировки!

да в списке могут бить повторяющие елементы?

Сообщение отредактировано: amega - 9.10.2009 18:35