• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Una carnicería registró durante el día la compra que realizó cada uno de sus N clientes, sabiendo que si el cliente compra entre 2 a 4 kilos se le aplica un descuento del 5%, si compra más de 4 kilos hasta 7 kilos se le aplica un descuento del 8% y si compra más de 7 kilos se le aplica un descuento del 10%.
    Ingrese el precio del kilo de carne y la cantidad que llevará el cliente y obtenga la siguiente información:
    - Cantidad de clientes que no recibieron ningún descuento.
    - Mayor compra realizada.
    - Total de las ventas netas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Proceso VentasDeUnaCarniceria
    clientes_sin_descuento <- 0;
    mayor_compra <- 0;
    total <- 0;
    Escribir Sin Saltar "Ingresa el valor de n:";
    Leer n;
    Para i<-1 Hasta n Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingresa el valor de cantidad:";
        Leer cantidad;
        Escribir Sin Saltar "Ingresa el valor de precio:";
        Leer precio;
        subtotal <- precio*cantidad;
        descuento <- 0;
        Si cantidad<2 Entonces
            clientes_sin_descuento <- clientes_sin_descuento+1;
        FinSi
        Si cantidad>=2 Y cantidad<=4 Entonces
            descuento <- subtotal*0.05;
        FinSi
        Si cantidad>4 Y cantidad<=7 Entonces
            descuento <- subtotal*0.08;
        FinSi
        Si cantidad>7 Entonces
            descuento <- subtotal*0.1;
        FinSi
        compra <- subtotal-descuento;
        Si i = 1 O mayor_compra<compra Entonces
            mayor_compra <- compra;
        FinSi
        total <- total+compra;
        Escribir "Valor de compra: ", compra;
        Escribir "Valor de descuento: ", descuento;
        Escribir "Valor de subtotal: ", subtotal;
        Escribir "";
    FinPara
    Escribir "Valor de clientes sin descuento: ", clientes_sin_descuento;
    Escribir "Valor de mayor compra: ", mayor_compra;
    Escribir "Valor de total: ", total;
FinProceso