bogrus Я привёл листинг Randomize и RandomInt (есть ещё Random, определённый как function Random():Extended; ), их генерирует Borland Delphi...
RandSeed определён как int RandSeed. Что интересно, и Delphi, и BCB компилируя пример генерируют знаковое умножение, даже если RandSeed...
bogrus Randomize(); rnd_var:= Random($FFFFFFFF); ... ; инициализация RandSeed Randomize proc near var_8 = dword ptr -8 add esp,...
Имена участников (разделяйте запятой).
