Списки, Помогите доработать... Опции

[NTL]

В слове, заканчивающемся точкой, заменить вхождение Е1 на Е2, где Е1 и Е2 - элементы одинаковой длины
(проблема в доработки процедуры ChangeElement). Помогите пожалуйста...

Код

const n=8;
Type
  point = ^MyWord;
  MyWord = record
    ch: char;
    next: point
  end;
Type massiv = array[1..n] of char;
var
   slovo:point;
   c:char;
   M,m1:massiv;
   E1,E2: string[100];
   i:integer;
{---------------------------------------------------------------------------}
Procedure VvodEl(var mas:massiv;MyStr:string);
var i:integer;
begin
     for i:=1 to length(MyStr) do mas[i]:=MyStr[i];
end;
{---------------------------------------------------------------------------}
procedure Print (first: point);
Var r: point;
begin
  R:= first;
  write('CLOBO = ');
  While r<>nil do
    begin
      Write (r^.ch);
      R:=r^.Next;
  end;
  writeln;
end;
{---------------------------------------------------------------------------}
procedure Vvod(var first: point);
var r, last: point;        
begin
    first:= nil; last := nil;

    writeln('HABEPuTE C/\OBO C "." HA KOHCE ');
  repeat  
      new( r );
      r^.next := nil;
      read(r^.ch);

      if first = nil then first := r
      else last^.next := r;

      last := r;
  until r^.ch = '.';

end;
{---------------------------------------------------------------------------}
procedure ChangeElement(first:point;C:massiv;c1:massiv);
var r,p:point;
    j:integer;
bad: boolean;
begin
    r := first;
repeat
{ while (i <= length(E2)) and (C[1] <> r^.ch) do inc(i); }
    if r <> nil then begin
    j := 1;
    p:=r;
    bad := false;
    while (p^.ch <> '.') and (not bad) do
        begin
            bad := (p^.ch) <> C[j];
            if not bad then
              begin
                  p := p^.next;
                  inc(j)
              end
        end;
        if c[j]<>#0 then r:=r^.next
        else
            begin
             r := p;
                
    {?????????????????????}
            end
    end
until r = nil
end;
{--------------------------------------------------------------------------}
begin
clrscr;
    readln(E2);
    VvodEl(m,E2);

    readln(E1);
    VvodEl(m1,E1);
    vvod(slovo);

   writeln('Start word:');
   print(slovo);
   ChangeElement(slovo,M,M1);
   writeln('Finish word:');
   print(slovo);
  readkey
end.

Сообщение отредактировано: NTL - 11.06.2007 3:32

[NTL]

up

[volvo]

Процедура нуждалась не в ДОработке, а в ПЕРЕработке:

procedure ChangeElement(first:point;C:massiv; c1:massiv);
var
  r, p: point;
  j: integer;
  bad: boolean;
begin
  r := first;
  repeat

    if r <> nil then begin
      j := 1;
      p := r;

      bad := false; r := nil;
      while (p^.ch <> '.') and (C[j] <> #0) do begin

        bad := (p^.ch) <> C[j];
        if not bad then begin
          if r = nil then r := p;
          inc(j)
        end
        else r := nil;
        p := p^.next;

      end;

      j := 1;
      while (r <> nil) and (C1[j] <> #0) do begin
        r^.ch := C1[j];
        inc(j);
        r := r^.next;
      end;
    end;

  until r = nil
end;

[NTL]

Volvo,спасибо Вам!