• 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
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