Задачи на списки Опции

[Nastas'ka]

Уже месяц не могу решить задачу. а сдать надо было давно, может кто-нидь поможет
Текст задачи: В списке L заменить первое вхождение списка L1 на список L2. Решить задачу на однонаправленный список, на двунаправленный и кольцевой.Простым методом и рекурсивным. Помогите хотя бы простым методом на однонаправленный список, дальше может сама разберусь ;)

[klem4]

Вот решение, но может быть ошибка, так как сам делал задачу на списки первый раз в жизни ;) Так что кто увидит баг, кричите :yes:

Только я обозначения перепутал, в моей программа ищется первое вхождение L2 в L1 и заменяется на L

uses crt;
type
   point = ^item;
   item = record
      number : integer;
      next   : point;
   end;

var
   L, L1, L2, temp : point;

procedure InitItem(var P : point);
var
     first : point;
   n,num : integer;

begin

   write('n='); readln(n);

   first := nil;

   while(n>0) do begin

      new(P);

      P^.next := first;

      write('Item[',n,']=');
      readln(num);

      P^.number := num;

      first := P;

      dec(n);

   end;

end;

procedure PrintItem(P : point);
begin
   while(p<>nil) do begin
      writeln(p^.number);
      p := p^.next;
   end;
end;

function FindFirstP(a, b : point) : point;
var
   res, aBack, bBack : point;
begin

   res := nil;

   aBack := a;
   bBack := b;

   while (a<>nil) and (b<>nil) and (res=nil) do begin

       res := nil;

       while (a<>nil) and (a^.number<>b^.number) do
        a := a^.next;
        aBack := a;

       if (a<>nil) then begin

           res := a;

           while (a<>nil) and (b<>nil) and (a^.number=b^.number) do begin
               a := a^.next;
               b := b^.next;
           end;

           if (b<>nil) then begin
               res := nil;
               b := bBack;
               a := aBack;
               a := a^.next;
           end
       end;
   end;

   FindFirstP := res;

end;

procedure ReformItem(a, b, p : point);
begin
   a := p;
   while (a<>nil) and (b<> nil) do begin
      a^.number := b^.number;
      a := a^.next;
      b := b^.next;
   end;
end;

Begin

   clrscr;

   writeln('L1 : ');
   InitItem(L1);
   writeln;
   writeln('L2 : ');
   InitItem(L2);
   writeln('L3 : ');
   InitItem(L);
   writeln;

   temp := FindFirstP(L1, L2);
   if temp = nil then
    writeln('No')
   else begin
       writeln;
       ReformItem(L1, L, temp);
       PrintItem(L1);
   end;

   readln;
End.

Сообщение отредактировано: klem4 - 20.10.2005 20:07