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