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

[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 22:35

[serega204]

спасибо...большое....если что там не так будет я потом скину прогу (в задании про повторяющиеся элементы ничего не скказано)

Добавлено через 13 мин.
там я много чего поправил, из-за того что я начал ваше сравнивать и своё набранное....там процедура удаления списка не работает и задание не выпоняется....посмотрите пожалуйста в чём я там не прав

 3_1.TXT ( 1.24 килобайт ) Кол-во скачиваний: 498




Добавлено через 36 сек.

спасибо...большое....если что там не так будет я потом скину прогу (в задании про повторяющиеся элементы ничего не скказано)

Добавлено через 13 мин.
там я много чего поправил, из-за того что я начал ваше сравнивать и своё набранное....там процедура удаления списка не работает и задание не выпоняется....посмотрите пожалуйста в чём я там не прав

 3_1.TXT ( 1.24 килобайт ) Кол-во скачиваний: 498

Program spiski; Uses Crt;
Type
    Tinf = Char;
    Tptr = ^Tlist;
    Tlist = record
    inf : Tinf;
    next : Tptr;
            end;
Var A, B : Tptr;
    n : char;

Procedure Create_list (Var L : Tptr);
Var q, p : Tptr; e : Tinf;
Begin L := nil;
while not eoln do Begin
    New(p);
    Read(e);
    p^.inf := e;
    p^.next := nil;
    if L = nil then L := p;
    q := p;
                  end;
Readln
end;

Procedure New_list (Var L1, L2 : Tptr);
Var pl_1, pl_2 : Tptr;
Begin
pl_1 := nil;  pl_2 := L1;
While (pl_1 <> nil) and (L2^.inf > pl_1^.inf) do
      pl_1 := pl_2;
      pl_2 := pl_2^.next;
 If (pl_1 = nil) then Begin
   L2^.next := L1;
   L1 := L2;
                                         end
                                   else  Begin
   L2^.next := pl_1^.next;
   pl_1^.next := L2;
   Writeln (pl_1^.inf);
  end;
end;

Procedure Delete_list (Var h : Tptr);
Var p : Tptr;
Begin
     While h <> nil do
     Begin
          p := h;
          h := h^.next;
          Dispose (p);
     end;
end;

BEGIN Clrscr;
Writeln ('Enter spisok A');
Create_list(A);
Writeln ('Enter spisok B');
Create_list(B);
Writeln ('Okonchatelniy spisok C');
New_List(A, B);
Delete_list (A); Delete_list(B);
readln;
END.