Cevichería en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Calcular la cuenta en una cevichería con las siguientes variables:
- Ceviche pequeño $3.50
- Ceviche grande $5.00
- Colas $0.50
- Porción de chifle $0.50
- Arroz $0.75
Iva de la cuenta.
Total de la cuenta.
La interfaz tiene que ser explicita para el consumidor explicando cada ingreso de forma clara que no confunda al usuario que va a usar el programa.

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
41
42
43
44
45
46
47
48
49
50
51
52
53

Proceso Cevicheria

    IVA <- 0;

    subtotal <- 0;

    total <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el valor de cantidad de platillos:";

        Leer cantidad_de_platillos;

        Escribir "Selecciona el valor de platillo.";

        Escribir "    1.- Ceviche pequeño";

        Escribir "    2.- Ceviche grande";

        Escribir "    3.- Colas";

        Escribir "    4.- Porción de chifle";

        Escribir "    5.- Arroz";

        Escribir Sin Saltar "    :";

        Repetir

            Leer platillo;

            Si platillo<1 O platillo>5 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que platillo>=1 Y platillo<=5;

        precio_del_platillo <- 0;

        Si platillo = 1 Entonces

            precio <- 3.5;

        FinSi

        Si platillo = 2 Entonces

            precio <- 5;

        FinSi

        Si platillo = 3 Entonces

            precio <- 0.5;

        FinSi

        Si platillo = 4 Entonces

            precio <- 0.5;

        FinSi

        Si platillo = 5 Entonces

            precio <- 0.75;

        FinSi

        importe <- precio_del_platillo*cantidad_de_platillos;

        subtotal <- subtotal+importe;

        Escribir "Valor de importe: ", importe;

        Escribir "Valor de precio: ", precio;

        Escribir "Valor de precio del platillo: ", precio_del_platillo;

        Escribir "";

        Repetir

            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";

            Leer tecla_repetir;

        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'

    Hasta Que tecla_repetir='n' O tecla_repetir='N'

    IVA <- subtotal*0.16;

    total <- subtotal+IVA;

    Escribir "Valor de IVA: ", IVA;

    Escribir "Valor de subtotal: ", subtotal;

    Escribir "Valor de total: ", total;

FinProceso