-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Algoritmo que calcula el desglose mínimo en billetes y monedas de una cantidad exacta de euros.
Hay billetes de 500, 200, 100, 50, 20, 10 y 5 euros.
Hay monedas de 2 y 1 euros.
Por ejemplo: El desglose de 434 euros mostrará lo siguiente:
2 billetes de 200
1 billete de 20
1 billete de 10
2 monedas de 2 euros
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
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
Proceso DesgloseMinimoEnBilletesYMonedas
Escribir Sin Saltar "Ingresa el valor de cantidad de euros:";
Leer cantidad_de_euros;
monedas_de_1 <- cantidad_de_euros;
billetes_de_500 <- (monedas_de_1-monedas_de_1 MOD 500)/500;
monedas_de_1 <- monedas_de_1 MOD 500;
billetes_de_200 <- (monedas_de_1-monedas_de_1 MOD 200)/200;
monedas_de_1 <- monedas_de_1 MOD 200;
billetes_de_100 <- (monedas_de_1-monedas_de_1 MOD 100)/100;
monedas_de_1 <- monedas_de_1 MOD 100;
billetes_de_50 <- (monedas_de_1-monedas_de_1 MOD 50)/50;
monedas_de_1 <- monedas_de_1 MOD 50;
billetes_de_20 <- (monedas_de_1-monedas_de_1 MOD 20)/20;
monedas_de_1 <- monedas_de_1 MOD 20;
billetes_de_10 <- (monedas_de_1-monedas_de_1 MOD 10)/10;
monedas_de_1 <- monedas_de_1 MOD 10;
billetes_de_5 <- (monedas_de_1-monedas_de_1 MOD 5)/5;
monedas_de_1 <- monedas_de_1 MOD 5;
monedas_de_2 <- (monedas_de_1-monedas_de_1 MOD 2)/2;
monedas_de_1 <- monedas_de_1 MOD 2;
Escribir "Valor de billetes de 10: ", billetes_de_10;
Escribir "Valor de billetes de 100: ", billetes_de_100;
Escribir "Valor de billetes de 20: ", billetes_de_20;
Escribir "Valor de billetes de 200: ", billetes_de_200;
Escribir "Valor de billetes de 5: ", billetes_de_5;
Escribir "Valor de billetes de 50: ", billetes_de_50;
Escribir "Valor de billetes de 500: ", billetes_de_500;
Escribir "Valor de monedas de 1: ", monedas_de_1;
Escribir "Valor de monedas de 2: ", monedas_de_2;
FinProceso
Escribir Sin Saltar "Ingresa el valor de cantidad de euros:";
Leer cantidad_de_euros;
monedas_de_1 <- cantidad_de_euros;
billetes_de_500 <- (monedas_de_1-monedas_de_1 MOD 500)/500;
monedas_de_1 <- monedas_de_1 MOD 500;
billetes_de_200 <- (monedas_de_1-monedas_de_1 MOD 200)/200;
monedas_de_1 <- monedas_de_1 MOD 200;
billetes_de_100 <- (monedas_de_1-monedas_de_1 MOD 100)/100;
monedas_de_1 <- monedas_de_1 MOD 100;
billetes_de_50 <- (monedas_de_1-monedas_de_1 MOD 50)/50;
monedas_de_1 <- monedas_de_1 MOD 50;
billetes_de_20 <- (monedas_de_1-monedas_de_1 MOD 20)/20;
monedas_de_1 <- monedas_de_1 MOD 20;
billetes_de_10 <- (monedas_de_1-monedas_de_1 MOD 10)/10;
monedas_de_1 <- monedas_de_1 MOD 10;
billetes_de_5 <- (monedas_de_1-monedas_de_1 MOD 5)/5;
monedas_de_1 <- monedas_de_1 MOD 5;
monedas_de_2 <- (monedas_de_1-monedas_de_1 MOD 2)/2;
monedas_de_1 <- monedas_de_1 MOD 2;
Escribir "Valor de billetes de 10: ", billetes_de_10;
Escribir "Valor de billetes de 100: ", billetes_de_100;
Escribir "Valor de billetes de 20: ", billetes_de_20;
Escribir "Valor de billetes de 200: ", billetes_de_200;
Escribir "Valor de billetes de 5: ", billetes_de_5;
Escribir "Valor de billetes de 50: ", billetes_de_50;
Escribir "Valor de billetes de 500: ", billetes_de_500;
Escribir "Valor de monedas de 1: ", monedas_de_1;
Escribir "Valor de monedas de 2: ", monedas_de_2;
FinProceso