[ZolotukhinDen]

Необходимо смоделировать случайную потерю электроном при соударении с атомом. Случайная потеря энергии моделируется функцией:

Код:

Function EL(i:Integer):Real; 
  begin
    Randomize;
    gamma:=roundto((random),-3); //псевдослучайное число
    En:=0;
     for i:=0 to 20000 do
        begin
          En:=Ep*(1+i/20); // приращение энергии от 1 эВ с шагом i/20
          if (Gx(En)=gamma) then EL:=(En/Ep); // Gx(En) - это функция задающая вероятность величины потери энергии (до 3 знака)
        end;
   end;

Энергия которая осталась у электрона после потери считается так:

Function Energy(j:Integer):Extended;
    begin
    if j=1 then Energy:=E/Ep;
    if (j>1) then Energy:=Abs(Energy(j-1)-EL(j));
    end;

Админ: Пользуемся тегами при оформлении кода!
Проблема: если среди значений En не нашлось с точностью до 3 знака равного gamma, то программа вылетает, сообщая что Energy(j) = NaN. Пожалуйста, помогите дописать алгоритм так чтобы не возникало неопределенности