Имеется битовый массив из 128 элементов требуется сформировать псевдослучайную перестановку элементов в соответствии с алгоритмом 


Как я понял перестановка - значит элементы повторяться не должны, но с моей процедурой они через определенный интервал повторяются... Помогите   

Что, не у кого идей нет??? Может быть дело в типе byte?  

А в чём вопрос то??? Ты дал кусок программы который нельзя потестить а сказать только навскидку, но приэтом дал алгоритм по которому должно быть и его подставил... Какие идеи ты хочешь получить???
Ну скажем, то что у тебя начало такое: это будет означать что при каждом запуске будет одно и тоже... Для разных числел, нужно число из системного времени генерировать. А что ещё тут можно добавить.  Правильно ты переписал две строчки готового алгоритма в свою прогу... да вроде так.
Ещё что нибудь?  

Это сообщение отредактировал(а) Zero - 24.1.2007, 21:46

Извините.... 
Давйте все распишу, как есть...
Решаю олимпиадную задачу:
1) Сформировать сообщение, состоящее из 16 символов, каждый символ представляется 8 битами (ASCII).
2) Представить сообщение в виде битового массива.
3) Сформировать псевдослучайную перестановку элементов массива [0..127] в соответствии с алгоритмом 1: I[k]=(29*I[k-1] mod 512, J[k]=I[k]/4, I[0] mod 2<>0.
и так далее... Вообщем шифрация сообщения, кодирование итерационным кодом и все такое.. 
tv[0]:=7; потому, что в задании сказано нечетное число из интервала [0..127].. А если я буду брать случайное число, то потом не смогу это сообщение дешифровать... Это как ключ..

Дык код-то не так как-то работает... у меня должна получиться перестановка элементов, а они (элементы) повторяются.... 
ЗЫ: Я не могу выложить программу, если нужна она, только на мыло могу

Где сказано, что деление должно быть целочисленым??? 

Дык это ж очевидно:
В массиве pv у меня будут сгенерированы псевдослучайные числа, они же будут являться индексами для перемешивания бит в битовом массиве...

Ты наверно не так понял... Но я имел ввиду, почему ты используешь оператор div, в задании явно указан оператор /.
Может быть я чё не догоняю, но по твоему коду тяжело сориентироваться, т.к. он неполный и несовсем понятно что на выходе из него ты используешь. Так что лучше скинь всё прогу на мыло, если уж нехочешь чтобы остальные имели возможность тебе помочь.  

Я бы выложил ее тут, но у меня не получается файл присоединить я завтра на мыло отправлю, а сегодня все обдумаю и правильно сформулирую вопрос, 
Zero, спасибо за понимание 

 Нафиг нужен файл...  Тут в панели инструментов "код", выбираешь подсвестку "Delphi", и между ней как цитату всавляешь код. Типа такого: