Код:
Global.d a0,a1
Procedure Calc0(Walue)
While(0=0)
a0=Pow(-Infinity()/Infinity(),-Infinity()/Infinity())
Wend
EndProcedure
Procedure Calc1(Walue)
While(0=0)
a1=Random(9223372036854775807)
Wend
EndProcedure
Dim FunctionList(1)
FunctionList(0)=@Calc0():FunctionList(1)=@Calc1()
Define *Temp
Select Random(1,0)
Case 0
*Temp=FunctionList(0):FunctionList(0)=FunctionList(1):FunctionList(1)=*Temp
EndSelect
CreateThread(FunctionList(0),0):CreateThread(FunctionList(1),0)
While(0=0):WendЯ протестировал на своём двухядерном процессоре при работе данной программы на одном ядре процессора.Второе ядро ускорилось.Не знаю как это всё объяснить,но это работает.