| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите решить маленькую задачку !!!
Никита © (2003-05-08 18:49:00)
Даны натуральные числа A[1]...,A[10]. Предположим что имеются десять видов монет достоинством A[1]...,A[10]. Обозначим через B[k] число способов которыми можно выплатить сумму K ,т.е. B[k]-это число решений уравнения A[1]X[1]+...+A[10]X[10]=K, где X[i] может принимать целые неотрицательные значения. Получить B[0]...,[20].
Спасибо за внимание !!!
Odin (2003-05-10 11:53:00) [1]Допустим все отсортированно (это сделать легко).
Выбираем монету макс. достоинства, выполняем действие:
Function abcd(N{Монета},X{Cумма}):Integer);
Var
Y,Z :Integer;
I :Integer;
begin
Y:=(X div A[N]);
Z:=Y+1;
For I:=0 to Y do
Begin
( N<10)
Допустим все отсортированно (это сделать легко).
Выбираем монету макс. достоинства, выполняем действие:
Function abcd(N{Монета},X{Cумма}):Integer);
Var
Y,Z :Integer;
I :Integer;
begin
Y:=(X div A[N]);
Z:=Y+1;
For I:=0 to Y do
Begin
If(N<10) then Z:=abcd(N+1,I*A[N]);
Result:=Result*Z;
End;
End;
Что-то в духе этого ... Не проверял на практике, могут быть арифметические ошибки ...
| |
