Нахождение остатка от деления, от большого числа...

[bilymo]

Здравствуйте дорогие форумчане!!! Дело в том, что при возведении числа в большую степень(число в степени 512) и нахождения остатка от деления приводит к ошибке: Invalid floating point operation.

Код: Выделить всё

<...>
var
k,q,l,ff,k1:longint;
  w,u:extended;
  x1:extended;
 
//x1:=1111; k1:=512;
 
     w:=trunc(exp(ln(x1)*k1)) mod 931; //round пробовал, то же не помогает :(
     form1.Memo4.Lines.Add(inttostr(w));

 

[Naeel Maqsudov]

Максимальная степень в которую Вы сможете возмести 1111 — это 101. Получится 4,14114038172942E+307 Это предел для используемых тут типов.
Если нужно возводить именно в степень 512, то Вам придётся реализовывать свою собственную арифметику с большей разрядностью, чем Extended.
Проще будет реализовать целочисленную арифметику и возведение в степень умножением.

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

[somewhere]

Более того, после Trunc число переходит из 80 бит в 32 бита. Какой там остаток от деления может быть, если все младшие биты теряются. Тоже самое происходит, когда считаем 1111 в степени 101. Попробуйте прибавить к этому числу 1 - результат не изменится, потому что число хранится в экспоненциальном виде. А для mod это очень критично. Здесь только своя арифметика. Достаточно реализовать сложение и деление. Ничего сложного, по времени часа на два работы, вместе с дебагом.

[bilymo]

Максимальная степень в которую Вы сможете возмести 1111 — это 101. Получится 4,14114038172942E+307 Это предел для используемых тут типов.
Если нужно возводить именно в степень 512, то Вам придётся реализовывать свою собственную арифметику с большей разрядностью, чем Extended.
Проще будет реализовать целочисленную арифметику и возведение в степень умножением.

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

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

[Хыиуду]

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

Прочитайте еще раз последнюю фразу поста.