Как правильно делить на нуль?

[MaTBeu]

Иными словами, если я неверно составлю программу, возможны ситуации когда деление на нуль будет возникать не всегда.

Это уже повод для более детальной отладки.

[Levsha100]

Я бы вызывал исключение и если оно не обрабатывается возвращал бы 0xFFFF
А, сори, не увидел что юзаются динамические типы, тогда я бы брал порядок максимального порядка в выражении.

[Utkin]

Надо было опорс прикрутить....
Ну тогда ясно, я сделаю оба варианта. Исходник выложу здесь, как добавлю вторую операцию деления....

ЗЫ. По теме длинной арифметики готовится статья в журнал...

[Sibedir]

Сори, не мог ответить чуть раньше.

Я бы это через исключения делал. Причина проста. Если пользователь допустил ошибку, и произошло деление на 0, то его об этом нужно известить. Задача самого пользователя выяснить, при каких исходных данных это произошло.

А если уж и возвращать какой-то результат, то уж точно не огромный массив забитый 9-ми (A = 0/0 = ?). Добавь еще одно поле. Туда сохраняй OK, NaN, +INF или -INF. Вот только что потом делать с этими "не числами". Например:
A = 3 / 0 = +INF
B = -4 / 0 = -INF
C = A + B = ?

Добавлено -------------------------------------------------------
Отсебятина:
Вообще, по большому счету, результат любого деления на ноль действительно не является числом. Лично я интерпритирую его для себя как "одновременно любое из множества". А следовалельно, простые арифметические выражение к ниму не применимы. Это всеравно как (-1)^0.5 = i. i - это не число, в привычном понимании. i - это больше вектор, чем число.
Так что, если реализуешь чисто арифметический механизм, то исключение, исключение и только исключение.

[Utkin]

Как и просили выкладываю исходники. Решение - две операции деления - одна вызывает исключение, вторая разрешает делить на нуль ... Компромисс максимально возможного числа это 20000 разрядов (для результата от деления на нуль), больше не стал нагружать...
ЗЫ. модуль BigNum.pas...

[Sibedir]

Компромисс максимально возможного числа это 20000 разрядов (для результата от деления на нуль), больше не стал нагружать...

А чё не ввел дополнительное поле?
Это съэкономило бы память и производительность. Представь. У тебя 1000 чисел. Даже если это поле используется лишь в одном числе, а в остальных лежит мертвым грузом - экономия ~19КБ. А если пользователь по ошибке допустил создание массива из 1000 чисел делением на нуль, памяти сожрется 20МБ. А еще проверка на бесконечность, да и просто создать такое число весьма затратно по времени.

Ведь если это на статью, точно будет камень в твой огород. И, самое плохое, что от новичков.

[Пепел Феникса]

введи чтото типа

enum ValueType
{
    vtValue,//нормально значение
    vtNaN,//плохое значение:)
    vtInfinity//бесконечность
};

да и исключение всетаки лучше.

[Sibedir]

Utkin, необессудь, сразу еще пару замечаний.
Убери код типа

function Func (A: TType): Boolean;
...

if Func (a) = True then

прям сразу глаз режет. Особенно правый, он у меня к монитору ближе.

И еще. Не могу понять, как работать с

// quan - количество разрядов после запятой

Стоит 20 в результате только 11.
Вот так делаю

    GetBigNum('1', y);
    GetBigNum('3', x);
    DivBigNumR(y, x, 20, f);

Получаю: +0.33333333333
Объясни на пальцах, вот эту часть

    // Делится нацело?
    Count:=GetCountC(R);
    If Count<1 then Exit;

    // Сколько раз надо делить
    Count:=Quan div Count +1;

[Utkin]

Ну код-то еще не сильно оттестирован, поэтому поводу была тема (ссылка в первом посте), но я над этим работаю ...

А чё не ввел дополнительное поле?

Всем не угодишь. Конкретное значение можно использовать в вычислениях дальше (пусть и не совсем правильно, но делить на нуль вообще само по себе не есть хорошо), а для бесконечности придется делать еще лишние телодвижения...

Убери код типа

А чего в этом коде не так ?

[Sibedir]

Удалено пользователем