Удаление элементов с положительным значением в односвязном списке

23.09.2012, 14:02. **Показов** 1008. **Ответов** 1

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

Здравствуйте!Ребят нужна помощь!Дано задание написать процедуру:
Удалить из односвязного списка все элементы с положительным значением.
Нужно написать только саму процедуру.
Кто может,помогите пожалуйста!Буду очень признателен!

@volvo · 24.09.2012, 14:48

Pascal

procedure RemovePositives(var Head : List);
var L, T : List;
begin
   L := Head;
   while L^.next <> nil do
   begin
      if L^.next^.data > 0 then
      begin
         T := L^.next;
         L^.next := T^.next;
         Dispose(T);
      end
      else L := L^.next;
   end;
   
   // А теперь проверяем первый элемент
   if Head^.data > 0 then
   begin
      T := Head;
      Head := Head^.next;
      Dispose(T);
   end;
end;

Dima61
		1
	Удаление элементов с положительным значением в односвязном списке 23.09.2012, 14:02. Показов 1008. Ответов 1 Метки нет (Все метки) Здравствуйте!Ребят нужна помощь!Дано задание написать процедуру: Удалить из односвязного списка все элементы с положительным значением. Нужно написать только саму процедуру. Кто может,помогите пожалуйста!Буду очень признателен!

	24.09.2012, 14:48

Удаление элементов с положительным значением в односвязном списке

Решение