Inverse modulaire d'un entier
Contenu du snippet
# Inverse modulaire d'un entier a pour la multiplication modulo n
proc invmod {a n} {
set n0 $n
set x0 0
set x1 1
if {$n == 1} {return 1}
while {$a > 1} {
set q [expr {$a / $n}]
set t $n
set n [expr {$a % $n}]
set a $t
set t $x0
set x0 [expr {$x1 - $q*$x0}]
set x1 $t
}
if {$x1 < 0} {incr x1 $n0}
return $x1
}
Compatibilité : Tcl
A voir également
- Inverse modulaire d'un entier
- Inverse tangente excel ✓ - Forum Visual Basic 6
- Chaine pour entier ✓ - Forum C
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
- Je voudrais savoir comment me servir de tan-1, cos-1 et sin-1 en c++. Est-ce-que - Forum C++ & C++ .NET
- Vba inverse matrix - Forum VBA Office (Excel, Word ...)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.