Код:
Код: Выделить всё
program two;
uses crt;
type
nameStr=string[15];
link=^instrymenti;
instrymenti = record
name:namestr;
marka :namestr;
next:link;
end;
var
first,p,p1,old:link;
z: namestr;
sp: namestr;
begin
clrscr;
p := nil;
repeat
WriteLn('Введите название инструмента');
ReadLn(z);
if z ''then
begin
WriteLn('Введите марку');
ReadLn(sp);
old:=New(link);
old^.name := z; old^.marka := sp;
old^.next:=p;
p:=old;
end;
until z = '';
first := p;
WriteLn('Введите, что ищем');
ReadLn(z);
p := first;
while p nil do
begin
if p^.name = z then
Writeln('Найдено: ' ,p^.name, ' ', p^.marka);
p := p^.next;
end;
writeln('Введите, что удалять');
readln(z);
p := first;
while (p nil) and (p^.next nil) do
begin
if P^.next^.name = z then
begin
p1 := p^.next;
p^.next := p1^.next;
Dispose(p1);
end
else p := p^.next;
end;
if (first nil) and (first^.name = z) then
begin
p1 := first;
first := first^.next;
dispose(p1);
end;
{ Печатаем для проверки что осталось в списке после удалений }
p := first;
while p nil do
begin
Writeln('instrument=',p^.name, ' marka=', p^.marka);
p := p^.next;
end;
end.