Лабораторная работа №6

Общие сведения

Type { описание списка из целых чисел }
  PList = ^TList;
  TList = record
     Inf : Integer;
     Next : PList;
  end;

Примеры

PList = ^TList;
  TList = record
     Data : Integer;
     Next : PList;
  end;
Чтобы список существовал, надо определить указатель на его начало. Опишем переменные.
Var
  Head, x : PList;

List := Head;
While List^.Next <> nil do
  begin
     WriteLn(List^.Data);
     List := List^.Next; { переход к следующему элементу; аналог для массива i:=i+1 }
  end;

List := Head; { запомним адрес первого элемента списка }
Head := Head^.List; { теперь Head указывает на второй элемент списка }
Dispose(List); { освободим память, занятую переменной List^ }
Удаление элемента из середины списка.
Для этого нужно знать адреса удаляемого элемента и элемента, находящегося в списке перед ним.
List := Head;
While (List<>nil) and (List^.Data<>Digit) do
  begin
     x := List;
     List := List^.Next;
  end;
x^.Next := List^.Next;
Dispose(List);
 Удаление из конца списка.
Оно производится, когда указатель х показывает на предпоследний элемент списка, а List – на последний.
List := Head; x := Head;
While List^.Next<>nil do
  begin
     x := List;
     List := List^.Next;
  end;
x^.Next := nil;
Dispose(List);

Контрольные вопросы

Варианты заданий

    Учебник по языку Pascal          Лабораторные работы по программированию          Справочник

---

Нет комментариев. Оставить комментарий: Ваше Имя: Email: Антибот: *   Ваш комментарий: