У меня возникла проблема с решением задачи на паскал по теме линейные списки

[Cooller51190]

необходимо Составить программу, которая удаляет из списка L за каждым вхождением элемента E один элемент, если таковой имеется, и он отличен от L. как мне реализовать это помогите пожайлуста

[Cooller51190]

program formirovanie_imen_spiska;

uses crt;

const
   n=5;

type
   pt = ^elem;
      elem = record
      data:string;
      next:pt;
      end;

var
   first:pt;
   o:string;

procedure ins_start(var first:pt);
   var
      t:pt;
      i:integer;
      x:string;
   begin
      for i:=1 to n do begin
         New(t);
         Writeln('Vvedite ',i,' familiu spiska');
         Readln(x);
         WriteLn;
         t^.data:=x;
         t^.next:=first;
         first:=t;
         end;
      end;

procedure print(var first:pt);
   var
      t:pt;
   begin
      t:=first;
      repeat
         write(t^.data,'  ');
         t:=t^.next;
         until t=nil;
      end;

begin
   clrscr;
   first:=nil;
   ins_start(first);
   print(first);
  writeln;
   Writeln('Vvedite ');
    readln;
   end.

Это код для создания списка. Как а вот как удалить 1 элемент списка после которого я введу?

[Cooller51190]

ауууу помогите кто нибуть

[Cooller51190]

мне надо ток помощь в одной процедуре удаления, решение половины итак есть.....

[Nowar]

Это такая формулировка задачи была?

Составить программу, которая удаляет из списка L за каждым вхождением элемента E один элемент, если таковой имеется, и он отличен от L.

При чём тут тогда

Writeln('Vvedite ',i,' familiu spiska');

? Какую такую фамилию списка просит ввести программа? Что значит, отличен от L? Что это вообще за список? Или, может, это меня ночью глючит?...
Можете точную формулировку задачи написать?

[Cooller51190]

по поводу формулировки это именно такая и есть в задаче..... а проще могу объеснить так... дан список элементов точнее эти элементы вводятся вручную собственно оттуда и есть Writeln('Vvedite ',i,' familiu spiska'); после необходимо ввести также с клавиатуры элемент который есть уже в этом списке и после которого необходимо удалить 1 элемент вот...

[Serge_Bliznykov]

Cooller51190, Вам о другом говорят. Вы бы сделали заполнение списка (хотя бы константами, прямо в теле программы.
Потом организуйте ввод элемента, после которого надо удалить...

которая удаляет из списка L за каждым вхождением элемента E один элемент, если таковой имеется, и он отличен от L.

а задание Вы либо неправильно цитируете, либо неверно истолковываете...
Во-первых, удалять надо не один элемент, а КАЖДЫЙ, а во-вторых, что означает "отличен от L" ?! Что такое L?
Мне кажется надо читать так:
Ввести элемент E и удалить из списка L за каждым вхождением элемента E один элемент, если таковой имеется, и он отличен от E.


p.s. А вот собственно удалить элемент в списке, уж поверьте мне, сделать совсем несложно...

[Nowar]

program test;

type
pt = ^elem;
      elem = record
      data:string;
      next:pt;
      end;

procedure addItem(var list: pt; item: string);
begin
  if list=nil then begin
    new(list);
    list^.next:=nil;
    list^.data:=item;
  end else begin
    addItem(list^.next,item);
  end;
end;

procedure deleteElement(var list: pt; item : string);
var
  tmp: pt;
begin
  if list<>nil then begin
    if list^.next<>nil then begin
      if (list^.data=item) and (list^.next^.data<>item) then begin
        list^.next^.data:='';
        tmp:=list^.next^.next;
        dispose(list^.next);
        list^.next:=tmp;
      end;
      deleteElement(list^.next,item);
    end;
  end;
end;

procedure printList(list: pt);
begin
  if list<>nil then begin
    WriteLn(list^.data);
    printList(list^.next);
  end;
end;

procedure freeMemory(var list: pt);
begin
  if list<>nil then begin
    freeMemory(list^.next);
    list^.data:='';
    dispose(list);
    list:=nil;
  end;
end;

var
  E: string;
  element: string;
  spisok: pt;
begin
  spisok:=nil;
  Write('E=');
  ReadLn(E);
  WriteLn('Vvodite elementi spiska, pustaya stroka - okonchanie vvoda');
  repeat
    readln(element);
    addItem(spisok,element);
  until element='';
  deleteElement(spisok,E);
  WriteLn('');
  printList(spisok);
  freeMemory(spisok);
  readln;
end.