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

Proceso Comisiones_Vendedores definir nom,t_vent,iva Como Caracter definir precio,iva_con,t_iva,vlr_est1,com_tot_1,vlr_est_2,com_tot_2,vlr_est_3,com_tot_3,vlr_tot_4,com_est_4,dias,i,cnt Como entero definir v_iva,cost_est como real escribir "digite cantidad de vendedores" leer cnt; Para i<-1 Hasta cnt Con Paso 1 Hacer escribir "digite nombre del vendedor"; leer nom; escribir "digite precio de venta"; leer precio; Escribir " digite tipo de venta ( credito o contado)"; leer t_vent; v_iva<-0.16; cost_est<-0.75; si t_vent="contado" Entonces Escribir "digite si la venta tiene o no tiene iva (si o no)"; leer iva; escribir "la venta es de contado"; Si iva="si" Entonces iva_con<- precio*v_iva; t_iva<-precio-iva_con; vlr_est_1<-t_iva*cost_est; com_tot_1<-vlr_est_1*0.07; escribir " la comision por la venta del ...

Proceso triangulo definir a,b,c como real; definir resp como entero; para resp<-1 hasta 2 Escribir 'ingrese los tres lados del Triangulo'; Leer a,b,c; Si a=b y a=c Entonces Escribir 'es un equilatero'; Sino Si a=b o b=c o a=c Entonces Escribir 'es un isoceles'; Sino Escribir 'es un escaleno'; FinSi FinSi Escribir 'Desea ingresar otros valores? (S=1 / N=2)'; Leer resp; Finpara FinProceso

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

¿Qué es JAVA? Es un lenguaje de programación de propósito general, concurrente, orientado a objetos y basado en clases que fue diseñado específicamente para tener tan pocas dependencias de implementación como fuera posible. Su intención es permitir que los desarrolladores de aplicaciones escriban el programa una vez y lo ejecuten en cualquier dispositivo (conocido en inglés como WORA, o "write once, runanywhere"), lo que quiere decir que el código que es ejecutado en una plataforma no tiene que ser recompilado para correr en otra Java es una tecnología que se usa para el desarrollo de aplicaciones que convierten a la Web en un elemento más interesante y útil. Java no es lo mismo que javascript, que se trata de una tecnología sencilla que se usa para crear páginas web y solamente se ejecuta en el explorador. Java le permite jugar, cargar fotografías, chatear en línea, realizar visitas virtuales y utilizar servicios como, por ejemplo, cursos en línea, servicios bancarios e...