Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Динамические структуры данных. Процедуры и функци

Автор: Slauta 9.1.2011, 21:27

Помогите решить задачку на Pascal, я уже себе всю голову сломал ее решая...

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

Автор: Keeper89 9.1.2011, 22:26

Вот вариант:

Код


  realdn(N);
  realdn(M);
  while N > 1 do
  begin
    I := (N + M) mod N;
    if I = 0 then
      I := N;
    writeln(I);
    N := N - 1;
  end;

Автор: bems 10.1.2011, 13:56

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!