Nota:
He aquí una función particularmente útil:
Ejemplo 27
Implemente una función que permita calcular la raíz n – ésima de un número. La función debe ser capaz de obtener raíces impares de valores negativos y emitir un mensaje si se pretende obtener raíz par de un valor negativo.
Solución
Llamaremos r a la función que recibirá dos parámetros: A que contendrá el número a quien se le saque la raíz y N que será la cantidad radical.
Primero debe verificar si el número a ser usado como cantidad radical par o no. Si es par debe verificar si el valor es negativo. Si así fuera, devuelve la raíz pedida, en caso contrario, emite un mensaje de error pues no se puede obtener un radical par de un valor negativo.
La función es la siguiente:
Function r(a, n)
If n = Int(n / 2) * 2 Then
If a >= 0 Then
r = a ^ (1 / n)
Else
MsgBox "No se puede obtener raíz real par, de un valor negativo"
End If
Else
If a < 0 Then
r = -Abs(a) ^ (1 / n)
Else
r = a ^ (1 / n)
End If
End If
End Function
Ahora codificaremos una función que sea usada por un procedimiento.
© Ilmer Cóndor Espinoza. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies