Реферат: Основы программирования
while tcurr <> nil do
begin
if test(tcurr^.inf)=false then
begin
temp:=tcurr;
tcurr:=tcurr^.next;
end
else
begin
if tcurr=first then
begin
first:=temp^.next;
end
else
begin
temp^.next:=tcurr^.next;
tcurr:=temp;
end;
end;
end;
end;
Function Deleting_f_end(first:pitem; test:t_test):pitem;
var tcurr,temp : pitem;
begin
tcurr:=first;
temp:=first;
while tcurr <> nil do
begin
if test(tcurr^.inf)=false then