Zitat von
silentAMD:
vielen dank für die vielen antworten! :thumb:
leider hat mir keine bei diesem problem geholfen... dafür aber bei einem anderen (x-b statt x*b)... wie kann ich die letzte antwort in delphi umsetzen?
Delphi-Quellcode:
{solve x*b=a mod 29}
{ x = a*b^27 mod 29}
{$apptype console}
var
a,b,x,i: integer;
begin
{Deine Werte, aber besser eine procedure}
a := 3; b := 4;
x := a;
for i:=1 to 27 do x := x*b mod 29;
writeln(x:4, x*b mod 29:4, (x*b-a) mod 29: 4);
end.
Die Formel x = a*b^27 mod 29 hat allerdings nur didaktischen Wert, besser ist eine Berechnung von b^-1 mit dem erweiterten Euklidischen Algorithmus und speichern aller Inversen in einen Vektor inv: array[1..28] of integer.
Gruß Gammatester