Mundo de Sistemas

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