Range IN Real

[Winexcel]

Интересует такой вопрос, как проверить вещественное число, принадлежит ли оно промежутку, например есть число 5.2, проверить принадлежит ли оно промежутку 5.1 и 5.3. Кто знает?

[Аватар]

Так, например, если точность до одного знака после запятой

x:=5.2;
if (x>5.09) and (x<5.31) then ...

А так можно на грабли нарваться, что 5.1<>5.1

if (x>=5.1) and (x<=5.3) then ...

[Winexcel]

Сообщение от Аватар

Так, например, если точность до одного знака после запятой

x:=5.2;
if (x>5.09) and (x<5.31) then ...

А так можно на грабли нарваться, что 5.1<>5.1

if (x>=5.1) and (x<=5.3) then ...

Большое спасибо, то что нужно, под вечер плохо думаться стало, полез в наборы, и оператор in...

[Sibedir]

Сообщение от Аватар

А так можно на грабли нарваться, что 5.1<>5.1

if (x>=5.1) and (x<=5.3) then ...

Аватар, а в чем прикол с 5.1<>5.1?

[StriderX]

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

Аватар, а в чем прикол с 5.1<>5.1?

http://www.softelectro.ru/ieee754.html
Если коротко, то никто не гарантирует соблюдения математических тождеств - число разрядов ограничено.
Поэтому проверка на строгое равенство с вещественными числами - это плохой признак (оно имеет смысл в некоторых ситуациях, но там обычно человек уже понимает как это работает) =-)

[Аватар]

Sibedir

procedure TForm1.Button1Click(Sender: TObject);
var x,y: Real;
begin
  x:=5.1;
  y:=x+0.01;
  y:=y+0.89;
  y:=y-0.9;
  if x=y then Label1.Caption:='равно' else Label1.Caption:='не равно';
end;

[phomm]

Есть функция InRange из модуля Math, в нём вообще много всего для подобных задач, сам пользуюсь постоянно, во многих можно даже регулировать эпсилон для подобных сравнений, и будет надёжно, в отличие от велосипедов.

[Аватар]

function InRange(const AValue, AMin, AMax: Double): Boolean;
begin
  Result := (AValue >= AMin) and (AValue <= AMax);
end;

И чего там такого, те же грабли могут быть

[phomm]

Да, я удивлён, думал, что там используется CompareValue (которую я сам использую), и вот она-то учитывает и эпсилон и представление вещественных чисел.
Тогда можно свою InRange написать с CompareValue

[northener]

Сообщение от Аватар

Так, например, если точность до одного знака после запятой

x:=5.2;
if (x>5.09) and (x<5.31) then ...

А так можно на грабли нарваться, что 5.1<>5.1

if (x>=5.1) and (x<=5.3) then ...

Главное - не использовать без крайней необходимости неродные для матсопроцессора типы вещественных переменных. Этого достаточно чтобы не иметь проблем в их сравнении.
P.S.
Но для реальных, а не учебных задач сравнение двух вещественных переменных на строгое равенство это действительно полная безграмотность разработчика.