Работа с типом real

[Sparky]

Доброго времени суток!
Возникла такая проблема, есть программа на C# на ее основе пишу на delphi. Используется тип double. Как мне в delphi сравнивать числа типа real
когда одно вводится в edit, а второе получается с помощью ГПСЧ
Вот кусок кода

  function getRandom():real;  //ГПСЧ
  begin
    z := (a0 * z0 + b0) / c0;
    z0 := z;
    getRandom:=z/c0;
  end;


  function ex(l:real):real; //простейший поток(интенсивность) на основе экспоненциального распределения
  var
    x:real;
  begin
    x:=getRandom();
    ex:=-Ln(1-x)/l; //return -Math.Log(1 - GetRandom()) / l;
  end;



  procedure prepare();  //формирование очереди заявок по заданному распределению
  var
     temp:real;
     timeArrive:real;
  begin
    a0 := 214013; //величины
    b0 := 2531011;    //для
    c0 := 4294967296; //базового ГПСЧ
    timeLimitWork:=StrToFloat(MainForm.EditLimitWork.Text);
    timeLimitWait:=StrToFloat(MainForm.EditLimitWait.Text);
    intensity:=StrToFloat(MainForm.Editintensity.Text);

    //формирование очереди клиентов
    timeArrive:=0;
    repeat
      Insert(timeArrive);
      timeArrive:=timeArrive+ex(intensity);
      ShowMessage(FloatToStr(max(timeArrive,timeLimitWork)));
    until timeArrive>timeLimitWork;

[Вадим Мошев]

Как мне в delphi сравнивать числа типа real
когда одно вводится в edit, а второе получается с помощью ГПСЧ

Код не смотрел.
Может, так

n1:=StrToFloat(edit1.text);
n2:=getRandom();

if abs(n1-n2) < 0.00001 then ... // это проверка на равенство

Либо использовать функцию SameValue:
http://docwiki.embarcadero.com/Libra...Math.SameValue

Indicates whether two floating-point values are (approximately) equal.
Call SameValue to determine when two floating-point values are equal, or approximately equal.
A and B are the values to compare.

[Makars]

Так сравнивайте значение из эдита со значением функции. Не понимаю в чём сложность

if StrToFloat(Edit.Text)>getRandom
...

P.S. Понял я не в теме

[Poma][a]

Может, так

Присоединяюсь к варианту Вадима
Только я бы сделал так :

const esp = 0.000000001;

<..>
n1:=StrToFloat(edit1.text);
n2:=getRandom();

if abs(n1-n2) < eps then ... // это проверка на равенство

[Sparky]

а если мне нужно сравнивать на больше?
просто то значение которое вводится из edit равно 2
а то которое генерится и равняется 1,37206381239245e-13

[Sparky]

все решила, просто домножать чтобы избавиться от e-

[Аватар]

Сообщение от Sparky

все решила, просто домножать чтобы избавиться от e-

Не понял зачем домножать. То 1,37206381239245e-13 в человеческом виде будет 0,000000000000137206381239245. На больше или меньше два real-а можно просто сравнивать > или <. Проблема со сравнением чисел с плавающей точкой есть только при проверке на равенство

[Serge_Bliznykov]

Не понял зачем домножать.

поясню.
вот этот код:

  function getRandom():real;  //ГПСЧ
  begin
    z := (a0 * z0 + b0) / c0;
    z0 := z;
    getRandom:=z/c0;
  end;
...
    a0 := 214013; //величины
    b0 := 2531011;    //для
    c0 := 4294967296; //базового ГПСЧ

даёт значение в миллиарды и триллионы раз меньше единицы (обратите внимание на величину c0, на которую число делится дважды. т.е. фактически, делится на КВАДРАТ c0.
Поэтому, автору топика и понадобилось умножать getRandom на какое-то число (на триллион, например).

я думаю, причина в неадекватном переводе алгоритма на Delphi.
но это неважно. Главное, что Sparky устраивает её генератор ПСЧ.

[Аватар]

Дошло. ГПСЧ какой-то странный. С толку сбило название темы