code_21873.txt
------------ Дoбавленo в 17.59:
301992 писал(а):
но можно все не перебирать, а взять достаточно большое количество комбинаций из всего полегона чисел равномерноЕсли нужно равномерно, то вот
Add(MainForm,2953706,196,147)
{
Width=290
Height=485
}
Add(Button,5132092,252,140)
{
Left=10
Top=10
link(onClick,2037862:doEvent1,[])
}
Add(ListBox,7110019,616,245)
{
Left=10
Top=35
Width=265
Height=410
}
Add(Edit,12489401,413,70)
{
Left=80
Top=10
Text="64"
}
Add(For,2897958,336,168)
{
End=100000
link(onEvent,12758910:doRandom,[])
link(onStop,12461128:doEvent1,[(381,181)(381,209)])
}
Add(Random,12758910,427,168)
{
Min=-64
Max=64
Point(Min)
Point(Max)
Point(doMin)
Point(doMax)
link(onRandom,799483:doAdd,[])
link(Min,4069639:Result,[(433,162)(412,162)])
link(Max,9073653:Var3,[(440,110)])
}
Add(ArrayCountRepeats,11460842,518,245)
{
ArrayType=1
link(onCount,4255559:doStr,[])
link(Array,3886130:ArraySort,[])
}
Add(IntegerArray,15260911,476,98)
{
IntArray=[]
}
Add(ArrayRW,799483,476,154)
{
link(Array,14022754:Var2,[])
}
Add(Hub,12461128,490,203)
{
link(onEvent1,3886130:doSort,[])
link(onEvent2,11460842:doCount,[(511,216)(511,251)])
}
Add(ArraySort,3886130,518,203)
{
ArrayType=1
link(Array,14022754:Var3,[(524,138)])
}
Add(MT_String,4255559,567,245)
{
link(onResult,7110019:doAdd,[])
}
Add(Math,4069639,406,124)
{
OpType=1
ResultType=0
link(Op2,9073653:Var2,[])
}
Add(Hub,2037862,301,140)
{
OutCount=5
link(onEvent1,4069639:doOperation,[(327,146)(327,130)])
link(onEvent2,15260911:doClear,[(465,153)(465,118)])
link(onEvent3,7110019:doClear,[(324,160)(324,286)(606,286)(606,258)])
link(onEvent4,13425002:doEvent1,[(390,167)(390,188)])
link(onEvent5,2897958:doFor,[])
}
Add(GetDataEx,9073653,413,105)
{
link(Data,12489401:Text,[])
}
Add(GetDataEx,14022754,476,133)
{
link(Data,15260911:Array,[])
}
Add(Hub,13425002,399,182)
{
link(onEvent1,12758910:doMin,[])
link(onEvent2,12758910:doMax,[])
}