Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сгенерировать несколько чисел сумма которых = 1 [D6, WinXP]


SelloutS ©   (2004-11-03 19:50:00) 

Как сгенерировать несколько чисел сумма которых = 1


Германн   (2004-11-04 03:50:00) [1]

2 Verg ©   (03.11.04 20:04) [4]
Помимо того, что сумма нуль, стоит еще поиметь в виду, что результат деления - вещественное число! А их сумма - "неочевидна"! Для компьютера, имхо!


VMcL   (2004-11-03 21:53:00) [2]

>> GuAV ©  (03.11.04 20:25) [5]

> Ну... а если сумма нуль ? :)

Дык, мы положительные числа генерить будем.

P.S. Положительные - это те, которые, где положишь, там и лежат.


kaZaNoVa   (2004-11-03 20:59:00) [3]

GuAV ©   (03.11.04 20:25) [5]

> Ну... а если сумма нуль ? :)

получим глюк:)))


GuAV   (2004-11-03 20:25:00) [4]

Anatoly Podgoretsky ©   (03.11.04 19:57) [1]
не успел я :)

Verg ©   (03.11.04 20:04) [4]
Ну... а если сумма нуль ? :)


Verg   (2004-11-03 20:04:00) [5]


> [1] Anatoly Podgoretsky ©   (03.11.04 19:57)


Находишь сумму, и делишь каждое из сгенерированных на эту сумму.
Результат деления и будет искомая последовательность.


kaZaNoVa   (2004-11-03 20:03:00) [6]

Anatoly Podgoretsky ©   (03.11.04 19:57) [1]
фантастика, так просто ;)


GuAV   (2004-11-03 19:58:00) [7]

SelloutS   (03.11.04 19:50)
Можно сгенерировать "несколько - 1" любых чисел, а "несколькотое" найти как 1 минус сумму предыдущих


Anatoly Podgoretsky   (2004-11-03 19:57:00) [8]

Генерируешь любое количество числе, считаешь их сумму зачем назодишь разницу между суммой и единицей, меняешь знак - это будет твое последнее число. Результат гарантирован.


Наверх

Титульная страница Поиск, карта сайта Написать письмо