Gleichung mit MOD

[gammatester]

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