Вроде бы не плохо работает, но долго.
Но скорость и не нужна.
CODE:fopen ("c:\5.txt", "w");
loop(10)
{
fwrite (rnd(1,5));
fwrite(ENDL);
}
fclose ();
function rnd(int r1, int r2)
{
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
st:getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
sleep(rand(r1,r2));
if(Milliseconds>=r1 && Milliseconds<r2) return Milliseconds;
else goto st;
}
(Добавление)
Ну это просто альтернатива. Так-то никому не нужна. Но работает
|