Comunidad Gambas-es

Public Sub Main()
 
  MostrarDescompFact(100)
 
End
 
Public Sub MostrarDescompFact(numero As Integer)''Mostrar descomposición factorial
 
  Dim valor As String
  Dim cfactores As New Collection
 
  cfactores = Descomponer(numero)
 
  Print numero; " = ";
  For Each valor In cfactores
    Print cfactores.key; String.Chr(DevolverSuperIndice(valor)); "*";
  Next
  Print 1
 
End
 
Public Sub Descomponer(numero As Integer) As Collection ''Descomponer un números en factores
 
  Dim n As Integer
  Dim factores As New Collection
 
  n = 2
 
  While n <= numero
    If numero Mod n = 0 Then
      numero = numero / n
      If Not factores.Exist(n) Then
        factores.Add(1, n)
      Else
        factores[n] += 1
      Endif
    Else
      n += 1
    Endif
  Wend
 
  Return factores
 
End
 
Public Function DevolverSuperIndice(valor As Integer) As Integer ''Devuelve el carácter unicode de exponente
 
  Dim codigo As Integer
 
  'De esta forma se ve mejor que usando Choose
  'El valor 1 no es posible como exponente
  Select Case valor
    Case 2
      codigo = 178
    Case 3
      codigo = 179
    Case 4
      codigo = &2074
    Case 5
      codigo = &2075
    Case 6
      codigo = &2076
    Case 7
      codigo = &2077
    Case 8
      codigo = &2078
    Case 9
      codigo = &2079
  End Select
 
  Return codigo
 
End
 
' Public Sub DevolverSuperIndice2(valor As Integer) As Integer
'  'Esto no va a funcionar
'   Return Choose(valor, Null, 178, 179, &2074, &2075, &2076, &2077, &2078, &2079)
'
' End