Diferencia entre revisiones de «Implementación de algoritmos de teoría de números/Algoritmo de Euclides»

Contenido eliminado Contenido añadido
Raulshc (discusión | contribs.)
+página de libro, importada de eswiki, concretamente de https://es.wikipedia.org/w/index.php?title=Algoritmo_de_Euclides&action=edit&oldid=13848282
 
Raulshc (discusión | contribs.)
Línea 32:
'''devolver''' <math>a\,</math>
 
== Implementación en lenguajes de programación ==
=== En [[lenguaje C]] ===

(versión recursiva):
 
<source lang="C">
unsigned int mcd(unsigned int a, unsigned int b){
Línea 40 ⟶ 43:
</source>
 
En [[lenguaje C]] (versión iterativa):
En [[Logo (Lenguaje de programación)|lenguaje Logo]] (versión recursiva):
 
'''para''' mcd :a :b
'''si''' :b = 0 [
'''devuelve''' :a
] '''sino''' [
'''devuelve''' mcd :b resto :a :b
]
'''fin'''
 
En [[lenguaje C]] (versión iterativa):
<source lang="C">
unsigned int mcd(unsigned int a, unsigned int b){
Línea 63 ⟶ 57:
</source>
 
=== En [[Logo (Lenguaje de programación)|lenguaje Logo]] (versión=== iterativa):
 
(versión recursiva)
 
'''para''' mcd :a :b
'''si''' :b = 0 [
'''devuelve''' :a
] '''sino''' [
'''devuelve''' mcd :b resto :a :b
]
'''fin'''
 
(versión iterativa)
 
<code>
para mcd :a :b
Línea 75 ⟶ 82:
</code>
 
=== En lenguaje [[Visual Basic]] 8 ===

(versión iterativa):
 
<source lang="vb">
Public Function mcd(a As UInteger, b As UInteger) As UInteger
Línea 88 ⟶ 98:
</source>
 
=== En lenguaje [[Haskell]] ===

(versión recursiva):
 
mcd::Int->Int->Int
mcd a 0 = a
mcd a b = mcd b (mod a b)
 
=== En lenguaje [[Pascal]] ===

(versión iterativa):
 
<source lang="Pascal">
function MCD(a , b:integer):integer;
Línea 113 ⟶ 129:
</source>
 
=== En lenguaje [[Java]] ===

(versión iterativa):
 
<source lang="Java">
public MCD(int a, int b){
Línea 125 ⟶ 144:
</source>
 
=== En lenguaje [[Python]] ===

(versión recursiva):
 
<source lang="Python">
def mcd(a, b):