Mensajes

[No es codificación!!!]

No es codificación!!!

MCKSys Argentina se la pusiste peor con Arrays.  


Gabriel094 te salio mas caro el remedio que la enfermedad.

3*2*1 != -3*-2*-1
6 != -6

Pero la solucion es tan facil como poner (-n)! = n! * (-1)^n  aunque en realidad segun la definicion el factorial de un numero negativo no es posible.

ups quise decir igual a  3*2*1 = ABS(-3*-2*-1)


y si no se puede de negativos sera mientras sea >0.

saludos gracias por la corrección.

Claro.

Mi idea no era corregir (ni nada por el estilo), sino mostrar un poco de programacion modular basica. 

Si seguro. Aunque te pinta mejor lo avanzado 

saludos Capo.

@MCKSys Argentina

o simplemente aplicar valor absoluto a n. ya que  es igual 3*2*1 que -3*-2*-1.

Código (vb) [Seleccionar] Expandir

Dim i As Integer
Dim x As Integer
Dim n As Integer

x = 1
n = -5
If n <> 0 Then
  For i = 1 To Abs(n)
    x = x * i
  Next
End If

saludos

Obviamente no funciona para números negativos. tienes que retocarlo. 

claro.  aunque solo serian tres condiciones. o 2 sin contar el else.

Puedes hacer algo tan simple como esto.

Código (vb) [Seleccionar] Expandir

Dim i As Integer
Dim x As Integer
Dim n As Integer

x = 1
n = 5
If n <> 0 Then
  For i = 1 To n
    x = x * i
  Next
End If

MsgBox x

si sabes hacer un for.


solo tienes que multiplicar el valor en cada repetición del for con el anterior.

[MCKSys Argentina]

MCKSys Argentina tiene razón.

Bueno lo que pasa que cada vez del bucle agregas el valor al control.

lo que tienes que hacer en cada caso sumar 1 a tu variables,  de tres variables( alumnos malos, bueno y super-buenos), respectivamente, luego al final de la repetición muestras los resultados de tus variables.

Y no es codificación. es código fuente.