Mis cursos: Desglose billete, Programa que calcule el desglose en billetes y monedas de una cantidad exacta de euros

<!Programa que calcule el desglose en billetes y monedas de una cantidad exacta de euros.
Hay billetes de 200, 100, 50, 20, 10 y 5 euros y monedas de 2 y 1 euros; así como de 50,
20, 10, 5 2 y 1 centimos.

Por ejemplo, si deseamos conocer el desglose de 434 euros, el programa mostrará por
pantalla el siguiente resultado:
2 billetes de 200 euros.
1 billete de 20 euros.
1 billete de 10 euros.
2 monedas de 2 euros.

Poceso: ¿Cómo se efectúa el desglose?
Empieza por calcular la división entera entre la cantidad y 200 (el valor de la mayor
moneda):
434 entre 200, cabe a 2 y sobran 34, así que en el desglose hay 2 billetes de 200 euros;
dividimos a continuación 34 entre 100 y vemos que no hay ningún billete de 100 euros en
el desglose (cabe a 0);
como el resto de la última división es 34, pasamos a dividir 34 entre 20 y vemos que el
desglose incluye un billete de 20 euros y aún nos faltan 14 euros
por desglosar. . . )
>
<html>
<head>
 <meta http-equiv="Content-Type" content="text/html; charset=iso-8"/>
</head>
<body>
<script type="text/javascript">
 //declaración de variables
 var b200,b100,b50,b10,b5,m2,m1,c50,c20,c10,c5,c2,c1;
 //lectura de entrada. Capital de dinero enEuros.
 E=prompt('Dame la cantidad de dinero: ','€');
 //proceso
 if(E>=200){
 b200=(E-(E%200))/200; //obtenemos el cociente exacto, billetes de 200€.
 //document.write(E,'€ ',E/200,' cociente ');
 E=E%200;
 document.write(b200,' billetes de 200€ ');
 document.write(E,' Resto ');
 }
 if(E>=100){
 b100=(E-(E%100))/100; //obtenemos el cociente exacto, billetes de 100€.
 //document.write(E,'€ ',E/100,' cociente ');
 E=E%100;
 document.write(b100,' billetes de 100€ ');
 document.write(E,' Resto ');
 }
 if(E>=50){
 b50=(E-(E%50))/50; //obtenemos el cociente exacto, billetes de 50€.
 //document.write(E,'€ ',E/50,' cociente ');
 E=E%50;
 document.write(b50,' billetes de 50€ ');
 document.write(E,' Resto ');
 }
 if(E>=20){
 b20=(E-(E%20))/20; //obtenemos el cociente exacto, billetes de 20€.
 //document.write(E,'€ ',E/20,' cociente ');
 E=E%20;
 document.write(b20,' billetes de 20€ ');
 document.write(E,' Resto ');
 }
 if(E>=10){
 b10=(E-(E%10))/10; //obtenemos el cociente exacto, billetes de 10€.
 //document.write(E,'€ ',E/10,' cociente ');
 E=E%10;
 document.write(b10,' billetes de 10€ ');
 document.write(E,' Resto ');
 }
 if(E>=5){
 b5=(E-(E%5))/5; //obtenemos el cociente exacto, billetes de 5€.
 //document.write(E,'€ ',E/5,' cociente ');
 E=E%5;
 document.write(b5,' billetes de 5€ ');
 document.write(E,' Resto ');
 }
 if(E>=2){
 m2=(E-(E%2))/2; //obtenemos el cociente exacto, monedas de 2€.
 //document.write(E,'€ ',E/2,' cociente ');
 E=E%2;
 document.write(m2,' monedas de 2€ ');
 document.write(E,' Resto ');
 }
 if(E>=1){
 m1=(E-(E%1))/1; //obtenemos el cociente exacto, monedas de 1€.
 //document.write(E,'€ ',E/1,' cociente ');
 E=E%1;
 document.write(m1,' monedas de 1€ ');
 document.write(E,' Resto ');
 }
 if(E>=0.49){
 c50=(E-(E%0.50))/0.50; //obtenemos el cociente exacto, monedas de 50 cent. de €.
 //document.write(E,'€ ',E/0.50,' cociente ');
 E=E%0.50;
 document.write(c50,' monedas de 50 centimos de € ');
 document.write(E,' Resto ');
 }
 if(E>=0.19){
 c20=(E-(E%0.20))/0.20; //obtenemos el cociente exacto, monedas de 20 cent. de €.
 //document.write(E,'€ ',E/0.20,' cociente ');
 E=E%0.20;
 document.write(c20,' monedas de 20 centimos de € ');
 document.write(E,' Resto ');
 }
 if(E>=0.09){
 c10=(E-(E%0.10))/0.10; //obtenemos el cociente exacto, monedas de 10 cent. de €.
 //document.write(E,'€ ',E/0.10,' cociente ');
 E=E%0.10;
 document.write(c10,' monedas de 10 centimos de € ');
 document.write(E,' Resto ');
 }
 if(E>=0.049){
 E=0.05;
 c5=(E-(E%0.05))/0.05; //obtenemos el cociente exacto, monedas de 5 cent. de €.
 //document.write(E,'€ ',E/0.05,' cociente ');
 E=E%0.05;
 document.write(c5,' monedas de 5 centimos de € ');
 document.write(E,' Resto ');
 }
 if(E>=0.019){
 E=0.02;
 c2=(E-(E%0.02))/0.02; //obtenemos el cociente exacto, monedas de 2 cent. de €.
 //document.write(E,'€ ',E/0.02,' cociente ');
 E=E%0.02;
 document.write(c2,' monedas de 2 centimos de € ');
 document.write(E,' Resto ');
 }
 if(E>=0.009){
 E=0.01;
 c1=(E-(E%0.01))/0.01; //obtenemos el cociente exacto, monedas de 1 cent. de €.
 //document.write(E,'€ ',E/0.01,' cociente ');
 E=E%0.01;
 document.write(c1,' monedas de 1 centimos de € ');
 document.write(E,' Resto ');
 }
</script>
</body>
</html>

Mis cursos

jueves, 9 de marzo de 2017

Desglose billete, Programa que calcule el desglose en billetes y monedas de una cantidad exacta de euros

1 comentario: