как выделить целое?

[Jeck]

подскажите, как выделить целое из реального числа. не округлить, а именно целое.
пример 27,42 -> 27 или 65,98 -> 65.

[Филоненко Владислав]

a: real; Исходное число
b: DINT; результат

код:

b:=REAL_TO_DINT(a);
if (a>=0) then
if (DINT_TO_REAL(b)>a) then
b:=b-1;
end_if
else
if (DINT_TO_REAL(b)<a) then
b:=b+1;
end_if
end_if



Вот так правильнее при отриц. числах

[Jeck]

филоненко владислав, спасибо.

[Jeck]

ток с отрицательными пришлось переделать...
b:=REAL_TO_DINT(a);
if (DINT_TO_REAL(b)>a) and b>0 then
b:=b-1;
end_if
if (DINT_TO_REAL(b) < a ) and b<0 then
b:=b+1;
end_if
ps пордон не увидел. страницу не обновлял....
еще раз спасибо за идею.

[Игорь Петров]

а чем оператор Trunc не подходит?

[Jeck]

игорь петров, очень даже подходит! ток я про него не сном, не духом. спасибо за наводку.

[Роман26]

REAL_TO_INT округляет до ближайшего целого, а TRUNC извлекает целое.

А подскажите пожалуйста, как округлить число до одного знака после запятой? К примеру:
26.83781 -> 26.8
26.88781 -> 26.9

[Anis]

Умножить на 10 > взять целое > разделить на 10.

[Роман26]

Большое спасибо! Отличная идея!)

[Okmor]

out:=INT_TO_REAL(REAL_TO_INT((t-TRUNC(t))*10))/10+TRUNC(t);

[Gans]

Посмотрите пример во вложении и незабываем, что преобразование типов данных делает процессор, а не человек!!!;)

[Gans]

Боюсь даже сказать, что эту функцию можно одной строчкой... :)
Вам в этом вопросе безусловно верю!!!;)
Спасибо от начинающих за
5 / 2 <> 5.0 / 2 сам пару лет назад с таким разбирался.