Вверх ↑
Ответов: 215
Рейтинг: 45
#1: 2009-04-09 02:52:03 ЛС | профиль | цитата
Имхо нет особого смысла в перемешивании, можно просто брать строку случайным образом, взятую строку удалять из списка строк, и переустанавливать генератор случайной выборки по количеству оставшихся строк.

Add(MainForm,8821364,14,105)
{
Left=20
Top=105
Width=333
Height=323
}
Add(ListBox,408698,455,119)
{
Left=160
Top=10
Width=145
Height=265
}
Add(StrList,8574407,350,56)
{
Strings=#10:Туз червей|13:Король червей|11:Дама червей|12:Валет червей|9:10 червей|8:9 червей|8:8 червей|8:7 червей|8:6 червей|9:Туз бубен|12:Король бубен|10:Дама бубен|11:Валет бубен|8:10 бубен|7:9 бубен|7:8 бубен|7:7 бубен|7:6 бубен|11:Туз крестей|14:Король крестей|12:Дама крестей|13:Валет крестей|10:10 крестей|9:9 крестей|9:8 крестей|9:7 крестей|9:6 крестей|7:Туз пик|10:Король пик|8:Дама пик|9:Валет пик|6:10 пик|5:9 пик|5:8 пик|5:7 пик|5:6 пик|
}
Add(Button,6876505,91,126)
{
Left=10
Top=10
Width=130
Caption="Получить новую строку"
link(onClick,15143440:doEvent1,[])
}
Add(Random,33728,259,119)
{
Point(doMax)
Point(doMin)
link(onRandom,12780119:doEvent1,[])
}
Add(ArrayRW,4607367,364,119)
{
link(onRead,408698:doAdd,[])
link(Array,8574407:Array,[])
}
Add(Hub,15143440,140,126)
{
OutCount=4
link(onEvent1,33728:doRandomize,[])
link(onEvent2,1166922:doWork,[(178,139)(178,188)])
link(onEvent3,4991060:doOperation,[(186,146)(186,139)])
link(onEvent4,33728:doRandom,[(203,153)(203,125)])
}
Add(Hub,12780119,301,119)
{
link(onEvent1,4607367:doRead,[])
link(onEvent2,8574407:doDelete,[(333,132)(333,76)])
}
Add(Check,1166922,203,182)
{
Check=1
Caption="затирать предыдущую карту"
link(onEvent,408698:doClear,[(415,188)(415,132)])
}
Add(Math,4991060,217,133)
{
OpType=1
Op2=1
link(onResult,33728:doMax,[])
link(Op1,8574407:Count,[(223,117)(363,117)])
}
-----
поправки - добавил Randomize, вычел единицу, список строк заменил на список карт
карма: 0

1
Голосовали:LorD