Процедура с изменяемым параметром

[Utkin]

Собственно не уверен, в это ли проблема...
В общем пишу статью по длинную арифметику. В процедуре умножения используется классический способ - столбиком. А в ней вызывается процедура беззнакового сложения такого вот вида:

AddNonC(Dop, Res, Res);

Объявлена она следующим образом:

// Сложение без учета знака
procedure AddNonC (Op1, Op2: TBigNum; var Res: TBigNum);

Вызывается она в цикле и после последнего выхода из данной процедуры программа вываливается в 'Invalid pointer operation', что не может радовать. Индексы и параметры я проверил - для умножения специально предусмотрен еще один незначащий разряд, чтобы ошибки не возникало. Предполагаю, что дело в том, что я использую одну и ту же структуру в вызове процедуры дважды - первый раз для чтения, а второй раз для ее же модификации. В чем может быть дело? Я вызывал данную процедуру с данными параметрами самостоятельно - подсчет выполняется без проблем...

[Serge_Bliznykov]

Вызывается она в цикле и после последнего выхода из данной процедуры программа вываливается в 'Invalid pointer operation',

пример тестовой программы дайте, чтобы можно было пощупать в отладке, где именно эта ошибка возникает...

[Utkin]

Могу скинуть все библиотеку - там много зависимых функций в двух юнитах.

[Alex Cones]

Если я правильно понял, то:

AddNonC(Dop, Res, Res);

Объявлена она следующим образом:
Код:


// Сложение без учета знака
procedure AddNonC (Op1, Op2: TBigNum; var Res: TBigNum);

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

P.S. попробуйте возвращать не измененный RES типа RES := RES + DOP, а еще одну копию как третью переменную. Т.е. создать новую переменную с нуля (NEW := RES + DOP) и заполнить результатом.

[Utkin]

Сообщение от Alex Cones

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

Нет, результат один, просто я пытался съэкономить на одной структуре . Если Вы помните - то в результате умножения столбиком нужно умножать первое число на разряды второго, а потом сложить все это свинство. Только я складывал сразу, чтобы не организовывать второй цикл.

P.S. попробуйте возвращать не измененный RES типа RES := RES + DOP, а еще одну копию как третью переменную. Т.е. создать новую переменную с нуля (NEW := RES + DOP) и заполнить результатом.

Попробовал, увы проблема осталась.... Делал следующим образом, копировал Res в новую структуру и в сложение участвовала три параметра, но видно не судьба . Но кроме того, так еще и не очень хорошо с теоретической точки зрения. Числа-то должны учавствовать большие, а это чревато сотнями разрядов (байтов) в параметрах даннхы процедур. Поэтому каждая промежуточная переменная такого типа как серпом по яй....

[Sibedir]

Могу скинуть все библиотеку - там много зависимых функций в двух юнитах.

Едрит

    GetBigNum('811.11,118', x);
    GetBigNum('486,66670.8', y);

Скушала
Дальше смотреть мало желания.

Мой совет, как любитель любителю: Пишите заново.

P.S.: Что значит

  Left: Array of Byte;      // Левая часть последовательности
  Rigth: Array of Byte;     // Правая часть последовательности

?

[Utkin]

Сообщение от Sibedir

Едрит

    GetBigNum('811.11,118', x);
    GetBigNum('486,66670.8', y);

Скушала
Дальше смотреть мало желания.

И напрасно. Во-первых, не доделано. Во-вторых, если вы заметили, то GetBigNum не процедура, а функция, которая возвращает TRUE в случае если число можно скушать и соответственно False, если нет. Вы проверяли, точно скушала?

Мой совет, как любитель любителю: Пишите заново.

Нет уже. У меня есть арифметика на строках, я хочу так . И заново и ёж сможет, а вот имеющееся хозяйство до ума довести, здесь нужен стальной стержень, кремень, каменное сердце и т.д.

P.S.: Что значит

Это некая структура данных, вспомогательная - удобно при работе с такой бедой как длинные числа. Вкратце: нефикисрованные числа обладают крайне неприятным для меня свойством, а именно могут в результате различных операций увеличиваться в обе стороны - как в сторону увеличения целой части, так и в сторону увеличения дробной. Ничего более умного я не придумал как создать новую структуру, которая бы решала эту проблему. Просто обидно, да - динамический массив увеличивается только в одну сторону, но если их головами соединить, то получится фигня которую можно двигать и туда и сюда . Надеюсь внятно обрисовал ситуацию.

[Sibedir]

Лан, убедил, покопаюсь.

Кстати:
У меня была такая фигня 'Invalid pointer operation'. Помог перевод проекта на D2010.
http://www.programmersforum.ru/showthread.php?t=113506

[Utkin]

Спасибо гляну. Кстати, превидя вопрос - в Left данные хранятся задом наперед. Так чисто на всякий случай...

[Utkin]

Нашел причину - была в зависимых функциях. Проблема в обращении к несуществующему элементу динамического массива. Была операция вида массив[длина_массива-a], причем а могло принимать значение нуль.
Sibedir, возможно в Вашем случае была аналогичная причина.