ALGORITMO QUE MUESTRE EL IMPORTE A PAGAR POR COMPRA DE CARNE

Calcular el importe por la compra de carne en pseint.

💻 Un Supermercado ofrece descuentos por la compra de diferentes tipos de carne, si el peso de la carne es al menos 3 kilos los clientes tienen descuentos del importe a pagar según la tabla siguiente :

TIPO DE CARNE = DESCUENTO %
Pollo = 7%
Res = 8%
Cerdo = 15%

Elabore un algoritmos que lea el precio por kg., peso y el tipo de carne que compra un cliente. Debe calcular el importe, el descuento y el importe a pagar.

PSeInt Estricto : DESCARGA EL CÓDIGO

Algoritmo programacion_work  
    Definir tipo como Caracter;
    Definir precio, peso, importe, desct como Real;	
    importe <- 0;
    desct <- 0;
    Escribir "SELECCIONE EL TIPO DE CARNE";
    Escribir Sin Saltar "POLLO - RES - CERDO :    ";
    Leer tipo;
    Escribir Sin Saltar "PRECIO POR KILO     : S/.";
    Leer precio;
    Escribir Sin Saltar "CANTIDAD DE KILOS   :    ";
    Leer peso;	
    tipo <- MAYUSCULAS(tipo);
    SI (peso >= 3) Entonces
        Si (tipo == "POLLO") Entonces
            desct <- 0.07;
        SiNo
            Si (tipo == "RES") Entonces
                desct <- 0.08;
            SiNo
                Si (tipo == "CERDO") Entonces
                    desct <- 0.15;			
                FinSi
            FinSi
        FinSi
    FinSi	
    Escribir "";
    importe <- precio * peso;
    Escribir "IMPORTE         : S/.", importe;
    Escribir "DESCUENTO       : S/.", (importe * desct);
    Escribir "IMPORTE A PAGAR : S/.", (importe - (importe * desct));
FinProceso

PSeInt Flexible :

Algoritmo programacion_work  
    Escribir "SELECCIONE EL TIPO DE CARNE"
    Escribir Sin Saltar "POLLO - RES - CERDO :    "
    Leer tipo
    Escribir Sin Saltar "PRECIO POR KILO     : S/."
    Leer precio
    Escribir Sin Saltar "CANTIDAD DE KILOS   :    "
    Leer peso
    tipo <- MAYUSCULAS(tipo)
    SI (peso >= 3) Entonces
        Si (tipo == "POLLO") Entonces
            desct = 0.07
        SiNo
            Si (tipo == "RES") Entonces
                desct = 0.08
            SiNo
                Si (tipo == "CERDO") Entonces
                    desct = 0.15
                FinSi
            FinSi
        FinSi
    FinSi	
    Escribir ""
    importe <- precio * peso
    Escribir "IMPORTE         : S/.", importe
    Escribir "DESCUENTO       : S/.", (importe * desct)
    Escribir "IMPORTE A PAGAR : S/.", (importe - (importe * desct))
FinAlgoritmo