После каждого элемента списка добавьте ту часть списка, которая была перед ним - Pascal ABC

[Panchess]

Пусть дан список. После каждого элемента списка добавьте ту часть списка, которая была перед ним.

[Alex11223]

И?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[Panchess]

И как теперь реализовать условие?
После каждого элемента списка добавьте ту часть списка, которая была перед ним.

Program Spisok;
Type
TData = integer;
TPElem = ^Telem;
TElem = record
Data: TData;
PNext: TPElem;
end;

TDList = record
Cnt : integer;
PFirst, PLast: TPElem;
end;

Procedure Add(var aList : TDList; const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := nil;
  if aList.PFirst = nil then
    aList.PFirst := PElem
  else
    aList.PLast^.PNext := PElem;
  aList.PLast := PElem;
  Inc(aList.Cnt);
end;

Procedure WorkAdd(var aList: TDList);
var
S: String;
Data: TData;
Code: Integer;
begin
repeat
Write('Element №', aList.Cnt + 1, ': ');
Readln(S);
if S <> '' then begin
Val(S, Data, Code);
if Code = 0 then
Add(aList, Data)
    end;
  until S = '.';
end;

Procedure LWriteln(var aList : TDList);
var
  PElem : TPElem;
  i : Integer;
begin
  PElem := aList.PFirst;
  i := 0;
  while PElem <> nil do begin
    Inc(i);
    if i > 1 then Write(', ');
    Write(PElem^.Data);
    PElem := PElem^.PNext;
  end;
  if i = 0 then
    Writeln('Список пуст.')
  else
    Writeln;
end;

Var
  L : TDList;
  Data : TData;
 aPPrev : TPElem;
  Begin
  WorkAdd(L);
begin
        Writeln('Содержимое списка:');
        LWriteln(L);
        end;
          end.

[Serge_Bliznykov]

задачка достаточно замороченная.
я бы решал её через создание НОВОГО списка, куда копировал (многократно) нужные элементы из исходного списка.

кстати, чтобы убедится в том, что мы оба одинаково понимаем условия задачи.

допустим, дан список:
1, 2, 3, 4, 5, 6, 7, 8

что должно быть в результате?

[FPaul]

Возможно, решение получится виде рекурсивной процедуры:
при погружении добраться до последнего элемента и там уже добавлять элементы.
потом снижение уровня - и новая порция.

program ProcessList;

type
  Tinf  = integer;
  PList = ^TList;

  TList = record
    Data: TInf;
    Next: PList;
  end;

  {Список}
  {Процедура добавления нового элемента в конец односвязного списка}
  procedure AddItem(var ARoot: PList; AData: TInf);
  var
    tmp: PList;
  begin
    if ARoot = nil then
    begin
      GetMem(ARoot, sizeof(TList));
      tmp := ARoot;
    end
    else
    begin
      tmp := ARoot;
      while tmp^.Next <> nil do
        tmp := tmp^.Next;
      GetMem(tmp^.Next, sizeof(TList));
      tmp := tmp^.Next;
    end;
    tmp^.Next := nil;
    tmp^.Data := AData;
  end;

  {процедура печати списка}
  procedure Print(ARoot: PList);
  begin
    Write('< ');
    if ARoot = nil then
    begin
      WriteLn('Список пуст.');
      exit;
    end;
    while ARoot <> nil do
    begin
      Write(ARoot^.Data, ' ');
      ARoot := ARoot^.Next;
    end;
    writeln('>');
  end;

  {процедура освобождения памяти списка}
  procedure FreeList(var ARoot: PList);
  var
    tmp: PList;
  begin
    while ARoot <> nil do
    begin
      tmp := ARoot;
      ARoot := ARoot^.Next;
      FreeMem(tmp, sizeof(TList));
    end;
  end;

  procedure Process(var ARoot: PList);

    procedure Recurse(Item: PList);
    var
      SrcItem, DstItem, NextItem: PList;
    begin
      if Item^.Next <> nil then
        Recurse(Item^.Next);
      DstItem  := Item;
      NextItem := Item^.Next;
      Item^.Next := nil;
      SrcItem  := ARoot;
      while SrcItem <> Item do
      begin
        AddItem(DstItem, SrcItem^.Data);
        DstItem := DstItem^.Next;
        SrcItem := SrcItem^.Next;
      end;
      DstItem^.Next := NextItem;
    end;

  begin
    if ARoot <> nil then
      Recurse(ARoot);
  end;

var
  i: integer;
  List: PList;
begin

  List := nil;
  for i := 1 to 5 do
    AddItem(List, i);

  WriteLn('Incoming list:');
  Print(List);

  Process(List);

  WriteLn('Processed list:');
  Print(List);

  FreeList(List);
end.

Результат прогона

Incoming list:
< 1 2 3 4 5 >
Processed list:
< 1 2 1 3 1 2 4 1 2 3 5 1 2 3 4 >

[DVladimir]

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

допустим, дан список:
1, 2, 3, 4, 5, 6, 7, 8

получится 1,2,1,2,1,2,1

[Serge_Bliznykov]

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

получится 1,2,1,2,1,2,1

это с чего бы вдруг?!!

да и вопрос уже не актуален,
уже выше выложено готовое решение (с) FPaul.