IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> комбинаторикоПодобная задачка, слова в алфавите,число вхождений.подсчитать длину слов длины Н.
сообщение
Сообщение #1


изувер
**

Группа: Пользователи
Сообщений: 88
Пол: Женский
Реальное имя: ann

Репутация: -  1  +


Изображение
Изображение

нужно хотя бы идею способа реализации в паскале.или хотя бы просто идею)спасибо за внимание)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


N337
****

Группа: Пользователи
Сообщений: 737
Пол: Мужской

Репутация: -  26  +


Можно переформулировать в других терминах: найти все семизначные числа в пятеричной системе счисления, в которых общее количество цифр 0 и 1 равно трем, а цифра 2 встречается не менее двух раз. Почему так - понятно?

Дальше просто решаешь перебором тождественную задачу. Если не программировать, то можно посчитать аналитически.

Сообщение отредактировано: xds -


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


изувер
**

Группа: Пользователи
Сообщений: 88
Пол: Женский
Реальное имя: ann

Репутация: -  1  +


все решила по формулам. рассматривая возможности:
1) n1+n2=3 n3=2 -> n4+n5=2-> появляются возможности:

n1=3 n2=0 n3=2 n4=2 n5=0
n1=3 n2=0 n3=2 n4=1 n5=1
n1=3 n2=0 n3=2 n4=0 n5=2

n1=0 n2=3 n3=2 n4=2 n5=0
n1=0 n2=3 n3=2 n4=1 n5=1
n1=0 n2=3 n3=2 n4=0 n5=2

n1=1 n2=2 n3=2 n4=2 n5=0
n1=1 n2=2 n3=2 n4=1 n5=1
n1=1 n2=2 n3=2 n4=0 n5=2

n1=2 n2=1 n3=2 n4=2 n5=0
n1=2 n2=1 n3=2 n4=1 n5=1
n1=2 n2=1 n3=2 n4=0 n5=2

2) n1+n2=3 n3=3 -> n4+n5=1-> появляются возможности:

n1=3 n2=0 n3=3 n4=1 n5=0
n1=3 n2=0 n3=3 n4=0 n5=1
n1=0 n2=3 n3=3 n4=0 n5=1
n1=0 n2=3 n3=3 n4=1 n5=0


n1=1 n2=2 n3=3 n4=1 n5=0
n1=1 n2=2 n3=3 n4=0 n5=1
n1=2 n2=1 n3=3 n4=0 n5=1
n1=2 n2=1 n3=3 n4=1 n5=0

3)n1=3 n2=0 n3=4 n4=0 n5=0
n1=0 n2=3 n3=4 n4=0 n5=0
n1=2 n2=1 n3=4 n4=0 n5=0
n1=1 n2=2 n3=4 n4=0 n5=0

теперь по формулам вида Р(к1,к2,к3,к4,к5)=n!/(k1!*...*k5!)
в итоге получается =9240

на паскаль сил нет)







 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


N337
****

Группа: Пользователи
Сообщений: 737
Пол: Мужской

Репутация: -  26  +


Аналитическое решение гораздо круче smile.gif

А Паскаль согласен с ответом:
program Code;

const
n = 7;
q = 5;

var
a: array[0..n] of Integer;
i, n12, n3, nr: Integer;
Done: Boolean;

begin
for i := 0 to n do
a[i] := 0;

nr := 0;

repeat
n12 := 0;
n3 := 0;
for i := 0 to n - 1 do
case a[i] of
0, 1:
Inc(n12);
2:
Inc(n3);
end;
if (n12 = 3) and (n3 >= 2) then Inc(nr);

Inc(a[0]);
Done := True;
for i := 0 to n - 1 do
begin
if a[i] >= q then
begin
Dec(a[i], q);
Inc(a[i + 1]);
end;
if a[i] <> 0 then Done := False;
end;
until Done;

Writeln(nr);
end.


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


изувер
**

Группа: Пользователи
Сообщений: 88
Пол: Женский
Реальное имя: ann

Репутация: -  1  +


аааа..спасибо большое))здорово)) give_rose.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


N337
****

Группа: Пользователи
Сообщений: 737
Пол: Мужской

Репутация: -  26  +


Цитата(кучаТрупов @ 15.12.2008 2:29) *

аааа..спасибо большое))здорово)) give_rose.gif
На здоровье! smile.gif


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 8.12.2022 17:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name