Optimizar condigo de Pseint Buenas noches, tengo este codigo en PSEINT
Proceso EXAMEN2
Limpiar Pantalla;
Definir M1,M2,M5,M10,B20,B50,B100,B200,B500,C Como Entero;
Definir D, B Como Caracter;
D = "S";
Mientras D="S" Hacer
C = azar (10000) + 1;
Escribir "La cantidad generada es " C;
B500 = (C-C MOD 500)/500; //ESTA OPERACION DEFINE LA CANTIDAD DE BILLETES NECESARIOS PARA GENERAR LA CANTIDAD GENERA
C = C MOD 500;
B200 = (C-C MOD 200)/200;
C = C MOD 200;
B100 = (C-C MOD 100)/100;
C = C MOD 100;
B50 = (C-C MOD 50)/50;
C = C MOD 50;
B20 = (C-C MOD 20)/20;
C = C MOD 20;
M10 = (C-C MOD 10)/10;
C = C MOD 10;
M5 = (C-C MOD 5)/5;
C = C MOD 5;
M2 = (C-C MOD 2)/2;
M1 = C MOD 2;
Si B500 >=1 Entonces
Si B500 >=2 Entonces
B = "Billetes";
Escribir B500 " " B " de 500";
Sino
Escribir B500 " Billete de 500";
Fin Si
FinSi
Si B200 >=1 Entonces
Si B200 >=2 Entonces
B = "Billetes";
Escribir B200 " " B " de 200";
Sino
Escribir B200 " Billete de 200";
Fin Si
Fin si
Si B100 >=1 Entonces
Si B100 >=2 Entonces
B = "Billetes";
Escribir B100 " " B " de 100";
Sino
Escribir B100 " Billete de 100";
Fin Si
Fin si
Si B50 >=1 Entonces
Si B50 >=2 Entonces
B = "Billetes";
Escribir B50 " " B " de 50";
Sino
Escribir B50 " Billete de 50";
Fin Si
Fin si
Si B20 >=1 Entonces
Si B20 >=2 Entonces
B = "Billetes";
Escribir B20 " " B " de 20";
Sino
Escribir B20 " Billete de 20";
Fin Si
Fin si
Si M10 >=1 Entonces
Si M10 >=2 Entonces
B = "Monedas";
Escribir M10 " " B " de 10";
Sino
Escribir M10 " Moneda de 10";
Fin Si
Fin si
Si M5 >=1 Entonces
Si M5 >=2 Entonces
B = "Monedas";
Escribir M5 " " B " de 5";
Sino
Escribir M5 " Moneda de 5";
Fin Si
Fin si
Si M2 >=1 Entonces
Si M2 >=2 Entonces
B = "Monedas";
Escribir M2 " " B " de 2";
Sino
Escribir M2 " Moneda de 2";
Fin Si
Fin si
Si M1 >=1 Entonces
Si M1 >=2 Entonces
B = "Monedas";
Escribir M1 " " B " de 1";
Sino
Escribir M1 " Moneda de 1";
Fin Si
Fin si
Escribir "¿Deseas realizar otra conversion (S/N)?";
Leer D;
Limpiar Pantalla;
Escribir "Gracias por usar el programa";
Fin Mientras
FinProceso
Se ejecuta y hace esto:
Gracias por usar el programa
La cantidad generada es 6084
12 Billetes de 500
1 Billete de 50
1 Billete de 20
1 Moneda de 10
2 Monedas de 2
¿Deseas realizar otra conversion (S/N)?
>
No tengo errores en el codigo y todo funciona de maravilla, solo quisiera ver si alguien puede optimizar mas el codigo. saludos y agradezco su apoyo
