• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Programa para una máquina que reconoce y acepta billetes de $1, $2, $5 y $10. Cada boleto cuesta $6 y el cliente puede comprar la cantidad de boletos que desee. La máquina recibe la cantidad de billetes de cada denominación y calcula el dinero entregado y el total a pagar por el cliente. Al final, debe mostrar la cantidad de dinero que debe devolver.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Proceso MaquinaDeBoletos
    Escribir Sin Saltar "Ingresa el valor de billetes de 1:";
    Leer billetes_de_1;
    Escribir Sin Saltar "Ingresa el valor de billetes de 10:";
    Leer billetes_de_10;
    Escribir Sin Saltar "Ingresa el valor de billetes de 2:";
    Leer billetes_de_2;
    Escribir Sin Saltar "Ingresa el valor de billetes de 5:";
    Leer billetes_de_5;
    Escribir Sin Saltar "Ingresa el valor de boletos:";
    Leer boletos;
    total_a_pagar <- boletos*6;
    dinero_entregado <- billetes_de_1+billetes_de_2*2+billetes_de_5*5+billetes_de_10*10;
    dinero_a_devolver <- dinero_entregado-total_a_pagar;
    Escribir "Valor de dinero a devolver: ", dinero_a_devolver;
    Escribir "Valor de dinero entregado: ", dinero_entregado;
    Escribir "Valor de total a pagar: ", total_a_pagar;
FinProceso