Во-первых не Эвклида,а Евклида,в торопях ошибся.
Решение уравнения вида m * x + d * e = 1 числа d и m взаимно простые и целые, известны.Х не существено. Нужно найти e.
Кто-нибудь писал этот алгоритм на delphi?
Мой выглядит вот так:
if m>d then begin a:=m;b:=d; end else begin a:=d;b:=m; end;
u1:=1;v1:=0;
u2:=0;v2:=1;
while b<>0 do begin
q:=a div b;
r:= a mod b;
a:=b;b:=r;
t:=u2;
u2:=u1-q*u2;
u1:=t;
t:=v2;
v2:=v1-q*(v2);
v1:=t;
end;
E:= v1;
Встречаются такие ошибки.
1)Е<0;
2)E=D;
Подскажите в чем проблема или приведите свой алгоритм пожалуйста.