Динамическая память.Списки.

[Гвендолин]

Очень нужна помощь с решением этой задачи. Буду вам очень благодарна.


(«Считалка».) n ребят располагаются по кругу. Начав отсчет от первого, удаляют каждого k-го, смыкая круг после каждого удаления. Определить порядок удаления ребят из круга.
Решение этой задачи описать в виде программы (ее исходные данные—натуральные числа n и k), которая должна напечатать номера ребят в том порядке, как они удаляются из круга.

[ИльяМалиновский]

А с какого человека продолжают счёт? С того, который следующий за вышедшим или с начинавшего в первый раз?

[rusell]

писать программу тебе не буду, а вот кусочек могу подсказать!

Type
    P = ^TMember
    TMember = Record
                        num: Integer;
                        next: P;
                    End;

var tmp, del: P;

begin
  New(tmp);
  tmp^.next := New(P^.next);
создаешь кружок в цыкле.
...
по кругу добираешься до нужного, меняешь адреса:
del := tmp^.next;
tmp^.next := tmp^.next^.next;
и удаляешь к-ого

Dispose(tmp^.next);

end.

[Гвендолин]

Начиная с первого))

[ИльяМалиновский]

А если первый выходит из круга, то с какого?

[Гвендолин]

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

писать программу тебе не буду, а вот кусочек могу подсказать!

Cпс за подсказку))теперь будет над чем поломать голову.

Сообщение от ИльяМалиновский

А если первый выходит из круга, то с какого?

Ты не так понял...просто с первого начинается круг(с него во же начинается нахождение k-го элемента и его удалиние)потом опять выходит круг и так далие. и это продолжается до того, пока не удаляться все элементы.

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

[ИльяМалиновский]

var
i: integer;
k: integer;
a: array[1..100,1..2] of integer; // связный список, обозначающий людей
n: integer; // число людей в круге
tec: integer; // текущий номер человека

begin
 readln(n);
 a[1,1]:= n;
 a[1,2]:= 2;
 for i:= 2 to n-1 do
  begin
  a[i,1]:= a - 1;
  a[i,2]:= a + 1;
  end;
 a[n,1]:= n-1;
 a[n,2]:= 1;

 while n > 0 do
  begin
  tec:= 1;
  for i:= 1 to k do
   begin
   tec:= a[tec,2];
   end;
  writeln(tec); // он выходит из круга
  a[a[tec,1],2]:= a[tec,2]; 
  a[a[tec,2],1]:= a[tec,1];
  n:= n - 1;
  end;
end.

Вроде можно попробовать так реализовать циклический дважды связанный список. Он содержит номера соседей для каждого стоящего в нём человека.