Задача на двусвязный список

@DrGrey96 · Регистрация: 27.12.2018

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

Доброго времени суток форумчане. Помогите пожалуйста написать код по заданию: Даны указатели P1 и P2 на первый и последний элементы двусвязного списка, содержащего не менее двух элементов. Продублировать в списке первый и последний элементы (новые элементы добавлять перед существующими элементами с такими же значениями) и вывести указатель на первый элемент преобразованного списка.
Заранее благодарен!

@JuriiMW · 27.12.2018, 07:46

Pascal

type
  tList = class
    n : Integer;
    p, x : tList;
    constructor (v : Integer; p_,x_ : tList) := (n,p,x) := (v,p_,x_);
  end;
  
begin
  var p1 := New tList(1,nil,nil); var p2 := p1;
  var v := 1;
  loop Random(2,10) do begin v += 1; p2.x := New tList(v,p2,nil); p2 := p2.x; end;
  var t := p1; while t <> nil do begin t.n.Print; t := t.x; end; WriteLn;
  t := New tList(p1.n,nil,p1); p1.p := t; p1 := t;
  t := New tList(p2.n,p2.p,p2); p2.p.x := t; p2.p := t;
  t := p1; while t <> nil do begin t.n.Print; t := t.x; end; WriteLn;
  WriteLn(@p1);
end.

@DrGrey96 0 / 0 / 0 Регистрация: 27.12.2018 Сообщений: 15
		1
	Задача на двусвязный список 27.12.2018, 04:25. Показов 1544. Ответов 1 Метки нет (Все метки) Доброго времени суток форумчане. Помогите пожалуйста написать код по заданию: Даны указатели P1 и P2 на первый и последний элементы двусвязного списка, содержащего не менее двух элементов. Продублировать в списке первый и последний элементы (новые элементы добавлять перед существующими элементами с такими же значениями) и вывести указатель на первый элемент преобразованного списка. Заранее благодарен! 0

	27.12.2018, 07:46