Algoritmia - NECESITO AYUDA PARA OPTIMIZAR ESTE CÓDIGO 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

Proceso CodigoModificado

	Limpiar Pantalla;

	Definir M ,C, I Como Entero;  //Mi variable M será utilizada tanto para los billetes como para las monedas.

	Definir D, PrintM Como Caracter;  //PrintM en lugar de B

	D = "S";

	Mientras D="S" Hacer

 			C = azar (10000) + 1;

			Escribir "La cantidad generada es " C;

                        Para I <- 1 Hasta 9 Con Paso 1 Hacer;

						Segun I Hacer

									1:

									    M = 500

									    PrintM = "Billete"

									2:

									    M = 200

									    PrintM = "Billete"

									3:

									    M = 100

									    PrintM = "Billete"

									4:

									    M = 50

									    PrintM = "Billete"

									5:

									    M = 20

									    PrintM = "Billete"

									6:

									    M = 10

									    PrintM = "Moneda"

									7:

									    M = 5

									    PrintM = "Moneda"

								8:

									    M = 2

									    PrintM ="Moneda"

									9:

									    M = 1

									    PrintM ="Moneda"

						FInSegun

						M = (C - C MOD N) / N ;

						C = C MOD N;

  		                 		Si M >=1 Entonces

  		                 					Si M >=2 Entonces

  		                 						Escribir "Total " ,M  , PrintM , "s  de" , N;  //Fíjate como se escribe.

  		                 					Sino

  		                 						Escribir "Total "M , PrintM ,  " de" , N;

  		                 					Fin Si

  		                 		Fin si

                        Fin Para

                        Escribir "¿Deseas realizar otra conversion (S/N)?";

			Leer D;

			Limpiar Pantalla;

		        Escribir "Gracias por usar el programa";

	Fin Mientras

FinProceso