Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Игры";
Текущий архив: 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
1-41269
rel_
2003-10-30 17:06
2003.11.13
вопросик Excel


14-41879
Василиск
2003-10-22 11:34
2003.11.13
Как по аглицки правильно пишется: ???


14-42119
Карелин Артем
2003-10-22 14:59
2003.11.13
Как восстановить пароль к аське??


14-41912
Gorlum
2003-10-21 13:57
2003.11.13
NAV2003


9-40761
Начинающий_программист
2003-05-05 11:47
2003.11.13
Послушайте!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский