Introducción a la teoría de números. Ejemplos y - TEC-Digital

24 DIVISIBILIDAD
2.4.1 Algoritmo e implementación.
Recordemos que mod(a,b) denota el resto de la división de a por b.
1
2
3
4
5
6
7
8
Algoritmo 2.2: Máximo común divisor
Datos: a, b ∈ Z.
Salida: mcd(a,b)
if a = 0 y b = 0 then
return mcd(a,b) = 0
c = |a|, d = |b|;
while d �= 0 do
r = rem(c,d);
c = d;
d = r;
return mcd(a,b) = |c|;
Implementación en Excel.
1 Function mcd(a, b)
2 Dim c As Long, d As Long, r As Long ’max = 2 147 483 647
3 If a = 0 And b = 0 Then
4 mcd = 0
5 End If
6 c = Abs(a)
7 d = Abs(b)
8 While d 0
9 r = c Mod d ’residuo entre (c,d)
10 c = d
11 d = r
12 Wend
13 mcd = Abs(c)
14 End Function
Para Calcular el mcd de una lista en una columna de hoja de Excel, se debe seleccionar la lista.
Private Sub mcmLista_Click()
Dim n, i
Dim Rango As Range
Dim Lista() As Long
Set Rango = Selection ’Seleccionar y convertir Range a Array
n = Rango.Rows.Count ’Solo filas