Удаление в списке

@doc_07 · Регистрация: 26.11.2016

Author24 — интернет-сервис помощи студентам

В неупорядоченном списке удалить те элементы, для которых выполняется условие: значение элемента меньше значения следующего за ним элемента.

Вот мой код:

Delphi

q:=head;
  if(counter<>1)  then
  begin
    While q.next.next<>nil do
    begin
      if(q.next.value<q.next.next.value)then
      begin
        temp:=q.next;
        q.next:=q.next.next;
        dispose(temp);
      end
      else
      begin
        q:=q.next;
      end;

Все работает кроме одного случая, когда каждый последующий элемент больше предыдущего
Например
1->5->10->15
После удаления в списке должно остаться 15, а у меня остается 1->15
Как исправить, чтобы голова тоже удалялась если след элемент больше

@qwertehok · 29.10.2017, 16:57

что такое head?

@doc_07 · 29.10.2017, 17:01 **[ТС]**

head - голова списка

@qwertehok · 29.10.2017, 17:05

а в коде можно увидеть?
и что такое next.next тоже

@doc_07 · 29.10.2017, 17:15 **[ТС]**

Вот проект

@qwertehok · 29.10.2017, 17:52

Сообщение от doc_07

temp:=q.next;
* * * * q.next:=q.next.next;
* * * * dispose(temp);

зачем тебе тут переменная Temp?

проект смотрел, но проще его весь переписать чем пытаться понять смысл

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	29.10.2017, 16:57	2
	что такое head? 0

@doc_07 0 / 0 / 0 Регистрация: 26.11.2016 Сообщений: 58
	29.10.2017, 17:01 [ТС]	3
	head - голова списка 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	29.10.2017, 17:05	4
	а в коде можно увидеть? и что такое next.next тоже 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	29.10.2017, 17:52	6
	Сообщение от doc_07 temp:=q.next; * * * * q.next:=q.next.next; * * * * dispose(temp); зачем тебе тут переменная Temp? проект смотрел, но проще его весь переписать чем пытаться понять смысл 0