-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Determinar la raíz cuadrada siempre y cuando el valor que se introduzca sea positivo. Si es negativo, enviar mensaje de raíz imaginaria.
1
2
3
4
5
6
7
8
9
10
11
2
3
4
5
6
7
8
9
10
11
Proceso RaizCuadrada
Escribir Sin Saltar "Ingresa el valor de numero:";
Leer numero;
Si numero>=0 Entonces
raiz_cuadrada <- RC(numero);
SiNo
raiz_cuadrada <- RC(-numero);
Escribir "raíz imaginaria";
FinSi
Escribir "Valor de raiz cuadrada: ", raiz_cuadrada;
FinProceso
Escribir Sin Saltar "Ingresa el valor de numero:";
Leer numero;
Si numero>=0 Entonces
raiz_cuadrada <- RC(numero);
SiNo
raiz_cuadrada <- RC(-numero);
Escribir "raíz imaginaria";
FinSi
Escribir "Valor de raiz cuadrada: ", raiz_cuadrada;
FinProceso