Форум: "Игры";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Помогите решить маленькую задачку !!!   Найти похожие ветки 

← →
Никита   (2003-05-08 18:49) [0]

Даны натуральные числа 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) [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;

Что-то в духе этого ... Не проверял на практике, могут быть арифметические ошибки ...

---

Страницы: 1 вся ветка

Форум: "Игры";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.036 c