![]() КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Сортированные списки
End. Begin Begin Begin Else End Begin Then Repeat Begin Begin Repeat Begin Такого элемента в списке нет 5 -3 -2 -12 Удаление элементов из списка 5 -3 17 -12 Удаляемый элемент: 17 Новый список: Удаляемый элемент: 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 – элемент не найден) Procedure Formir_spisok; New(head); head - указатель на голову списка head^.Inf:= 0; количество элементов в списке head^.Next:= Nil; списка еще нет New(q); формируем первый элемент Write(‘Первое число: ’); ReadLn(q^.Inf); вводим его информационную часть If (q^.Inf=0) если ввели 0, Then Exit; то выходим из процедуры head^.Inf:= 1; в списке один элемент q^.Next:= head^.Next; вставляем его в голову списка head^.Next:= q; в head^.Next адрес головы списка 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); End; Procedure Vyvod_spisok; процедура вывода списка q:= head^.Next; текущую ссылку – на первый элемент While (q <> Nil) Do пока не конец списка Write(q^.Inf:5); выводим очередной элемент q:= q^.Next; ссылку – на следующий элемент End; WriteLn; End; Begin головная программа ClrScr; WriteLn(‘Создание списка’); WriteLn; Formir_spisok; обращение к процедуре создания списка WriteLn(‘Введено чисел: ’, head^.Inf); WriteLn(‘Введенные числа:’); Vyvod_spisok; обращение к процедуре вывода списка WriteLn; WriteLn(‘Удаление элементов из списка’); WriteLn; New(r); WriteLn; Write(‘Удаляемый элемент: ’);
ReadLn(poisk); If (poisk = 0) если он равен нулю, Then Break; то выходим из цикла удаления flag:= 0; флаг поиска равен нулю – удаляемый элемент пока не найден q:= head^.Next; поисковый указатель q – на первый элемент списка, r:= head; тормозной r - на голову списка While (q <> Nil) Do пока не конец списка If (q^.Inf = poisk) ищем нужный элемент flag:= 1; если элемент найден: Break; выходим из цикла поиска r:= q; иначе подтягиваем r к q q:= q^.Next; иделаем шаг по списку End; If (flag = 0) Then если элемент не найден: WriteLn(‘Такого элемента в списке нет’); WriteLn(‘Список:’); Vyvod_spisok; выводим список Continue; и продолжаем цикл удаления End; r^.Next:= q^.Next; если элемент найден, Dispose(q); то удаляем его из списка и освобождаем память head^.Inf:= head^.Inf - 1; уменьшаем счетчик элементов на единицу q:= head^.Next; возвращаем указатели в голову списка r:= head; If (head^.Inf = 0) Then если в списке не осталось элементов WriteLn(‘Список пуст’); Break; End; WriteLn; WriteLn(‘Новый список:’); Vyvod_spisok; выводим новый список Until (poisk = 0); окончание цикла удаления элементов WriteLn(‘Список:’); Vyvod_spisok; выводим окончательный список ReadLn; Таким образом, операции вставки и удаления элементов из списка представляют собой изменение значений ссылочных полей определенных элементов списка. Широкое применение связные списки получили при решении задач сортировки последовательностей данных. Пусть имеется связный список из трех чисел, расположенных по возрастанию от головы к хвосту списка : 3, 5, 12. Добавим в описание переменных новую ссылку v, которую будем использовать для формирования нового элемента: Var head, q, r, v: TPoint; Остальные ссылки выполняют следующие функции: head – ссылка на первый элемент списка, r - поисковая ссылка, v - всегда отстает от нее на шаг, используется для переадресации элементов списка. Список сформирован, и значениями переменных head и r является ссылка на первый элемент списка, а переменная q отстает на шаг от r и ссылается на head:
Необходимо вставить элемент 7 на свое место в списке, то есть перед12. Для включения нового элемента в готовый список выполняются следующие действия: 1. создается новый элемент и заполняется его информационное поле:
v^.Inf:= 7; 2. в списке находится первый элемент, больший вставляемого, то есть элемент, перед которым должен стоять новый, в данном случае элемент 12; для этого используем переменную r: While (r <> Nil) Do пока не дошли до конца списка If (r^.Inf <= v^.Inf) Then если текущий еще меньше вставляемого,
Дата добавления: 2014-01-06; Просмотров: 341; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |