Файл: 2. Лекции Паскаль (Часть 2).doc

Очень частая операция – поиск в списке элементов с заданным значением ключевого поля х. Так же как в случае файлов, поиск ведется последовательно. Он заканчивается либо когда элемент найден, либо когда достигнут конец списка.

{поиск в линейном списке}

Procedure Search (first: point; x: integer; var q: point);

{q – звращает указатель на найденный элемент; q – nil, если элемент с ключем х в списке нет}

var r: point;

ok: boolean;

begin

r: = first; ok: = true;

while (r<>nil) and ok do

if r^. Number = x then

ok: = false;

else r: = r^. Next; q: = r

end;

Включить элемент в список

Элемент нужно включить в середину списка после элемента, на который указывает ссылка q. Процедура включения записывается следующим образом.

{включить элемент в середину списка перед q^}

Procedure Insert (Var q: point; x: integer):

{х – значение информационного поля включаемого элемента}

Var r: point

Begin

New (r); {размещаем элемент в памяти}

R^. Number: = x;

{меняем ссылку}

r^/ next: = q^. Next; q^. Next: = r

end;

Если требуется включить перед элементом q^, а не после него, то кажется, что однонаправленная цепочка связей создает трудность, поскольку нет “прохода” к элементам, предшествующим данному. Однако эту проблему можно решить, используя простой прием, который состоит в том, что новый элемент вставляется после q^, но затем происходит обмен значениями между новым элементом и q^.

{включить элемент в середину списка перед q^}

Procedure insert Before (Var q: point; x: integer);

Var r: point;

Begin

New ( r ); {размещаем элемент памяти}

{включаем элемент после q^}

r^. Next: = q^. Next; q^. Next: = r;

{выполняем обмен значениями}

r^. Number: = q^. Nunber;

q^. Number: = x

end;

Удалить элемент из списка

Посмотрим как удаляется элемент из середины списка. Следует иметь в виду, что этот довольно очевидный и простой прием можно применять только в случае, когда y q^ есть последующий элемент, т.е он не является последним в списке.

Предположим, что надо удалить элемент, расположенный после элемента, на который указывает ссылка q

{удаление элемента из середины списка после q^}

Procedure Del (Var q: point);

Var r: point;

Begin

r: = q^. Next;

q^. Next: = q^. Next;

r^. Next: = nil

End;

Если следует удалить элемент на который указывается ссылка q, то следует в начале присвоить элементу q^ значение следующего за ним элемента, а затем этот элемент удалить.

{удаление элемента q^}

Prrocedure Deiet (Var q: point):

Var r: point;

Begin

r: = q^. next;

q^: = r^;

r^. Next: = nil; End;

Обратите внимание на то, что удаляемый из списка элемент остается в памяти и к нему имеется доступ к указателю r, так что в дальнейшем этот элемент можно вставить, например, в другой список. Если требуется освободить занимаемую этим элементом память, то следует выполнить

Dispose ( r );

r : = nil

Лабораторная работа № 13.

Исключение элементов списка.

Цель задания:

1. Ознакомиться с возможностью выполнения операции исключения элементов из списка.

2. Закрепление навыков использования переменных ссылочных типов данных.

Постановка задачи:

Составить список учебной группы, содержащей 20 учащихся.
Указать для каждого учащегося оценки, полученные на четырех экзаменах.
Разработать программу, которая вводит с экрана данные о каждом учащемся и заносит эти данные в однонаправленный список.

Обработать список согласно конкретному варианту.

Содержание отчета:

Постановка задачи.
Текст программы и результаты ее выполнения.

Образец выполнения работы.

Лабораторная работа № 13.

Исключение элементов списка.

Цель задания:

1. Ознакомиться с возможностью выполнения операции исключения элементов из списка.

2. Закрепление навыков использования переменных ссылочных типов данных.

Постановка задачи:

Составить список учебной группы, содержащей 20 учащихся.

Указать для каждого учащегося оценки, полученные на четырех экзаменах. Разработать программу, которая вводит с экрана данные о каждом учащемся и заносит эти данные в однонаправленный список.

Обработать список согласно конкретному варианту.

Содержание отчета:

1. Постановка задачи.

2. Текст программы и результаты ее выполнения.

Вариант задания:

Одна оценка 4, а остальные 3.

Текст программы:

{Исключение элементов из списка}

Program ExludingelementsFromList;

Uses CRT;

Type

PStudents= ^TStudents;

TStudents= Record

Name: String[20];

Marks: Array [1..4] of ShortInt;

Next:PStudents;

End;

Var

PS:PStudents; {указатель на последний элемент списка в статической памяти}

{ Процедура заполнения списка }

Procedure Init;

Var

i,y:Integer;

pro:PStudents;

Label

Exits;

Begin

PS^.Next:=nil; {последний элемент списка}

y:=1;

While true Do Begin

New(pro); {выделяем память под переменную с указателем pro}

{Присваиваем значение переменной}

WriteLn('Введите Ф.И.О. ',y,'-го студента, "Enter" - завершение программы');

ReadLn(pro^.Name);

If pro^.Name='' Then GoTo Exits;

WriteLn('Введите оценки студента (всего 4)');

For i:=1 To 4 Do ReadLn(pro^.Marks[i]);

pro^.Next:=PS; {записываем в поле Next указатель на предыдущий элемент}

PS:=pro; {указателю на голову списка присваиваем новое значение

т.е значение текущего элемента}

Inc(y);

End;

Exits : End;

{Процедура удаления элементов из списка }

Procedure Removing;

Var

Head,p1,p2:PStudents;

i,e3,e4:ShortInt;

Label

Exits;

Begin

head:=PS; {первый элемент-голова списка}

p2:=PS; {текущий указатель}

p1:=PS; {указатель на предыдущий элемент}

While True Do Begin

e4:=0; e3:=0;

For i:=1 to 4 Do Begin {подсчет оценок}

If p2^.Marks[i]=4 Then inc(e4);

If p2^.Marks[i]=3 Then inc(e3);

End;

If (e4=1) And (e3=3) Then {проверка условия на удаление}

If (Head=P2) Then Begin {если удаляемый элемент - голова списка}

PS:=PS^.Next; {новая голова}

Dispose(p2); p2:=PS; p1:=PS; Head:=PS;

End

Else Begin {если элемент в середине списка}

p1^.Next:=p2^.Next; {полю Next предыдущего элемента

присваиваем указатель следующего за текущим}

Dispose(p2); p2:=p1^.Next; {уничтожаем ссылку на текущий элемент}

End

Else Begin

p2:=p2^.Next;{если ничего не удалялось

передвигаем указатель на следующий элемент}

p1:=p1^.Next; {передвигаем указатель предыдущего элемента}

End;

If (p2=nil) Then GoTo Exits;

End;

Exits:End;

{Процедура вывода на печать списка }

Procedure PrintOut;

var

p1:PStudents;

Label

Exits;

Begin

p1:=PS;

While True Do Begin

WriteLn(p1^.Name);

If p1^.Next=nil Then GoTo Exits;

p1:=p1^.Next;

End;

Exits:End;

{Тело программы }

Begin

Init;

Removing;

PrintOut;

WriteLn('Нажмите любую клавишу...');

Repeat Until KeyPressed;

End.