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

> Компиляция правил для данного раздела

1. Заголовок темы должен быть информативным. В противном случае тема закрывается и удаляется ...
2. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
3. Одна тема - один вопрос (задача)
4. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задачка...
сообщение
Сообщение #1


Гость






Найти число размещений m одинаковых предметов по n различным ящикам, при условии, что ровно к фиксированных ящиков пустые. Решите плз, кому не трудно, оч нужно!! unsure.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

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


а почему правил не читаем ? mad.gif
заголовок темы должен быть информативным!


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Просто так торопимся, что не до правил mega_chok.gif
Help! Кто может, решите плиз rolleyes.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Пионер
**

Группа: Пользователи
Сообщений: 136
Пол: Мужской
Реальное имя: Александр

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


Если и есть такая формула, я не вспомнил - так что рекурсия...

Код

Uses
Crt;

Var
m,n,k: Integer;

Function komb(a,b: Integer): LongInt;
var
  p: LongInt;
  i: Byte;
begin
  if b = 1
  then p:=1
  else if b < 1
       then p:=0
       else begin
         p:=0;
         for i:=0 to a
         do p:=p+komb(a-i,b-1)
        end;
  komb:=p
end; {komb}

{****************************************************************************}

Begin
ClrScr;

Write('Enter m,n,k: ');
ReadLn(m,n,k);
WriteLn;

Write('Takih kombinaciy: ', komb(m,n-k));
ReadLn
End.


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


--------------------
Старайтесь восполнять пробелы в области незнания! ;-D
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Shura,
на кой здесь программа? Тут задания решаются, а не программируются... Для программ есть форум "Задачи"... Нужна именно формула...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 136
Пол: Мужской
Реальное имя: Александр

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


Ааа... ой! Не увидел раздел... smile.gif Ну пусть уже останется? Вдруг еще кому такое понадобится...


--------------------
Старайтесь восполнять пробелы в области незнания! ;-D
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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