procediment mcd_euclides(a,b); comença defineix D:enter; // variable auxiliar que representa el dividend defineix d:enter; // variable auxiliar que representa el divisor defineix r:enter; // variable auxiliar que representa el residu si a < b { { D:=a; d:=b; } altrament { D:=b; d:=a; } } fes { r:=residu(D div d); si r < 0 llavors { D:=d; d:=r; } } mentre r > 0 escriu "mcd(a,b)=",d; acaba.
Exemple:
Calculeum el màxim comú divisor dels nombres naturals 15 i 12 fent ús de l'algorisme de les diferències:
------------------------
pas número 1:
$D \leftarrow 15$ i $d \leftarrow 12$
i obtenim
$r=3$ ( el valor del residu de la divisió )
i com que r > 0, continuem
------------------------
pas número 2:
$D \leftarrow 12$ i $d \leftarrow 3$ ( assignem al nou dividend l'antic divisor i al nou divisor l'antic residu )
i obtenim
$r=0$ ( el valor del residu de la divisió )
i, per tant, concloem que mcd(15,12)=3 (ja que aquest és el valor de $d$ en el pas que $r=0$ ), i acabem.
$\square$
Observació: Aquí s'ha implementat l'algorisme a mà perquè els nombres de l'exemple són petits. Si els nombres fossin més grans convindria fer ús d'algun llenguatge de programació per poder implementar de manera automàtica l'algorisme en un ordinador o en una calculadora programable. Suggereixo MAXIMA.