VaiLet

Всем привет!
написать программу,которая вставляет в список L элемент E1, после элемента E, если Е входит в L.
ничего не выводит(((

Вложения

11.rar (167.2 Кб, 23 просмотров)

VaiLet

помогите пожалуйста
исправила чуть-чуть, выводит но не совсем то....
очень срочно нужно
type spisok=^zveno;
zveno=record
el:string;
sled:spisok;
end;
var
L:spisok;
tec, tec1, tec2, tec1_el:spisok;
e,e1:string;
i:integer;
f:boolean;
procedure sp(E1,E:spisok; var L:spisok);
begin
;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
L:=nil;
for i:=1 to memo1.Lines.count do
begin
new(tec);
tec^.el:=memo1.Lines[i-1];
tec^.sled:=L;
L:=tec;
end;
memo1.Clear;
tec:=L;
while tec<>nil do
begin
memo1.Lines.Add(tec^.el);
tec:=tec^.sled;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin
tec2:=L;
tec1:=L;
e:=Edit2.Text;
e1:=Edit1.Text;
f:=true;
new(tec1_el);
tec1_el^.el:=e1;
while (tec1<> nil) and f do
begin
if tec1^.el=Edit2.Text
then
begin
f:=false;
tec2:=tec1^.sled;
end
else
begin
Memo2.Lines.Add(tec2^.el);
tec1:=tec1^.sled;

end;
end;

tec1_el:=tec2^.sled;
tec2^.sled:=tec1_el;
if f=false
then while tec2<>nil do
begin
Memo2.Lines.Add(tec2^.el);
tec2:=tec2^.sled;
end;
end;

end.