Подскажите - вопрос по Делфи

[LexiBender]

Скажите пожалуйста, как можно реализовать стандартную функцию frac ( берем дробную часть от числа) своими руками в Делфи? Я думаю встроенная функция работает с представлением числа в компьютере, то есть напрямую отслеживаются биты, которые занятый мантисой. А как это сделать на более высоком уровне? И, соответственно, смежный вопрос - как проверить, является ли введенное А (типа extended) целым? Как вы поняли, без стандартной функции frac

[Pavia]

frac - делаешь через округление.
По поводу формата с extended вы ошибаетесь - он всегда не целый. Прочитайте про формат чисел с плавающей запятой.

[Lahme]

Цитата:

как проверить, является ли введенное А (типа extended) целым?

Может быть проверять не число типа extended, а введенную строку, типа string.
Есть ли в ней символ DecimalSeparator (. или ,) , а если есть, то что после него кроме нулей.

[LexiBender]

Pavia, вы меня совсем неправильно поняли на счет frac. Число типа extended всегда нецелое ДЛЯ КОМПЬЮТЕРА, я прекрасно знаю, как числа представляются в битах памяти. Я говорю о том, а вдруг число РЕАЛЬНО(для нас с вами) целое? То есть с нулевой мантисой. Lahme, а вот Вы поняли меня хорошо, но предложили слишком "читерское" решение задачи, оно тривиальное и не интересное. Я бы хотел узнать, можно ли как - то это реализовать узнавание целого, апеллируя только арифметикой.

[Xey]

Можно вычитать по единичке и проверять полутся ли ноль._

[Joker_vD]

LexiBender в сообщении #789276 писал(а):

Я говорю о том, а вдруг число РЕАЛЬНО(для нас с вами) целое? То есть с нулевой мантисой.

Ну и проверьте, нулевая ли она — if Frac(x) = 0.0 then {...}.

[Pavia]

LexiBender
Ещё раз идите почитайте про числа. И задайте вопрос используя обще принятые термины. А то вас понять не возможно.
http://softelectro.ru/ieee754.html

LexiBender в сообщении #789276 писал(а):

Я бы хотел узнать, можно ли как - то это реализовать узнавание целого, апеллируя только арифметикой.

Нельзя. Информация при конвертировании теряется. Определить можно только по строке.

Xey

Xey в сообщении #789286 писал(а):

Можно вычитать по единичке и проверять полутся ли ноль._

Читаем про числа с плавающей точкой, а потом ищем ошибки в Вашем решении.

[EtCetera]

Xey

Xey в сообщении #789286 писал(а):

Можно вычитать по единичке и проверять полутся ли ноль._

Попробуйте запустить вот такую программку:

Используется синтаксис Pascal

program RealTrick;
const
        c = 20000000;
var
        v : Single;
        i : LongInt;
begin
        v := c;
        i := c;
        WriteLn('v':25, 'i':10);
        WriteLn('From':5, v:20, i:10);
        while (v > 0) and (i > 0) do
        begin
                v := v - 1;
                Dec(i);
        end;
        WriteLn('To':5, v:20, i:10);
end.