Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.74/39: Рейтинг темы: голосов - 39, средняя оценка - 4.74
 Аватар для Pupul of LIT
3 / 3 / 2
Регистрация: 27.10.2009
Сообщений: 37

Сколько комбинаций можно составить из разных символов, если они повторяются

02.12.2009, 22:14. Показов 7333. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Собственно, такая задача: Даны n карточek, на которых написано ОДНА буква. Сколько Комбинаций можно составить из этих карточек(если символы повторяються)(выборок n по n) Тут, конечно комбинаторика...Формула N!/M1!*M2!*...*Mn!, где м1,м2,мн-кол0во повторяющхся одинаковых символов. Сделать то для разных- не проблема...А вот если буквы однаковые...Я отсортировал массив, дальше ступор...
ЗЫ Можно уложиться в тип longint
ПРИМЕР:
Строка aab, ее выборки: aab,aba,baa, т.е. всего 3 выборки.
Спасибо!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
02.12.2009, 22:14
Ответы с готовыми решениями:

Определить сколько в тексте разных слов, сколько раз они повторяются
Есть текст.Необходимо определить сколько в нем разных слов,сколько раз они повторяются.Пока у самого нету кода,пробую что-нибудь написать.

Сколько чисел можно образовать из цифр 0,2,4,8, если цифры повторяются\не повторяются?
Сколько чисел можно образовать из цифр 0,2,4,8, если цифры повторяются\не повторяются?

Определить какие значения одномерного массива повторяются и сколько раз они повторяются
Само задание: Подсчитать какие значения элементов задаваемого пользователем одномерного массива повторяются и сколько раз они повторяются. ...

9
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
02.12.2009, 22:16
Pupul of LIT, Вам никто не виноват что Вы дотянули до последнего дня. Перестаньте бесконечно апить Вашу тему.
0
 Аватар для Pupul of LIT
3 / 3 / 2
Регистрация: 27.10.2009
Сообщений: 37
02.12.2009, 22:40  [ТС]
Действительно, прошу прощения за "апанье", я понимаю, что никто не должен мне помочь, что ж, сдам, что есть. Но если будет возможность, напишите пожалуйста решение, все же интересно, а это в зачет идет
0
 Аватар для Pupul of LIT
3 / 3 / 2
Регистрация: 27.10.2009
Сообщений: 37
03.12.2009, 19:35  [ТС]
вырезанно(автор сильно расстроен)

Добавлено через 9 минут
Извините за выражение, НО
Извините, не знал.(Точнее, не читал правила форума, впрочем, как и все остальные).
Вы, Inadequate, я смотрю, не так уж хорошо владеете русским языком, а раскидываетесь своими выражениями. Я с Украины и то, пограммотнее Вас. Если никто не может решить предложенную задачу, закрыли бы уже тему.
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
03.12.2009, 19:52
Извините, не знал.(Точнее, не читал правила форума, впрочем, как и все остальные).
Незнание, не освобождает от ответственности. То что Вы их не читали, Вас не красит.
Вы, Inadequate, я смотрю, не так уж хорошо владеете русским языком, а раскидываетесь своими выражениями. Я с Украины и то, пограммотнее Вас.
Этим самым Вы нарушаете еще одно правило форума. Если Вы не прочли правила в первый раз, так не поленитесь прочесть их сейчас...
Если никто не может решить предложенную задачу, закрыли бы уже тему.
Не стоит указывать, что мне делать. Вопрос с закрытием тем я могу решить и без Ваших советов.
0
 Аватар для Pupul of LIT
3 / 3 / 2
Регистрация: 27.10.2009
Сообщений: 37
03.12.2009, 20:18  [ТС]
Ладно, прочту правила форума и сделаю выводы...извините за оскорбления.

Добавлено через 20 минут
Неужели никто не может решить??
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
03.12.2009, 20:30
держи:
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
Var
 i, j, N, M, Mt: integer;
 S: string;
 G: set of char;
Function Fac(n:integer):longint;
begin
 if n<2 then Fac:=1
  else fac:=n*fac(n-1);
end;
Begin
 Write('Введите строку: ');
 Readln(S);
 N:=Fac(length(s));
 M:=1;
 For i:=1 to length(S)-1 do
  Begin
   Mt:=1;
   If not (S[i] in G) then
   For j:=i+1 to length(S) do
    If S[j]=S[i] then inc(Mt);
   M:=M*Fac(Mt);
   G:=G+[S[i]];
  End;
 N:=N div M;
 Writeln('Возможных комбинаций: ',N);
End.
1
 Аватар для Pupul of LIT
3 / 3 / 2
Регистрация: 27.10.2009
Сообщений: 37
03.12.2009, 21:57  [ТС]
Спасибо, единственно, что непонятно, это эта строка:
Цитата Сообщение от TAVulator Посмотреть сообщение
If not (S[i] in G) then
Проверяется, не принадлежит ли символ строки типу чар??
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
03.12.2009, 21:59
Pupul of LIT, нет. тут проверяется на то, что не проверялся ли данный символ раньше.
0
 Аватар для Pupul of LIT
3 / 3 / 2
Регистрация: 27.10.2009
Сообщений: 37
03.12.2009, 22:04  [ТС]
Понятно, спасибо Вам огромное!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
03.12.2009, 22:04
Помогаю со студенческими работами здесь

Найти количество чисел , которые повторяются в массиве, а также сколько именно раз они повторяются
Помогите, пожалуйста, Пользователь определяет размер массива, заполняет его и программа считает сколько чисел повторялось и по сколько раз.

Сколько можно составить комбинаций?
Увы, но учился в школе я давно и не могу решить задачу, которую в школе бы точно осилил. Задача не с потолка, а для работы. Итак, есть...

Сколько комбинаций можно составить из цифр?
Добрый день! Сколько M-значных комбинаций можно составить из N цифр, таким образом, чтобы если комбинцации отсортировать, то они бы не...

Сколько из этих 3 кубиков можно составить комбинаций
Здравствуйте. Проблема такая. Есть 3 кубика. На каждом по 6 граней Сколько из этих 3 кубиков можно составить комбинаций без учета...

Сколько трехзначных чисел можно составить из цифр 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 (числа повторяются)
Сколько трехзначных чисел можно составить из цифр 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 при условии, что цифры в числе могут повторяться? 1) 1 ...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
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(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru