Как проверить число на целое не целое?

Hermitap

Типа

1.0 True
1.34 False
2.55 FALSE
3.0 true

как проще?

Заранее спасибо.

Kanev

попробуйте посмотреть ФМ CONVERT_STRING_TO_INTEGER,
там такие проверки выполняются.
а вообще-то еще есть ФМ CY_IS_INTEGER, который все собственно и делает.
------------------- UPD ----------------------
почитал, что там дальше пишут и понял, что эти ФМ не сработают)

lumer

Code:

DATA: 
  integer TYPE i,
  to_test TYPE f,
  delta TYPE f.


  integer = to_test.
  delta = to_test - integer.
  IF delta NE 0.
     is_integer = false. " ессно в реале  = ' '
  ELSE.
     is_integer = true. " ессно - 'X'
  ENDIF.

T

Как вариант

Code:

IF FRAC( value ) = 0.
  ...
ENDIF.

zSEA

ну ещЁ можно найти следующий символ за разделителем и сравнить с нулЁм :roll:

ArmAnn

zSEA написал:

ну ещЁ можно найти следующий символ за разделителем и сравнить с нулЁм :roll:

И как быть с 9,004 ?

lumer

zSEA написал:

ну ещЁ можно найти следующий символ за разделителем и сравнить с нулЁм :roll:

Можно еще сделать циклический сдвиг всех битов вправо. Если sy-subrc = 0, то значит было целое

trop

плавающая точка и значащий бит в мантиссе не помешают?

Arman

zSEA написал:

ну ещЁ можно найти следующий символ за разделителем и сравнить с нулЁм :roll:

а что если число 2.000000005 ?

Arman

стормозил...

Arman

Оператор MOD это целочисленный остаток от деления.... а с плавающей точкой есть?

Arman

еще вариант:
if( X DIV 1 <> X).
.....
Endif.

ArmAnn

Arman написал(а):

еще вариант:
if( X DIV 1 <> X).
.....
Endif.

В версии 4 не сработает точно - нельзя использовать выражения в условии. Вариант T также не пройдет

А в более старших версиях сработает?

lumer

Даешь самый извратный метод вычисления целостности!!!

Loyso

lumer написал:

Даешь самый извратный метод вычисления целостности!!!

Пожалуйста:

Code:

DATA: IS_CELOE TYPE C,
          CHISLO TYPE F.

CLEAR IS_CELOE.

WHILE CHISLO >= 0.

CHISLO = CHISLO - 1.
IF CHISLO = 0.
IS_CELOE = 'X'.
ENDIF.

ENDWHILE.

Правила форума

Как проверить число на целое не целое?

Кто сейчас на конференции