Конгруэнтный ГПСЧ

[murcha]

Доброй ночи!
Пишу ГПСЧ, почему-то вылетает на 65 цикле.
Вывод в memo2 делал - не переполняет int64. Как решить?
И кто знает какие проверки делают в этом генераторе?

const s = 1.5;
var i,n:Integer;
    a,x,c,m,Y:Int64;

begin
   a:=39530554;
   x:=55396773;
   c:=82118671;
   m:=85977174;
   for i:=1 to 1000 do
   begin
        Y:=(a*x0+c) mod m;
        a:= Round(a * s);
   end;

[Stilet]

a:= Round(a * s);

А ниче что тут умножение огромного числа идет? Конечно у тебя переполнение будет )

[murcha]

Есть ли возможность это как-то обойти?
Или хотя бы выводить в exit перед переполнением "а".
Try -> EXCEPT -> END будет просто указывать на ошибку.

[Stilet]

Ну в математике я не силен, поэтому не скажу.

[Utkin]

Try -> EXCEPT -> END будет просто указывать на ошибку.

Сбрасывай число да и все. Вставь там в блоке что-то вроде а:=Y; или a:=39530554;