Основы программирования. Динамические массивы. Списки. Ассоциативные массивы. Деревья. Хеш-таблицы - 19 стр.

UptoLike

Составители: 

21
function List.Last: DataType;
begin
Assert(not IsEmpty);
Result:=l.data;
end;
function List.ToString;
var v: PNode;
begin
v:=f;
Result:='';
while v<>nil do
begin
Result:=Result+IntToStr(v.data)+' ';
v:=v.next;
end;
end;
function List.Find(x: DataType): boolean;
var v: PNode;
begin
v:=f;
Result:=False;
while v<>nil do
begin
if v.data=x then
begin
Result:=True;
break;
end;
v:=v.next;
end;
end;
procedure List.Remove(x: DataType);
begin
MoveFirst;
while not Eol do
if Current=x then
Delete
else Next;
end;
// Методы, реализующие
внутренний итератор
function List.GetData: DataType;
begin