Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 16.05.2022
Сообщений: 3

Сколькими различными способами можно грани куба раскрасить в четыре цвета?

16.05.2022, 18:06. Показов 701. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Сколькими различными способами можно грани куба раскрасить в четыре цвета ? Напечатать все возможные варианты.
Примечания:
- Первым выводится число возможных размещений. С новой строки выводятся все возможные размещения.
- Цвета в ответе обозначаются цифрами от 1 до 4. Первой комбинацией считать 111111. Комбинации должны выводится в лексикографическом порядке.
- В таблице ниже приведён пример вывода программы. Также приведена часть возможных комбинаций.
вывод:
[число размещений]
...
111434
111441
111442
111443
...
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.05.2022, 18:06
Ответы с готовыми решениями:

Сколькими различными способами можно грани куба раскрасить в четыре цвета
Сколькими различными способами можно грани куба раскрасить в четыре цвета. Вывести на экран возможные варианты. Подскажите хотя бы общий...

Сколькими различными способами можно раскрасить грани куба в четыре цвета?
Сколькими различными способами можно раскрасить грани куба в четыре цвета. Напечатать возможные варианты.

Сколькими различными способами можно грани куба раскрасить в четыре цвета ?
Сколькими различными способами можно грани куба раскрасить в четыре цвета ? Напечатать все возможные варианты.

7
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
16.05.2022, 20:10
Хозяйке на заметку: 4-ичная система счисления, 6 цифр...
1
Модератор
10445 / 5737 / 3406
Регистрация: 17.08.2012
Сообщений: 17,450
18.05.2022, 00:05
Всего будет выведено 4097 строк, поэтому вывод придётся делать в файл, ни в какую консоль столько строк не влезет.

Как-то так, например:
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
const
  fname = 'output.txt';
var
  i, j, t, n: integer;
  s: string;
  f: text;
begin
  assign(f, fname);
  rewrite(f);
  n := 4;
  for i := 2 to 6 do n := n * 4;
  writeln(f, n);
  for i := 0 to n - 1 do
    begin
      s := '111111';
      t := i;
      for j := 6 downto 1 do
        begin
          inc(s[j], t and 3);
          t := t shr 2
        end;
      writeln(f, s)
    end;
  close(f)
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
18.05.2022, 08:51

Не по теме:

Cyborg Drone,
Осторожнее с квантором общности ;)
1) бэкбуфер в 5000 строк много кто может себе позволить,
2) перенаправление вывода никто не отменял.



Добавлено через 4 минуты
Cyborg Drone,
По поводу 10-11: n*4 = n shl 2, сдвинуть единицу 6 раз по 2 - это сдвинуть на 12
Pascal
10
   n:=1 shl 12;
0
Модератор
10445 / 5737 / 3406
Регистрация: 17.08.2012
Сообщений: 17,450
18.05.2022, 22:03

Не по теме:

Да, действительно, я ошибся, предикат "в консоль 4097 строк не влезет" нужно было бы ограничить квантором плюральности. И перенаправление вывода никто не отменял.


По поводу 10-11: ещё правильнее будет
Pascal
10
    n := 4096;
Я написал то, что написал только с целью, чтобы это хоть как-то походило на 46.
0
Нарушающий
417 / 305 / 46
Регистрация: 13.04.2022
Сообщений: 1,759
18.05.2022, 22:21
Куб раскрашенный одним цветом удовлетворяет критерию?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
18.05.2022, 22:26
Цитата Сообщение от QueryMonkey Посмотреть сообщение
Куб раскрашенный одним цветом удовлетворяет критерию?
В условии сказано недвусмысленно:
Первой комбинацией считать 111111
0
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
19.05.2022, 13:48
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Я написал то, что написал только с целью, чтобы это хоть как-то походило на 46.
ну, или так:
Pascal
1
n:=4*4*4*4*4*4; {4 (количество допустимых цветов) в 6-й (число раскрашиваемых граней куба) степени :)}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
19.05.2022, 13:48
Помогаю со студенческими работами здесь

Сколькими различными способами можно раскрасить грани куба в 4 цвета
Доброй ночи! У меня ещё один вопрос: сколькими различными способами можно раскрасить грани куба в 4 цвета. Напечатать все возможные...

Сколькими способами можно раскрасить квадрат, разделенный на четыре части?
4. Сколькими способами можно раскрасить квадрат, разделенный на четыре части, пятью цветами: а) допуская окрашивание разных частей в один...

Сколькими способами можно раскрасить все рёбра октаэдра в три цвета?
Сколькими способами можно раскрасить все рёбра октаэдра в три цвета (красный, синий, зелёный) так, чтобы у каждой грани все рёбра были...

Способы раскраски грани у куба в четыре цвета
Сколькими различными способами можно раскрасить грани куба в четыре цвета. Напечатать возможные варианты.

Сколькими способами можно раскрасить забор?
Каждую доску кругового забора из 100 досок необходимо раскрасить в один из 6 цветов так, чтобы из любых идущих подряд 5 досок не было...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru