Mundo de Sistemas

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,""; E...

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: "...

Proceso Promedio_Notas definir M1,M2,N1,N2,N3,N4,M1t,M2t,v,v2,v3,v4,Pm como real; definir nom_est,mat1,mat2 como caracter; escribir "Nombre del estudiante"; leer nom_est; escribir "Nombre de la Materia1"; leer mat1; escribir "Nota1"; leer N1; Escribir "Nota2"; leer N2; v<- n1*40/100; v2<- n2*60/100; M1<- v+v2; escribir "Definitiva de la Materia1"; escribir m1; escribir "Nombre de la Materia2"; leer mat2; escribir "Nota1"; leer n3; escribir "Nota2"; leer n4; v3<- n3*40/100; v4<- n4*60/100; m2<- v3+v4; escribir "Definitiva de la Materia2"; escribir m2; pm<- (m1+m2)/2; escribir "Promedio del Estudiante" escribir pm; FinProceso

Proceso secuencia_Posit_Negat_Par_e_Impar definir num,cant como real; definir I,Posit,Negat,Par1,Impar1,a,b Como Entero; escribir "Digite la cantidad de Numeros"; leer cant; Posit<-0; Negat<-0; Par1<-0; Impar1<-0; para I=1 hasta cant escribir "Digite un numero"; leer num; a<-num/2; b<-a*2; si num>0 Entonces Posit<-Posit+1 si num=b entonces par1<-par1+1 Sino impar1<-impar1+1 FinSi Sino Negat<-Negat+1 FinSi FinPara escribir "Total de numeros posivos"; escribir Posit; escribir "total de numeros negativos"; escribir Negat; escribir "De los Numeros Positivos"; escribir  par1 " son par"; escribir Impar1 " son Impar"; FinProceso

Proceso multiplos_de_3_y_multiplos_de_5 definir num,cant,mult3,mult5,I,a,b,c,d como entero; escribir "digite cantidad de numeros"; leer cant; mult3y5<-0; Para I<-1 Hasta cant Escribir "digite numero"; Leer num; a<-num/3; b<-a*3; c<-num/5; d<-c*5; Si (num - b )=0 y (num - d)=0 Entonces Escribir num " es multiplo de 3 y de 5"; mult3y5<-mult3y5+1; sino escribir num " no es multiplo de 3 y de 5";    FinSi Fin Para Escribir "cantidad de multiplos de 3 y de 5"; Escribir mult3y5; FinProceso

Proceso Articulos definir nombrepro como caracter; definir cnt,vlrun,vlrtot como real; definir I como entero; VLRTOT<- 0; para I=1 hasta 3 escribir "Nombre del Producto"; leer nombrepro; escribir "cantidad"; leer cnt; escribir "Valor unidad"; leer vlrun; vlrtot<- vlrtot+(cnt*vlrun); FinPara escribir "El Valor Total es"; escribir vlrtot; FinProceso