Список - это набор связанных между собой динамических элементов.
Элемент односвязной динамической структуры данных состоит из двух полей: информационного и указательного и описывается через тип «запись»:
Type Tptr =^Telem;
TElem= Record
info: integer;
next: Tptr {указатель}
end;
Очередь - это частный случай линейного односвязного списка, для которого разрешены только два действия: добавление элемента строго в конец списка, а извлечение (удаление) - строго из начала (головы) очереди.
Стек - это частный случай линейного односвязного списка, для которого разрешено добавлять или удалять элемент только с одного конца списка, который называется вершиной стека.
Пример. Задать списком строку, заканчивающуюся точкой. Подсчитать число цифр в ней.
Program pos04din;
Type
sv{связь}=^zv; {звено строки}
Zv = record
info: char; {Информационное поле}
next: sv {Указатель на следующий элемент}
end;
Var
P {Указатель на начало}, t {Указатель на текущее звено}: sv;
sym: char;
k: integer; {Количество цифр}
BEGIN
{Ввод строки и представление ее в виде цепочки}
Writeln('Введи первый символ ');
read(sym); {Формирование первого звена}
new(p);
p^.info:=sym;
p^.next:=nil;
t:=p; {Подготовка к циклу формирования остальных звеньев}
Write('Введи остальные символы и точку ');
while sym<>'.' do {Цикл обработки последовательных литер строки}
begin
read(sym);
new(t^.next);
t:=t^.next; {адрес следующего элемента}
t^.info:=sym;
t^.next:=nil;
end; {Исходное слово представлено в виде цепочки}
k:=0; t:=p;
while t<>nil do
begin
if (t^.info>='0')AND(t^.info<='9') then k:=K+1;
t:=t^.next
end;
Writeln;
Writeln('Цифр в строке - ',k);
END.
Задание 1 (программа 15_1)
1. Используя динамическую структуру список, подсчитать количество русских строчных букв в строке.
2. Используя динамическую структуру список, проверить, является ли он упорядоченным набором чисел.
3. Используя динамическую структуру список, подсчитать количество цифр в заданном наборе символов.
4. В деке задать слово. Определить, является ли оно словом-перевертышем.
5. Сформировать динамический список из элементов целого типа. Удалить из него отрицательные элементы. Распечатать исходный и результирующий списки.
6. Найти сумму четных элементов списка, состоящего не менее чем из двух элементов.
7. Используя динамическую структуру список, подсчитать сумму чисел в нем.
8. В динамическом списке из каждой группы подряд идущих одинаковых элементов оставить один.
9. Используя динамическую структуру список, подсчитать количество четных чисел в заданном наборе символов.
10. Используя динамическую структуру список, подсчитать сумму отрицатель-ных чисел в списке.
11. Сформировать очередь из элементов целого типа. Четные элементы возвес-ти в квадрат. Распечатать исходную и результирующую очереди.
12. Используя динамическую структуру список, подсчитать количество по-ложительных и отрицательных чисел в списке.
13. Задать два динамических списка. Проверить их на равенство.
14. Используя динамическую структуру список для хранения символов, напеча-тать только русские буквы из текста.
15. Используя динамическую структуру, список для хранения символов, определить, является ли заданная фраза палиндромом.
16. Сформировать динамический список из элементов целого типа. Определить, есть ли в списке хотя бы два совпадающих по ключевому полю элемента.
17. Используя динамическую структуру очередь, перевести введенную последовательность чисел в слово, состоящее из кодов ASCII.
18. Удалить из списка все отрицательные элементы.
19. Используя динамическую структуру список, сохранить ряд чисел. Удалить повторяющиеся элементы.
20. Построить динамический список из элементов целого типа с помощью дат-чика случайных чисел. Найти значение среднего элемента списка.
21. Используя динамическую структуру список, сохранить ряд чисел. Удалить элемент с заданным номером.
22. Сформировать динамическую структуру «очередь», элементами которой являются цифры. Извлекая элементы из очереди, напечатать их двоичные эквива-ленты.
23. Сформировать список динамических элементов, упорядоченный по возрас-танию. Включить в список новый элемент, сохранив свойство упорядоченности.
24. Используя динамическую структуру стек, распечатать элементы в обратном порядке.
25. Используя динамическую структуру "очередь", зашифровать содержимое текста: каждый символ заменить его кодом+1.
26. Используя динамическую структуру "стек", зашифровать содержимое текстового файла.
27. Используя динамическую структуру список, сохранить ряд чисел. Удалить элементы с заданным ключевым полем.
Задание 2 (программа 15_2)
Реализовать задачу с использованием другой динамической структуры или придумать свою задачу, написать и отладить для нее программу.
