Pseint - Utilidad promedio

Proceso Utilidad_promedio
definir nom como caracter
definir cnt,acom,acom1,i,pv,pc,u,u2,t_pv,t_pc,pro,pro2 como real
escribir "digite cantidad de productos"
leer cnt;
acom<-0; acom1<-0;
Para i<-1 Hasta cnt
Escribir "digite nombre del producto"

leer nom;
Escribir "digite precio de venta";
leer pv;
Escribir "digite precio de compra";
leer pc;

u<- pv-pc;

u2<-u/pc*100
acom<-acom+pv
acom1<-acom1+pc

escribir  "la utilidad es del:",u2,"%";
Escribir "----------------------------";
Fin Para
t_pv<-acom
t_pc<-acom1
pro<-t_pv-t_pc
pro2<-pro/cnt
escribir "la suma total de precio de venta es :" t_pv;
escribir "la suma total de precio de compra es :" t_pc;
escribir "la ganancia total es :" pro;
escribir "la utilidad promedio por cada producto es :" pro2;
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