ВУЗ:
Составители:
Рубрика:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 17
- 18
- 19
- 20
- 21
- …
- следующая ›
- последняя »