Question

¿Cuál es la regal (algoritma)para dividir un entero entre una fracción entre otra fracción???​

Answer 1

Respuesta:

Public Shared Function mcdFast(eN As Integer, eD As Integer) As Integer

  Dim DD, DS, R As Integer

  'Buscamos cual es mayor divisor, para asignarlo  

  'a nuestra comprobacion de restos

  DD = If(eN > eD, eN, eD)

  DS = If(eN <= eD, eN, eD)

  R = DD Mod DS 'Primer tanteo

  While R > 0

    'Dividimos e intercambiamos

    'con el resto generado y volvemos a comprobar

     DD = DS : DS = R

     R = DD Mod DS

  End While

  Return DS

End Function