MOD остаток от деления больших чисел

[Zibiv]

begin
Хотя посмотрите пожалуйста код, что то через раз правильно вычисляет... то вообще отрицательно значение дает
Var

b,c,rez,odin,ze,re:int64;
reb,a,d,k,be, N :Integer;
......

begin

c:=StrToint(edt2.Text);
a:=StrToint(edt3.Text);
odin:=1;
be:=StrToInt(edt4.Text);
for k:=1 to be do
odin:=odin*c;
re:=odin mod a;


a и b хранятся соответственно в edt2.Text и в edt4.Text

причем опять же небольшие числа правильно рассчитывает, как только возрастает, так неразбериха...

[Вадим Мошев]

А вот у меня такое предложение, как вычислять остаток.
Если нам требуется вычислить остаток от деления a на b, то алгоритм такой.
В цикле каждый раз из a вычитаем b, при этом смотрим, если a (результат) получился меньше, чем b, то это и будет являться остатком.

Например, делим 10 на 3 с остатком.

Итерация 1.
10-3 = 7.
здесь 7>3, идём дальше

2.
7-3 = 4
4>3, идём дальше

3.
4-3 = 1.
1 < 3, остаток равен 1.

[Zibiv]

Сообщение от Вадим Мошев

А вот у меня такое предложение, как вычислять остаток.
Если нам требуется вычислить остаток от деления a на b, то алгоритм такой.
В цикле каждый раз из a вычитаем b, при этом смотрим, если a (результат) получился меньше, чем b, то это и будет являться остатком.

Например, делим 10 на 3 с остатком.

Итерация 1.
10-3 = 7.
здесь 7>3, идём дальше

2.
7-3 = 4
4>3, идём дальше

3.
4-3 = 1.
1 < 3, остаток равен 1.

Пробовал, опять же при больших числах программа зависает..... если надо найти 12383723128 mod 15 сколько же будет вычитать))

[Valio]

c:=StrToint(edt2.Text);

У нас же Int64..... проверь чтоб все функции и процедуры работали с этим типом корректно.

[Zibiv]

то есть должно быть c:=StrToint64(edt2.Text);

С малыми числа ми дает правельные результаты, но как только результат a^b дает число типа 1,2839933384336071289824798844234e+ 65 то mod берется некорректно

[Valio]

Кароче надо проверить что все функции будут работать с твоим типом правильно. Вполне возможно что mod не хочет работать с Int64 и надо будет написать свою функцию.

Что вообще за задание с адскими цифрами?

[Zibiv]

Схема Диффи Хеллмана, генерация ключа))

ну с небольшими значениями все совершенно верно

[Zibiv]

Я уже не знаю что надо делать...

[phomm]

поиск по форуму "длинная арифметика"

[Zibiv]

Точно!!

Вот смотрите создал массив, для того что бы возводить в степень и получать числа без мантиссы, потому что как я понял mod некорректно вычисляется из-за того что результат возведения в степень округялся...

var
  f: array[1..5,1..210] of Integer;
  i, j, q, k, n, d, z, kk: integer;


begin
d:=StrToInt(edt2.Text);//то что возводим
n:=StrToInt(edt4.Text);// во что возводим
i:=210;
k:= i;
while d>0 do
begin
f[1,i]:=d mod 10;
d := d div 10;
i := i - 1;
end;
for j := 1 to k do
begin
f[2, j] := f[1, j];
end;
for q := 1 to n - 1 do
begin
j := k;
z := 0;
while j > 1 do
begin
f[3, j] := (f[1, j] * f[2, k] mod 10) + z;
z := f[1, j] * f[2, k] div 10;
j := j - 1;
end;
z := 0;
for j := k downto 1 do
begin
f[5, j] := (f[3, j] + f[4, j] + z) mod 10;
z := (f[3, j] + f[4, j] + z) div 10;
end;
for j := 1 to k do
begin
f[1, j] := f[5, j];
f[5, j] := 0;
end;
for j := 1 to k do
begin
if f[1, j] = 0 then
begin
kk := kk + 1
end
end;
end;

for j := kk + 1 to k do
begin
re:=(f[1,j]);
end;
edt1.Text:=IntToStr(re);// вывод результата
end;

во-первых почему-то сам результат не выводится... в edit1, и мне кажется что у меня глаз замылился и я не вижу простых вещей...

хммммм в паскале работает вроде корректно работает но нужно в Delphi