Создание списка. Удаление элементов из списка

Первое число: -12

Следующее число: 17

Следующее число: -3

Следующее число: 5

Следующее число: 0

Введено чисел: 4

Введенные числа:

5 -3 17 -12

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

Удаляемый элемент: 17

Новый список:

5 -3 -2 -12

Удаляемый элемент: 5

Новый список:

-3 -2 -12

Удаляемый элемент: 10

Такого элемента в списке нет

Список:

-3 -2 -12

Удаляемый элемент: 0

Список:

-3 -2 -12

Программа:

Program Spisok;

Uses CRT;

Type TPoint = ^TElement;

TElement = Record

Inf: Integer;

Next: TPoint;

End;

Var head, q, r : TPoint;

poisk: Integer;

flag: 0..1; флаг поиска (0 – элемент не найден)

New(q); формируем первый элемент

Write(‘Первое число: ’);

q^.Next := head^.Next;вставляем его в голову списка

head^.Next := q; в head^.Next адрес головы списка

Repeat

New(q);формируем очередной элемент

Write(‘Очередное число: ’);

ReadLn(q^.Inf);вводим его информационную часть

If (q^.Inf=0) если ввели 0,

Then Break;то выходим из цикла ввода

head^.Inf := head^.Inf + 1;увеличиваем счетчик элементов на 1

q^.Next := head^.Next;вставляем элемент в голову списка

head^.Next := q;в head^.Next адрес головы списка

Until (q^.Inf = 0);

Procedure Vyvod_spisok; процедура вывода списка

q := head^.Next;текущую ссылку – на первый элемент

While (q <> Nil) Doпока не конец списка

Begin

Write(q^.Inf:5); выводим очередной элемент

q := q^.Next; ссылку – на следующий элемент

End;