Greatest common divisor: Difference between revisions
Content added Content deleted
(add task to aarch64 assembly raspberry pi) |
No edit summary |
||
Line 2,424: | Line 2,424: | ||
output gcd :b modulo :a :b |
output gcd :b modulo :a :b |
||
end</lang> |
end</lang> |
||
=={{header|LSE}}== |
|||
<lang LSE>(* |
|||
** MÉTHODE D'EUCLIDE POUR TROUVER LE PLUS GRAND DIVISEUR COMMUN D'UN |
|||
** NUMÉRATEUR ET D'UN DÉNOMINATEUR. |
|||
*) |
|||
PROCÉDURE &PGDC(ENTIER U, ENTIER V) : ENTIER LOCAL U, V |
|||
ENTIER T |
|||
TANT QUE U > 0 FAIRE |
|||
SI U< V ALORS |
|||
T<-U |
|||
U<-V |
|||
V<-T |
|||
FIN SI |
|||
U <- U - V |
|||
BOUCLER |
|||
RÉSULTAT V |
|||
FIN PROCÉDURE |
|||
PROCÉDURE &DEMO(ENTIER U, ENTIER V) LOCAL U, V |
|||
AFFICHER ['Le PGDC de ',U,'/',U,' est ',U,/] U, V, &PGDC(U,V) |
|||
FIN PROCÉDURE |
|||
&DEMO(9,12) |
|||
&DEMO(6144,8192) |
|||
&DEMO(100,5) |
|||
&DEMO(7,23)</lang> |
|||
Resultats: |
|||
<pre> |
|||
Le PGDC de 9/12 est 3 |
|||
Le PGDC de 6144/8192 est 2048 |
|||
Le PGDC de 100/5 est 5 |
|||
Le PGDC de 7/23 est 1 |
|||
</pre> |
|||
=={{header|Lua}}== |
=={{header|Lua}}== |