Считалка

@AstroPas · Регистрация: 09.08.2019

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

Добрый вечер. Мне нужно написать программу - считалочку, которая бы выводила имя последнего оставшегося игрока. Я нашёл похожую программу, только с рандом числами, но я не понял, как её переписать для строк. Моя задача звучит так:

"Даны N игроков с именами. Реализовать «считалку», которая удаляет каждого К-го игрока из списка пока не останется один игрок. Вывести имя оставшегося игрока. "

Я очень надеюсь, что мне смогут помочь.

@Pvt · 09.08.2019, 19:30

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  cName:array[1..4]of string=('Вася','Петя','Катя','Абдула');
var i,n:integer;
    aName:array[1..4]of string;
begin 
  for i:=1 to 4 do
    aName[i]:=cName[i];
  randomize;
  n:=4;
  while n>1 do
  begin
    i:=random(n)+1;
    writeln(aName[i],' out');
    for i:=i to n-1 do
      aName[i]:=aName[i+1];
    n:=n-1;
  end;
  writeln(aName[1]); 
end.

@Puporev · 10.08.2019, 06:52

Pvt, Прочитайте внимательно условие задачи.

AstroPas, Посмотрите похожие темы внизу страницы.

@AstroPas · 10.08.2019, 13:05 **[ТС]**

Хорошо, посмотрю.

@JuriiMW · 11.08.2019, 09:25

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
type
  tPlayers = ^pPlayers;
  pPlayers = record
    Name : String[15];
    Next : tPlayers;
  end;
  
var
  N, K, i : Integer;
  P, X : tPlayers;
begin
  ReadLn(N);
  New(P); ReadLn(P^.Name); X := P;
  for i := 2 to N do
    begin
      New(X^.Next); X := X^.Next; ReadLn(X^.Name);
    end;
  X^.Next := P;
  ReadLn(K);
  while P <> P^.Next do
    begin
      N := 1;
      while N < K do
        begin
          inc(N); X := P; P := P^.Next;
        end;
      WriteLn(P^.Name, ' - out');
      X^.Next := P^.Next; Dispose(P); P := X^.Next;
    end;
  WriteLn(P^.Name, ' - be one');
end.

@AstroPas · 13.08.2019, 17:07 **[ТС]**

Программа рабочая, спасибо от всей души.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@AstroPas 0 / 0 / 0 Регистрация: 09.08.2019 Сообщений: 5

	Считалка 09.08.2019, 17:41. Показов 2561. Ответов 5 Метки нет (Все метки) Добрый вечер. Мне нужно написать программу - считалочку, которая бы выводила имя последнего оставшегося игрока. Я нашёл похожую программу, только с рандом числами, но я не понял, как её переписать для строк. Моя задача звучит так: "Даны N игроков с именами. Реализовать «считалку», которая удаляет каждого К-го игрока из списка пока не останется один игрок. Вывести имя оставшегося игрока. " Я очень надеюсь, что мне смогут помочь. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	10.08.2019, 06:52
	Pvt, Прочитайте внимательно условие задачи. AstroPas, Посмотрите похожие темы внизу страницы. 0

@AstroPas 0 / 0 / 0 Регистрация: 09.08.2019 Сообщений: 5
	10.08.2019, 13:05 [ТС]
	Хорошо, посмотрю. 0

@AstroPas 0 / 0 / 0 Регистрация: 09.08.2019 Сообщений: 5
	13.08.2019, 17:07 [ТС]
	Программа рабочая, спасибо от всей души. 0

Считалка

Решение