• Lenguaje

    Pascal

  • 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
19
20
21
22
23
24
25
26
program MaquinaDeBoletos;
uses crt;

var billetes_de_1, billetes_de_10, billetes_de_2, billetes_de_5, boletos : integer;
var dinero_a_devolver, dinero_entregado, total_a_pagar : integer;
begin
    write ('Ingresa el valor de billetes de 1: ');
    readln (billetes_de_1);
    write ('Ingresa el valor de billetes de 10: ');
    readln (billetes_de_10);
    write ('Ingresa el valor de billetes de 2: ');
    readln (billetes_de_2);
    write ('Ingresa el valor de billetes de 5: ');
    readln (billetes_de_5);
    write ('Ingresa el valor de boletos: ');
    readln (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;
    writeln ('Valor de dinero a devolver: ', dinero_a_devolver);
    writeln ('Valor de dinero entregado: ', dinero_entregado);
    writeln ('Valor de total a pagar: ', total_a_pagar);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.