Pseint - Valor de la Comisión

Proceso valor_de_comision
definir nomb_vend como caracter;
definir v_cont,v_cred,v_rec_cart,iva,com_cont,com_cred,com_rec_car,v_com,iva_con,com_tot_con,v_cre,iva_cre,com_tot_cre,com_tot_rec_cart,com_tot como real;
Escribir "Nombre del vendedor";
leer nomb_vend;
Escribir "valor de las ventas de contado";
leer v_cont;
Escribir "valor de las ventas a credito";
leer v_cred;
Escribir "valor de la comision por recaudo de cartera";
leer v_rec_cart;

iva<- 16/100;
com_cont<- 0.03;
com_cred<- 0.035;
com_rec<- 0.02;

v_com<- v_cont*com_cont;
iva_con<- v_com*iva;
com_tot_con<- v_com-iva_con;

v_cre<- v_cred*com_cred;
iva_cre<- v_cre*iva;
com_tot_cre<- v_cre-iva_cre;

com_tot_rec_cart<- v_rec_cart*com_rec;

com_tot<- com_tot_con+com_tot_cre+com_tot_rec_cart;

Escribir "comision de ",nomb_vend," por ventas de contado con iva es ",v_com,"";
Escribir "iva de la comision de ",nomb_vend," por ventas de contado es ",iva_con,"";
Escribir "total de la comision de ",nomb_vend," por ventas de contado descontando el iva es ",com_tot_con,"";
Escribir "la comision de ",nomb_vend," por ventas a credito con iva es ",v_cre,"";
Escribir "iva de la comision de ",nomb_vend," por ventas a credito es ",iva_cre,"";
Escribir "total de la comision de ",nomb_vend," por ventas a credito descontando el iva es ",com_tot_cre,"";

Escribir "total de la comision de ",nomb_vend," por recaudo de cartera es ",com_tot_rec_cart,"";
Escribir "comision total a cancelar a ",nomb_vend," es ",com_tot,"";
FinProceso

Comentarios

Publicar un comentario

Entradas populares de este blog

Pseint---- Ordenar tres números de mayor a menor

Proceso ordenar_mayor_a_memor definir num1,num2,num3 como entero; escribir "Introduce 3 Numero"; leer num1; leer num2; leer num3; si num1>num2 y num1>num3 Entonces escribir num1; si num2>num3 Entonces escribir num2; escribir num3; Sino escribir num3; escribir  num2; FinSi sino si num2>num1 y num2>num3 entonces escribir num2; si num1>num3 Entonces escribir num1; escribir num3; Sino escribir num3; escribir num1; FinSi Sino escribir num3; si num1>num2 Entonces escribir num1; escribir num2; Sino escribir num2; escribir num1; FinSi FinSi finsi FinProceso
Leer más

Pseint - Nomina Salarial

Proceso Nomina_Salarial definir sd,He,at,td,ps,tp,vp,ps1,ps2 Como real; definir s,d,t,he1 como entero; definir nomb como caracter; escribir "Nombre del Trabajador"; leer Nomb; escribir "Salario Basico"; leer s; escribir "Dias Trabajados"; leer D; escribir "Auxilio de Transporte"; leer t; escribir "Horas Extras"; leer He1; sd<- (s/30)*d; at<- (t/30)*d; he<- (s/240)*1.25*he1; td<- sd+he+at; ps1<- td*0.04; ps2<- td*0.04; vp<- td*0.05; tp<- td-ps1-ps2-vp; escribir "Salario Devengado: ",sd; escribir "Total Auxilio Transporte: ",at; escribir "Total Horas Extras: ",he; Escribir "Total Devengado: ",td; escribir "Menos Seguridad Social (Salud 4% y Pension 4%)"; escribir "Salud: ",ps1; escribir "Pension: ",ps2; escribir "Menos prestamo del 5%"; escribir "Valor Prestado: "...
Leer más