Программа "Считалочка". Списки

@Ann66613 · Регистрация: 20.11.2016

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

С помощью списков реализовать программу «Считалочка». N ребят расположены по кругу. Начав отсчет от первого, удаляют каждого к-ого, смыкая при этом круг. Определить порядок удаления ребят из круга.

Эту же задачу необходимо исследовать для различных значений N от 1 до 64, составив таблицу оставшихся ребят (t – номер оставшегося ребенка).

Вот есть код, где выполняется вот эта часть задания: "С помощью списков реализовать программу «Считалочка». N ребят расположены по кругу. Начав отсчет от первого, удаляют каждого к-ого, смыкая при этом круг".

Помогите выполнить вторую часть: "Эту же задачу необходимо исследовать для различных значений N от 1 до 64, составив таблицу оставшихся ребят (t – номер оставшегося ребенка)". Т.е. помогите, пожалуйста, с составлением таблицы.

Delphi

program schitalochka;
type
  pt = ^elem;
  elem = record
    Number: integer;
    next: pt;
  end;
 
var
  first, cur, temp: pt;
  i, N, K: integer;
 
begin
  first := nil;{Обнуление указателей}
  cur := nil;
 
  repeat
  begin
    Write('N=');
    readln(N);
  end;
  until n<=64;
 
  Write('K=');
  Readln(K);
 
  for i := 1 to N do {Создание списка и заполнение}
  begin
    if first = nil then 
    begin
      new(first);
      first^.number := i;
      first^.next := nil;
      cur := first;
    end
    else
    begin
      new(temp);
      temp^.number := i;
      temp^.next := nil;
      cur^.next := temp;
      cur := cur^.next;
    end;
  end;
  cur^.next := first;{Зацикливание списка}
  cur := first;{Переход на начало}
  while cur^.next <> cur do
  begin
    for i := 2 to K - 1 do
      cur := cur^.next;
    temp := cur^.next;
    cur^.next := temp^.next;
    cur := cur^.next;
    dispose(temp);{удаление элемента}
  end;
  writeln(cur^.number);
  readln;
  
end.

Заранее благодарю за помощь)

	26.02.2017, 19:42