-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Lea un número y que muestre su raíces cuadrada y cúbica.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
2
3
4
5
6
7
8
9
10
11
12
13
14
Proceso RaicesCubicaYCuadrada
Escribir Sin Saltar "Ingresa el valor de numero:";
Leer numero;
Si numero>=0 Entonces
raiz_cuadrada <- RC(numero);
raiz_cubica <- (numero)^(1.0/3.0);
SiNo
raiz_cuadrada <- RC(-numero);
raiz_cubica <- (-numero)^(1.0/3.0);
Escribir "Raíces imaginarias";
FinSi
Escribir "Valor de raiz cuadrada: ", raiz_cuadrada;
Escribir "Valor de raiz cubica: ", raiz_cubica;
FinProceso
Escribir Sin Saltar "Ingresa el valor de numero:";
Leer numero;
Si numero>=0 Entonces
raiz_cuadrada <- RC(numero);
raiz_cubica <- (numero)^(1.0/3.0);
SiNo
raiz_cuadrada <- RC(-numero);
raiz_cubica <- (-numero)^(1.0/3.0);
Escribir "Raíces imaginarias";
FinSi
Escribir "Valor de raiz cuadrada: ", raiz_cuadrada;
Escribir "Valor de raiz cubica: ", raiz_cubica;
FinProceso