ТаблицаКарт=Новый ТаблицаЗначений;
ТаблицаКарт.Колонки.Добавить("Карта");
Выборка=Справочники.Карты.Выбрать();
Пока Выборка.Следующий() Цикл
    НоваяСтрока=ТаблицаКарт.Добавить();
    НоваяСтрока.Карта=Выборка.Ссылка;
КонецЦикла;
Для Каждого Стр Из ТаблицаКарт Цикл
ГСЧ = Новый ГенераторСлучайныхЧисел(ТаблицаКарт.Количество()-1);
СлучайноеЧисло = ГСЧ.СлучайноеЧисло(, ТаблицаКарт.Количество()-1);
Сообщить(СлучайноеЧисло);
Если ТаблицаКарт.Количество()=1 Тогда
ТаблицаКарт.Очистить();    
   Иначе
ТаблицаКарт.Удалить(СлучайноеЧисло);
КонецЕсли;
КонецЦикла;


Этот выдает только 18 чисел и все а надо чтобы выдавал 36.

Как исправить???

(0) Неверный подход - удалять строки в цикле Для Каждого Из.

>Этот выдает только 18 чисел и все а надо чтобы выдавал 36.
как представитель известного капитана скажу: ГСЧ.СлучайноеЧисло(0, 36);

(2) тфу, плин, 0-35

ну и эта... ТаблицаКарт.Количество() что говорит?

Этот модуль будет использоваться для раздачи карт в случайном порядке поэтому возникла необходимость удалить строку по случайному числу, т.к. эта карта только один раз присутствует в таблице значений

(5) чё ?

СлучайноеЧисло = ГСЧ.СлучайноеЧисло(0,ТаблицаКарт.Количество()-1);

Где ТаблицаКарт.Количество() = 36, надеюсь

(5) >для раздачи карт в случайном порядке
заводил я себе ветку для взятия случайного элемента справочника... имхо самое простое - генерить случайное число (элемент) до тех пор, пока он не окажется в невыданных

Ты не удаляй строки из таблицы, а помечай, что она была использована. Через НайтиСтроки() находишь те, что не были использованы, по этому же массиву определишь сколько их осталось и какие границы генератора задать.

(0) хошь, покер дам? если найду

Спасибо попробую!

Нет, мне преферанс нужен по сети

совершенно не правильный подход у тебя

а если СлучайнойЧисло у тебя несколько раз одинаковое будет?

(8) +1

но выданные числа лучше хранить в хранилище

+(10) ещё морской бой в бардачке валяться должен ;)

(13) По схеме из (9) проблема даже не возникнет. Проверял :)

кстати, коллеги! подскажите алгоритм генерации СЧ в заданном диапазоне без повторов. знаю, что придумано

(12) увидишь, как делался алгоритм раздачи/тасования

(17) В (9) все уже решено :))

Делаешь ТЗ со списком твоего диапазона и далее как в (9)...

(19) нене, у меня академический вопрос. лучше (9) на 1С не придумаешь, пожалуй, но в самом общем случае как? вроде формула была

Останется только один вопрос, насколько равномерно распределение алгоритма, который в 1С сидит.

(21) есть у меня преферанс, у которого в настройках задаётся распределение тасования ;)

(20) Я чет даже подход особо придумать иной не могу. Боюсь, что иной алгоритм будет иметь плохое распределение, у стандартного алгоритма распределение такое же, как и у ГСЧ, который он использует.

Сортируем в случайном порядке 100 раз, карты уже будут в случайным порядке, останется взять сколько нужно.
Завести ТЗ с картами
Карта|НомерДляСортировки

Для ц = 1 по 100 цикл
   для каждого т из ТЗ цикл
       т.НомерДляСортировки = случайное число;
   конеццикла;
   ТЗ.сортировать ("НомерДляСортировки");
конеццикла;


(22) Я общался с ребятами, которые рассказывали как такое делается в нардах на деньги :) Т.е. если надо, чтобы определенный игрок выиграл, он выиграет с очень большой вероятностью :)

(0)Алгоритм раздачи карт есть в книжке "128 советов начинающему программисту".
Не помню сути алгоритма из книжке, но сам сделал бы так.
Делаю массив карт в колоде.
Далее ГСЧ выбираю порядковый номер из массива.
Максимум 35 проходов будет.
Отчасти похоже на алгоритм монтекарло.

(24) А если случайные числа повторятся?

ТаблицаКарт=Новый ТаблицаЗначений;
ТаблицаКарт.Колонки.Добавить("НомерДляСортировки");
ТаблицаКарт.Колонки.Добавить("Карта");
Выборка=Справочники.Карты.Выбрать();
Пока Выборка.Следующий() Цикл
    НоваяСтрока=ТаблицаКарт.Добавить();
    НоваяСтрока.Карта=Выборка.Ссылка;
КонецЦикла;
ГСЧ = Новый ГенераторСлучайныхЧисел();
Для Каждого Стр Из ТаблицаКарт Цикл
   Стр.НомерДляСортировки = ГСЧ.СлучайноеЧисло();
КонецЦикла;
ТаблицаКарт.Сортировать("НомерДляСортировки");

В итоге имеем список карт, отсортированный в случйном порядке.

(23) подозреваю, что человек по имени Кнут это описал. дык нету книг

(26) +
Естественно, после выпадения карты, из массива удаляется ее элемент и размерность массива уменьшается.
в ГСЧ передается размерность массива.

(24) Опередил :)

(29) Знатный был человек, жаль уже не с нами

(28) Смотри (24)

(28) сортировать с удалением (выдачей карты) - ну уж куда проще ;)

Ой, не, смотри (27)

(32) ну дык, он же записал. значит, не совсем не с нами ;)

(36) Ну да, ты прав. Он столько сделал, что вряд ли когда нас покинет :)

(0) Раскладку колоды карт пишешь?

Приходит БОМЖ в милицию с заявой, что у него украли 37 предметов: ключ для открывания пивных бутылок и колоду карт.

(12) Кстати, дружищще, это дело то подсудное нынче в России, ты аккуратнее там, чтоб не подсесть :)

(12) На инфостарт выложишь, скинь, потом, пожалуйста, бесплатно и мне ;0

Спасибо, самый оптимальный вариант!(24)и (28). По (9) тормозит и долго формирует.

(41) Ну уж нет)) Вот самый оптимальный вариант:

ТаблицаКарт=Новый ТаблицаЗначений;
ТаблицаКарт.Колонки.Добавить("НомерДляСортировки");
ТаблицаКарт.Колонки.Добавить("Карта");
ГСЧ = Новый ГенераторСлучайныхЧисел();
Выборка=Справочники.Карты.Выбрать();
Пока Выборка.Следующий() Цикл
    НоваяСтрока = ТаблицаКарт.Добавить();
    НоваяСтрока.Карта = Выборка.Ссылка;
    НоваяСтрока.НомерДляСортировки = ГСЧ.СлучайноеЧисло();
КонецЦикла;
ТаблицаКарт.Сортировать("НомерДляСортировки");

(41) При стандартной колоде в алгоритме из (9) вылезли тормоза??? Уважаемый, сдается мне вы что-то там оооочень криво реализовали. Киньте код в тему, хоть посмеяться.

(42) С точки зрения математики метод не очень чист, ибо на обычное распределение случайных чисел накладывается вероятность того, что у двух карт будет одинаковое число и одна из них фактически не будет сортироваться. Да, вероятность очень мала, но она есть.

Если достаточно большой диапазон случайных чисел, шанс что будет два одинаковых не большой, это же не от 1 до 10 выбирать.

(45) Приятно, когда цитируют, чувствую себя начинающим классиком :)

Совсем недавно то же самое сделал, тока на 52 карты.