procedure LtCreat (var L : List);
Первая процедура относится к категории так называемых стандартных процедур хотя в нашей реализации она не имеет особого смысла. Это процедура
LtCreat- создать список. После выполнения этой процедуры, создается пустой список. Т.Е. не содержащий элементов, и обе его адресные части никуда не видут.
procedure LtInsert (var L:list; NewElem: Ltem);
Эта процедура добавляет новый элемент в указанное место списка. В случае, если список не создан процедура LtInsert создает элемент, который становиться первым элементом списка.
procedure LtDelete (var L: list);
процедура LtDelte удаляет указанный элемент списка, предусловием для выполнения данной процедуры будет созданный список.
function LtCurent (var L: list):Ltem;
Функция LtCurent возвращает значение текущего элемента списка, предусловие созданный список. Переменной которой будет присвоено значение этой функции естественно должно быть того же типа, что и информационная часть элемента списка.
procedure LtReplace (var L:List; NewElem: Ltem);
Процедура LtReplace заменяет информационное значение текущего элемента на значение переменной NewElem, предусловие - список создан.
procedure LtGoNext(var L:list);
Процедура LtGoNext позволяет перейти на следующий элемент списка. Предусловие список создан, следующий элемент существует.
procedure LtGoPreor(var L: list);
Процедура LtGoPreor позволяет перейти на предыдущий элемент списка. Предусловие список создан, предыдущий элемент существует.
procedure LtGoBegin(var L: list);
Процедура LtGoBegin переходит на первый элемент списка. Предусловие список L - создан.
procedure LtGoEnd(var L : list);
Процедура LtGoEnd переходит на последний элемент списка. Предусловие список L - создан.
function LtAtBegin(var L : list) : boolean;
Функция LtAtBegin возвращает значение true, если текущий элемент списка является первым элементом. Предусловие список L - создан.
function LtAtEnd(var L:list): boolean;
Функция LtAtEnd возвращает значение true, если текущий элемент списка является последним элементом. Предусловие список L - создан. procedure LtClear(var L:list);
Процедура LtClear удаляет все элементы списка.
procedure LtShow(var L:list; var I :longint);
процедура LtShow выводит значения всех элементов списка. Предусловие список L - создан___________________________________________________________________
Авторские права © 2000, Hunter'у Переработано 08.01.05 Ваши отклики и пожелания пишите мне
