Как получать разные числа

From

Alexander Chelmodeev (2:5062/17.5)

To

Yuri Muhitov

Date

2002-10-24T21:07:22Z

Area

RU.ALGORITHMS

   /Привет Yuri!/  
 24 Окт 2002 Чт в 14:23 : Yuri Muhitov --> Georgy Plechanov:

 >> randomize();//  :)

 YM> Второй человек советует вызвать randomize(). Объясните, где она лежит
 YM> ? Нет ее ни в time.h, stdlib.h. Это что, название алгоритма, а не
 YM> функции ? В библиотеке С есть rand и srand. VC6.0.

 Pascal, Delphi:

procedure Randomize;
var
  Counter: Int64;
begin
  if QueryPerformanceCounter(Counter) then
    RandSeed := Counter
  else
    RandSeed := GetTickCount;
end;


... http://ichip.rbcmail.ru  ... mailto: ichip(a)rbcmail.ru
--- GoldED+/386 1.1.5-20010807 rev.0813 (MS-DOS 7.10 pc) * Chip&Deal *
 * Origin: Виднo птицу пo пoмету. (2:5062/17.5)