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

подскажите, как выделить целое из реального числа. не округлить, а именно целое.
пример 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



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

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

ток с отрицательными пришлось переделать...
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 не подходит?

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

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

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

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

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

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

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

Цитата:

---

Сообщение от Валенок

Боюсь даже сказать, что эту функцию можно одной строчкой... :)

---

Вам в этом вопросе безусловно верю!!!;)
Спасибо от начинающих за

Цитата:

---

Сообщение от Валенок

5 / 2 <> 5.0 / 2

---

сам пару лет назад с таким разбирался.