PSeInt_Ejercicio23_PrecioNeto

Proceso Ejercicio23_PrecioNeto
	//Se necesita un programa que mande llamar a un modulo llamado PRECIO_NETO, el cual
	//para funcionar correctamente debe recibir desde el algoritmo principal el precio y el
	//descuento deseado, al termina de ejecutarse se debe regresar el nuevo precio al
	//algoritmo principal.

	Definir p_neto, prec, desc, new_price como numerico
	definir resp como cadena
	Borrar Pantalla
	Repetir
		Escribir "Precio del producto: "
		Leer prec
		Escribir "Descuento a realizar (% como 0.10)"
		Leer desc
		new_price = Precio_Neto( prec, desc)
		Escribir "Resultado: ", new_price
		Escribir "Deseas calcular otro producto? (s/n)"
		leer resp
	Hasta Que resp = "n"
FinProceso

//Modulo Precio neto
subproceso nuevo_precio <- Precio_Neto( precio, descuento)
	definir nuevo_precio como numerico
	nuevo_precio = precio - (precio * descuento)
FinSubProceso