Mundo de Sistemas

Proceso Descomponer_Numero definir n,u,d,c,um,t,r,s,m  Como Entero; leer n; t<- n/10; u<- n-(t*10) r<- t/10; d<- t-(r*10) s<- r/10; c<- r-(s*10); um<- s; escribir u; escribir d; escribir c; escribir um; FinProceso

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

Proceso Numeros_Enteros definir num1,num2,num3,rango1,rango2 como entero; escribir "Digite Tres Numeros"; leer num1; leer num2; leer num3; rango1<- 30; rango2<- (num1/2)*3; si num1>0 y num1>=rango1 entonces escribir "el primer numero cumple con la condicion"; si num2>0 y num2>=rango1 y num2<=rango2 entonces escribir "el segundo numero cumple con la condicion"; si num3>0 y num3>=rango1 y num3<=rango2 Entonces escribir "el tercer numero cumple con la condicion"; si num1>num2 y num1>num3 Entonces escribir "El Mayor es" num1; si num2>num3 Entonces escribir "El del Medio es" num2; escribir "El Menor es" num3; Sino escribir "El del medio es" num3; escribir "El menor es" num2; FinSi sino si num2>num1 y num2>num3 entonces escribir "el mayor es...

Proceso Edad definir nom1,nom2 Como Caracter; definir edad1,edad2,edadtotal como real; escribir "Escriba Dos Nombres"; leer nom1; leer nom2; edadtotal<- 80; edad1<- (400/18); edad2<- 2*(3/5)*edad1; si edad1>=18 Entonces escribir nom1," " "es mayor de edad"; Sino escribir nom1," " "es menor de edad"; FinSi si edad2>=18 Entonces escribir nom2," " "es mayor de edad"; sino escribir nom2," " "es menor de edad"; FinSi si edad1>edad2 Entonces escribir nom1," " "es mayor que ",nom2; sino escribir nom2," " "es menor que ",nom1; FinSi FinProceso

Proceso Determine_Numero definir num como entero; escribir "Digite un Numero"; leer num; si num>0 y num>20 y num<50 Entonces escribir "El numero cumple con la condicion de ser positivo y estar entre 20 y 50"; Sino escribir "El numero no cumple con la condicion de ser positivo y estar entre 20 y 50"; FinSi FinProceso

Proceso Bonificacion definir Nomb,nomb_emp,civil,folc como caracter; definir tiem,sal,num_hijos como entero; definir solt,casad,rango,menor_tiem,mayor_tiem,asocia,hijos como real; escribir "Nombre de la Empresa"; leer nomb_emp; escribir "Nombre del trabajador"; leer Nomb; escribir "Salario del Trabajador"; leer sal; escribir "Tiempo que lleva Trabajando"; leer Tiem; escribir "Pertenece a alguna Asociacón Folclórica (si=S o no=N)?"; leer folc; escribir "Estado Civil"; leer civil; escribir "Cuantos hijos tiene o si no tiene escriba 0"; leer num_hijos; menor_tiem<- (sal*0.10); rango<- (sal*0.20); mayor_tiem<- (sal*0.30); asocia<- (sal*0.15); solt<- (sal*0.05); casad<- (sal*0.10); hijos<- (sal*0.01)*num_hijos; si tiem<5 entonces escribir "La Bonificación por tener menos de 5 años trabajando es " Menor_tiem; Sino si tiem>=...

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

En unas elecciones de 3 Candidatos se desea saber ¿cual es el promedio de la votación? y ¿cual es la mayor votación? -------------------------------------------------------------------------------------------------------- Datos de Variables Candidato1 = c1 Candidato2 = c2 Candidato3 = c3 Promedio de Votos = p Mayor Votación = Can -------------------------------------------------------------------------------------------------------- Proceso votos_candidato definir can,c1, c2, c3, p Como Entero can<-0; escribir "Cantidad De Votos Candidato numero 1"; leer c1; escribir "Cantidad De Votos Candidato numero 2"; leer c2; escribir "Cantidad De Votos Candidato numero 3"; leer c3; p<-(c1+c2+c3)/3; si c1>c2 y c1>c3 Entonces can<-c1; FinSi si c2>c1 y c2>c3 Entonces can<-c2; FinSi si c3>c1 y c3>c2 Entonces can<-c3; FinSi Escribir "El Promedio De Votos Es : ",p; Escri...

Proceso Velocidad_Sonido definir x,vel,tiem,dist como real; escribir "Ingrese la distancia en Km"; leer dist; vel<-300 x<- dist*(1000/1); tiem<- x/vel; escribir tiem " segundos"; FinProceso

Proceso Tablas_de_multiplicar_del_1_al_9 definir I,num,prod como entero; para num<-1 hasta 9  para I<-1 hasta 10    prod<- num*I    escribir num "X" I "=" prod;  finpara escribir "___________"     finpara FinProceso

Proceso Tabla_de_multiplicar_del_1 definir I,num,prod como entero; escribir "Digite el numero a Multiplicar"; leer num; para I<-1 hasta 10 prod<- num*I escribir num "X" I "=" prod;     finpara FinProceso

Proceso Encuesta definir I,edad,estrato,cedadma,cedadme,ccasado,cunionl,csoltero,cpropia,carrendada,n,cfamiliar,c0,c1,c2,c3,c4,c5,c6 como entero; definir civil,vivienda,nom como caracter; cedadma<-0; cedadme<-0; ccasado<-0; cunionl<-0; csoltero<-0; cpropia<-0; carrendada<-0; n<-0; cfamiliar<-0; c0<-0; c1<-0; c2<-0; c3<-0; c4<-0; c5<-0; c6<-0; escribir "digite la cantidad de encuestados"; leer n; para I<-1 hasta n escribir "digite el nombre del encuestado"; leer nom; escribir "digite la edad"; leer edad; escribir "digite estado civil (Soltero, Casado, Union Libre)"; leer civil; escribir "digite tipo de vivienda (Propia, Arrendada, Familiar)"; leer vivienda; escribir "digite Estrato Social (0,1,2,3,4,5,6)"; leer estrato; si edad>=18 entonces cedadma<-cedadma+1 Sino cedadme<-cedadme+1 FinSi si civil=...

Proceso multiplo_del_menor definir n1,n2,n3,n4,n5,n6 como entero; Definir mul,mul1,mult,mult1 como real; escribir "Digite Tres Numeros"; leer n1; leer n2; leer n3; si n1<n2 y n1<n3 entonces escribir n1, " es el menor"; n4<-n1 n5<-n2; n6<-n3; Sino si n2<-n1 y n2<n3 Entonces escribir n2, "es el menor"; n4<-n2 n5<-n1; n6<-n3; Sino escribir n3, " es el menor"; n4<-n3 n5<-n1 n6<-n2 FinSi FinSi mul<-(n5/n4); mult<-mul*n4; mul1<-(n6/n4)*n4; mult1<-mul1*n4; si mult=n5 entonces escribir n5, " es multiplo del menor"; sino escribir n5, " no es multiplo del menor"; FinSi si mult1=n6 entonces escribir n6," es multiplo del menor"; sino escribir n6," no es multiplo del menor"; FinSi FinProceso

Proceso palindrome Definir num,t,u,r,d,s,c,um Como Entero escribir "digite un numero de 4 cifras"; leer num; t<- num/10; u<- num-(t*10) r<- t/10; d<- t-(r*10) s<- r/10; c<- r-(s*10); um<- s; si num>999 y num<10000 entonces escribir "realizar la compracion"; si u=um y d=c entonces  Escribir "el numero es palindrome";  sino  escribir "el numero no es palindrome"; FinSi sino escribir "no se puede realizar la comparacion"; FinSi FinProceso

Proceso enteros_negativos_decimales definir k,num,cant,posit,negat,ent,dec como real; definir I,x como entero; ent<-0; posit<-0; negat<-0; dec<-0; escribir "digite la cantidad de numeros"; leer cant; para I<-1 hasta cant escribir "digite un numero"; leer num; x<-num; k<-num-x; si k=0 Entonces ent<-ent+1 Sino   dec<-dec+1   FinSi si num=0 Entonces escribir "el cero es neutro"; FinSi si num>0 entonces posit<-posit+1 Sino negat<-negat+1 FinSi FinPara escribir "numero entero " ent; escribir "numero decimales " dec; escribir "numeros positivos " posit; escribir "numeros negativos " negat; FinProceso