Функцию, которая удаляет из непустого списка L второй элемент

@Kateryna1111 · Регистрация: 10.07.2015

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

19) Таблица 1. Функцию, которая удаляет из непустого списка L второй элемент,
если такой есть

@ZX Spectrum-128 · 21.12.2017, 13:13

Описать процедуру, которая удаляет из списка L второй элемент, если такой есть

@Kateryna1111 · 22.12.2017, 15:36 **[ТС]**

ZX Spectrum-128, вы скинули процедуру,а мне нужны функция....

@ZX Spectrum-128 · 22.12.2017, 17:14

Pascal

function DeleteSecond(var L: List): boolean;
var
  T: List;
begin
  if (L <> nil) and (L^.next <> nil) then { проверяем наличие первого и второго элемента }
  begin
    T := L^.next; { запоминаем второй элемент для последующего удаления }
    L^.next := T^.next; { теперь первый должен указывать туда, куда раньше указывал второй }
    Dispose(T); { освобождаем память, выделенную под второй элемент списка }
  end
  else writeln('В списке меньше двух элементов')
end;

@bormant · 24.12.2017, 21:33

ZX Spectrum-128,
стоит добавить определенный результат

Pascal

1
2
3

  DeleteSecond:=False;
  if ... then begin
    DeleteSecond:=True;

Добавлено через 1 минуту
Да и вывод сообщения, вероятно, не выполнять внутри функции.

@Kateryna1111 · 26.12.2017, 21:09 **[ТС]**

bormant, а как сделать так,чтобы удалял первый элемент?

@bormant · 27.12.2017, 11:44

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

чтобы удалял первый элемент?

Pascal

function DeleteNode(var L: List): Boolean;
var t: List;
begin
  DeleteNode:=False;
  if L<>nil then begin
    t:=L; L:=L^.next; Dispose(t);
    DeleteNode:=True;
  end;
end;

@Kateryna1111 1 / 1 / 2 Регистрация: 10.07.2015 Сообщений: 157
		1
	Функцию, которая удаляет из непустого списка L второй элемент 17.12.2017, 18:09. Показов 2312. Ответов 6 Метки нет (Все метки) 19) Таблица 1. Функцию, которая удаляет из непустого списка L второй элемент, если такой есть Миниатюры 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	21.12.2017, 13:13	2
	Описать процедуру, которая удаляет из списка L второй элемент, если такой есть 0

@Kateryna1111 1 / 1 / 2 Регистрация: 10.07.2015 Сообщений: 157
	22.12.2017, 15:36 [ТС]	3
	ZX Spectrum-128, вы скинули процедуру,а мне нужны функция.... 0

@Kateryna1111 1 / 1 / 2 Регистрация: 10.07.2015 Сообщений: 157
	26.12.2017, 21:09 [ТС]	6
	bormant, а как сделать так,чтобы удалял первый элемент? 0

	27.12.2017, 11:44

Опции темы

Функцию, которая удаляет из непустого списка L второй элемент

Решение