Деление двух длинных чисел, как реализовать с помощью объектов в Delphi? Опции

[serogan]

В FAQ'е (длинная арифметика) нашла функции для деления двух длинных чисел. Можете объяснить, как реализовать это в Delphi, желательно как объекты? Заранее спасибо.

[volvo]

Здесь: Длинная арифметика что, НЕ объекты?

Вот тут было показано, как заставить этот модуль работать в Дельфи: Hugeobj (читаем до конца)

+ в Drkb тоже кое-что было по-моему, если хочешь - скачай, посмотри..

[Гость]

Но в Hugeobj только умножение , деления нет (оно есть выше, но вроде не через объекты). А как можно переделать ?

[Айра]

Мне тоже нужно это деление. Я нашла в DRKB модуль, начала компилировать, но в тех скобках, где есть HugeIntCarry возникает ошибка "Left side cannot be assigned to". Например:

procedure HugeInt_Inc(var a: HugeInt);
{ a := a + 1 }
var

  i: Integer;
  h: Word;
begin

  i := 0;
  h := 1;
  repeat
    h := h + a[i];
    a[i] := Lo(h);
    h := Hi(h);
    Inc(i);
  until (i > HugeIntMSB) or (h = 0);
  HugeIntCarry := h > 0;     //   вот тут например
{$IFOPT R+ }
  if HugeIntCarry then
    RunError(215);
{$ENDIF}
end; { HugeInt_Inc }

Почему и как можно исправить?

Сообщение отредактировано: Айра - 3.02.2007 4:41

[volvo]

Почему и как можно исправить?

Давай по-порядку:
1) "почему" - потому, что HugeIntCarry описывается, как типизированная константа (как видно, для совместимости с ранними версиями Паскаля, ведь в классическом Паскале нельзя описать переменную, и сразу же ей присвоить начальное значение, это возможно только с типизированной константой), а в Дельфи по умолчанию, константа - она и есть константа, в смысле, постоянная...

2) а вот теперь - "как исправить"... Очень просто, включить разрешение менять типизированные константы во время работы программы... Или в настройках проекта: "Project -> Options -> вкладка Compiler -> поставить галку на Assignable Typed Constants", или (что предпочтительнее - ибо не надо лазить по настройкам) первой строкой модуля:

{$J+}
// А дальше - без изменений

... И будет тебе счастье

[Айра]

Спасибо, volvo! Все откомпилировалось.

[volvo]

деления нет (оно есть выше, но вроде не через объекты). А как можно переделать ?

Вот так попробуй:
 DLINNA.PAS ( 6.76 килобайт ) Кол-во скачиваний: 626


Файл D.IN содержит:

2785600000000
354

Тестовая программа:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Dlinna;

var
  a, b, c, d: TObj;
  f_out: text;

begin
  { TODO -oUser -cConsole Main : Insert code here }

   assign(input,'d.in');reset(input);
   assign(f_out, 'd.txt');rewrite(f_out);

   a.Init; b.Init; c.Init; d.Init;

   a.ReadLong(input);
   a.WriteLong(f_out);
   b.ReadLong(input);
   b.WriteLong(f_out);
   c.DivLongTwo(a,b,d);
   writeln(f_out, 'results:');
   c.WriteLong(f_out);
   d.WriteLong(f_out);

   close(f_out);
   close(Input);

   a.Done; b.Done; c.Done; d.Done;
end.

[Айра]

volvo, мне кажется, вы уже поняли, кто был гостем
Не смейтесь, но я не знаю где создать файл с расширение in...
Я попробовала добавить код из DRKB, но у меня не получилось его использовать , а HugeObj добавила нормально.
В общем, я опять прошу о помощи...


p.s. не... посмеяться надо мной все-так нужно)))

[volvo]

мне кажется, вы уже поняли, кто был гостем

Естественно, у меня IP адреса перед глазами

я не знаю где создать файл с расширение in...

В папке с проектом... В принципе, это важно только для EXE-файла, так что будем говорить так: файл D.IN должен лежать там же, где лежит EXE-файл...

Прикрепить тебе проект полностью? (я не думаю, что теперь будут проблемы, это всего-навсего консольное приложение... )

[Айра]

файл D.IN должен лежать там же, где лежит EXE-файл...

Это я поняла. Но расширение in я встретила впервые, и не знаю как сделать такой файл... позор)))...

А особых изменений в использовании dlinna по сравнению с HugeObj ведь нет, все также...

p.s. не по теме, а как вы делаете такие вещи типа "добавлено через ... минут"

Сообщение отредактировано: Айра - 3.02.2007 8:44

[volvo]

Но расширение in я встретила впервые, и не знаю как сделать такой файл...

Я создавао обычный текстовый файл, и потом переименовывал (у меня расширения ни для каких типов файлов не скрываются, так что это совсем просто)... А в самом крайнем случае - создай любой TXT файл, только имя его укажи при Assign, какая разница, как он называться будет?

а как вы делаете такие вещи типа "добавлено через ... минут"

Теперь это делается автоматически, если ты добавляешь еще одно сообщение к своему же (именно добавляешь, т.е. отсылаешь еще один пост, а не редактируешь) в течении 20 минут (если Altair поменял, по умолчанию стояло 10 минут)

[Айра]

создай любой TXT файл

А я так делала. При работе программы был просто черный экран с мигающим курсором, ничего не выводилось ни вводилось(((

Добавлено через 2 мин.

А я так делала. При работе программы был просто черный экран с мигающим курсором, ничего не выводилось ни вводилось(((

Проверка Нов целом я поняла как оно должно работать. Спасибо. А можно вы мне как-нибудь объясните сам техт модуля. Я не все в нем понимаю, а интересно

[volvo]

1) Как называются у тебя входной/выходной файл?
2) Вот мой проект, попробуй - что выдаст в файле d.txt:
 test.rar ( 3.15 килобайт ) Кол-во скачиваний: 456

[Айра]

Еще раз спасибо! До свидания. Утро уже как ни как.

p.s. а цитаты все равно потом убирала, сразу не догадалась)))

Сообщение отредактировано: Айра - 3.02.2007 14:31

[Айра]

Входной я назвала d1.text, а выходной - d.text.
А теперь еще посмейся. Я тогда не догадалась, что нужно открыть и посмотреть свой выходной файл, думала результат на экране будет)))

В общем я все проверила. Работает. Вот что выдает:

2785600000000
354
results:
7868926553 //целая часть
238 //остаток

Потом я во входном файле делала два больших числа.
И получила вот что:

48600000000000000000000
200000000000
results:
243000005000 // по-моему программа ошиблась, или просто для двух больший чисел есть своя погрешноть...
4

[volvo]

Нет... Просто я что-то не так портировал. Исходная программа (без объектов) считает как положено...

Сейчас проверю...

[volvo]

Да, так и есть... Модуль, строка №242 -

         ost:=c;

заменить на

        ost.X^:=c.X^;

(с объектами первая форма не проходит...)

Дельфи запускать лень, но в FPC (в режиме совместимости с Дельфи) работает как положено

[Айра]

Спасибо! Я исправила.

Теперь у меня такой вопрос. Мои длинные числа (это факториалы вычисленные с помощью HugeObj) имеют тип TLargeInt. Числа в dlinna имеют тип TObj. Компил-р пишет, что типы не совместимы. Как можно это исправить?

Сообщение отредактировано: Айра - 4.02.2007 4:21

[volvo]

Убрать использование TLargeInt и пользоваться только TObj, или наоборот, убрать TObj, и пользоваться только TLargeInt... Эти 2 типа несовместимы и не будут... Пользуйся только одним из двух модулей...

Показать, как вычисляется факториал с использованием TObj?

[Айра]

Буду пользоваться dlinna.

Показать, как вычисляется факториал с использованием TObj?

Было бы неплохо. Я пыталась переделать функцию из HugeObj, но думаю одной сменой типа не обойтись

И еще... В HugeObj для того, чтобы можно было выводить результат в memo (ввиде текста) Алена дала мне функцию Function HugeToStr: String. В dlinna наверно тоже что-то такое нужно добавить?

Сообщение отредактировано: Айра - 4.02.2007 18:43