-
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
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.
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.