0 / 0 / 0
Регистрация: 18.04.2018
Сообщений: 9

Рекурсия, расстановка коней на доске

20.05.2018, 18:24. Показов 1808. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Разработайте рекурсивную функцию или процедуру для решения задачи: Расставьте 8 коней на шахматной доске размером 8 х 8. Укажите количество всех расстановок
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.05.2018, 18:24
Ответы с готовыми решениями:

Расстановка 8 ладей на доске
Добрый вечер. Проблема. В школе задали на паскале написать прогу, которая показывает расстановки 8 ладей на доске так чтобы они не били...

Вывести максимальное количество коней, которых можно расставить на доске N*M так, чтобы они не били друг друга
Задается шахматная доска N*M Нужно вывести максимальное количество КОНЕЙ которых можно расставить так чтоб они не билидруг друга Формат...

Найти такую расстановку 12 коней на шахматной доске, при которой каждое поле будет находиться под ударом
Требуется найти такую расстановку 12 коней на шахматной доске, при которой каждое поле будет находиться под ударом одного из них.

2
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
21.05.2018, 03:02
И как их расставить?
0
 Аватар для JuriiMW
5096 / 2662 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
21.05.2018, 06:09
Лучший ответ Сообщение было отмечено Yoriyori как решение

Решение

У меня получилось 4426165368 вариантов!
Программа выводит только каждый 100 миллионный вариант… Иначе очень долго ждать ;–)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var matr:array [,] of Boolean;count:int64:=0;
procedure Show;
begin
  WriteLn(count);
  WriteLn(matr.Rows.Select(r->r.Select(x->x?' K':' .').JoinIntoString).JoinIntoString(NewLine));
end;
procedure Конь(Ещё,Row,Col:Integer);
begin
  if Ещё=0 then begin count+=1;if count mod 100000000=0 then Show;end
  else while Row<8 do begin while Col<8 do begin
    matr[Row,Col]:=True;Конь(Ещё-1,Row,Col+1);matr[Row,Col]:=False;Col+=1;end;
    Col:=0;Row+=1;end;
end;
begin
  SetLength(matr,8,8);
  Конь(8,0,0);
  WriteLn(count);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.05.2018, 06:09
Помогаю со студенческими работами здесь

Собирание всех коней в одну клетку доски или количество коней, которые немогут прийти в даную клетку
Может кто-то помочь срочно решить олимпиадную задачку. На шахматной доске размером NxM (2 ≤ N, M ≤ 100) находится Q (0...

Рекурсия: расстановка 8 коней на шахматной доске 8х8 так, чтобы они не били друг друга
Всем доброго времени суток! Долго лазила по просторам интернета, но так ничего путного и не нашла. Помогите, пожалуйста, решить...

Рекурсия: расставить на доске 12 коней так, чтобы они не били друг друга, но при этом пробивали все остальные поля
На шахматной доске расставить 12 коней так, чтобы они не били друг друга, но при этом пробивали все остальные поля. Расстановку k...

Найти расстановку двенадцати коней на шахматной доске
Найти расстановку двенадцати коней на шахматной доске, при которой каждое поле будет находиться под ударом одного из них. Написать функцию...

Написать программу, которая позволяет игроку расположить на доске M коней
Дана шахматная доска размером NxN. Написать программу, которая позволяет игроку расположить на доске M коней и проверяет, что ни один конь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru