Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Образовательный студенческий форум _ Информатика / Программирование _ Игра "Считалка" (проход с выбыванием)
Автор: DeMoN 911 26.4.2008, 16:24
Условия такие:
Используем циклический список
1)Задаем размер (количество людей), период выбывания и соответственно количество оставшихся участников
2)Сплошное представление реализуем в 2-х массивах
первый - на размещение данных
второй - на указатели, где расположены следующие элементы
Всех кто поможет в решении задачи заранее благодарю
Автор: Julia 28.4.2008, 11:04
Основные моменты первого пункта:
1) TType Ss=^ Igrok;
Igrok=Record
number : Byte; next :Ss
End;
var ocher : Ss;
2) n - размер, p - период выбывания, k - количество оставшихся.
For i:=1 to (n-k) do
Begin
{отсчитываем очередного кандидата на удаление}
For j:=1 to p-1 do
ocher:=ocher^.next;
{удаляем элемент, следующий за очередным}
q:=ocher^.next;
writeln(‘Из круга выходит игрок под номером ’,q^.number);
ocher^.next:=q^.next; Dispose (q)
End;
Автор: DeMoN 911 1.5.2008, 14:09
Основные моменты первого пункта:
1) TType Ss=^ Igrok;
Igrok=Record
number : Byte; next :Ss
End;
var ocher : Ss;
2) n - размер, p - период выбывания, k - количество оставшихся.
For i:=1 to (n-k) do
Begin
{отсчитываем очередного кандидата на удаление}
For j:=1 to p-1 do
ocher:=ocher^.next;
{удаляем элемент, следующий за очередным}
q:=ocher^.next;
writeln(‘Из круга выходит игрок под номером ’,q^.number);
ocher^.next:=q^.next; Dispose (q)
End;
Спасибо за за помошь
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)