PROBLEMAS SECUENCIALES._
1.Suponga que un individuo desea invertir su capital en un banco y desea saber cuanto dinero ganara después de un mes si el banco paga a razón de 2% mensual.
Inicio
Leer cap_inv
gan = cap_inv * 0.02
Imprimir gan
Fin
- En pseint:
Proceso capital
Escribir " ingrese el capital"
leer cap;
gan<-cap*0.02;
Escribir "La ganancia es:",gan;
Escribir "Rosselyn Corzo Bocanegra";
FinProceso
2) Un vendedor recibe un sueldo base más un 10% extra por comisión de sus ventas, el vendedor desea saber cuanto dinero obtendrá por concepto de comisiones por las tres ventas que realiza en el mes y el total que recibirá en el mes tomando en cuenta su sueldo base y comisiones.
Inicio
Leer sb, v1, v2, v3
tot_vta = v1 + v2 + v3
com = tot_vta * 0.10
tpag = sb + com
Imprimir tpag, com
Fin
-En pseint
Proceso ejercicio2
Escribir " introduzca las ventas"
leer v1,v2,v3;
Escribir "introduzca el sueldo base"
Leer sb;
tot_vta<- v1+v2+v3;
com<- tot_vta*0.10;
tpag<- sb+com;
Escribir "Total a pagar es:",tpag;
Escribir "comision:",com;
Escribir "Rosselyn Corzo Bocanegra";
FinProceso
3) Una tienda ofrece un descuento del 15% sobre el total de la compra y un cliente desea saber cuanto deberá pagar finalmente por su compra.
Inicio
Leer tc
d = tc * 0.15
tp = tc - d
Imprimir tp
Fin
-En pseint
Proceso sin_titulo
Escribir " Introduzca total de la compra"
leer tc
d<- tc*0.15
tp<- tc-d
Escribir "Total a pagar:",tp;
Escribir "Rsosselyn Corzo Bocanegra"
FinProceso
4) Un alumno desea saber cual será su calificación final en la materia de Algoritmos. Dicha calificación se compone de los siguientes porcentajes:
55% del promedio de sus tres calificaciones parciales.
30% de la calificación del examen final.
15% de la calificación de un trabajo final.
Inicio
Leer c1, c2, c3, ef, tf
prom = (c1 + c2 + c3)/3
ppar = prom * 0.55
pef = ef * 0.30
ptf = tf * 0.15
cf = ppar + pef + ptf
Imprimir cf
Fin
-En pseint
Proceso sin_titulo
Escribir " Calificaciones"
leer c1,c2,c3;
Escribir "Introduce calificacion de examen final"
leer ef;
Escribir "Introduce calificacion de trabajo final"
Leer tf
prom<-(c1+c2+c3)/3
ppar<-prom*0.55
pef<-ef*0.30
ptf<-tf*0.15
cf<-ppar+pef+ptf
Escribir "Calificacion Final:",cf;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
5) Un maestro desea saber que porcentaje de hombres y que porcentaje de mujeres hay en un grupo de estudiantes.
Inicio
Leer nh, nm
ta = nh + nm
ph = nh * 100 / ta
pm = nm * 100 / ta
Imprimir ph, pm
Fin
-En pseint
Proceso sin_titulo
Escribir " Introduce salario"
Leer sl
inc<-sl*.25
incs<-sl+inc
Escribir "Sueldo con incremento del 25%:",incs;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
6) Realizar un algoritmo que calcule la edad de una persona.
Inicio
Leer fnac, fact
edad = fact - fnac
Imprimir edad
Fin.
-En pseint
Proceso sin_titulo
Escribir "Introduce año de nacimiento"
Leer fnac
Escribir "Introduce año actual"
Leer fact
edad<-fact-fnac
Escribir " La edad es:",edad;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
1) Dada un cantidad en pesos, obtener la equivalencia en dólares, asumiendo que la unidad
cambiaría es un dato desconocido.
Proceso sin_titulo
Escribir "insertar cantidad en pesos"
Leer cp
Escribir "inserte unidad cambiaria"
Leer camb
dolares<-cp/camb
Escribir "Cantidad en dolares es:",dolares;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
2) Leer un numero y escribir el valor absoluto del mismo.
Proceso sin_titulo
Escribir "Introduzca un valor"
leer n
a<-abs(n);
Escribir "valor absoluto:",a;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
5) Calcular el nuevo salario de un obrero si obtuvo un incremento del 25% sobre su salario anterior.
Escribir " Introduce el numero de hombre"
leer nh
Escribir "Introduce el numero de mujeres"
Leer nm
ta<-nh+nm
ph<-nh*100/ta
pm<-nm*100/ta
Escribir " Porcentaje de hombres:",ph;
Escribir "Porcetaje de mujeres:",pm;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
6) En un hospital existen tres áreas: Ginecología, Pediatría, Traumatologia. El presupuesto anual del hospital se reparte conforme a la sig. tabla:
Área Porcentaje del presupuesto
Ginecología 40%
Traumatologia 30%
Pediatría 30%
Obtener la cantidad de dinero que recibirá cada área, para cualquier monto presupuestal.
Proceso sin_titulo
Escribir " Introduce el presupuesto anual"
leer pa
g<-pa*.40
t<-pa*30
p<-pa*.30
Escribir "Ginecologia presupuesto:",g;
Escribir "traumatologia presupesto:",t;
Escribir "Pediatria presupuesto:",p;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
La calificación de Matemáticas se obtiene de la sig. manera:
Examen 90%
Promedio de tareas 10%
En esta materia se pidió un total de tres tareas.
La calificación de Física se obtiene de la sig. manera:
Examen 80%
Promedio de tareas 20%
En esta materia se pidió un total de dos tareas.
La calificación de Química se obtiene de la sig. manera:
Examen 85%
Promedio de tareas 15%
En esta materia se pidió un promedio de tres tareas.
Proceso sin_titulo
Escribir " Insertar Calificacionde tarea 1 de matematicas"
leer t1m
Escribir " Insertar Calificacionde tarea 2 de matematicas"
Leer t2m
Escribir " Insertar Calificacionde tarea 3 de matematicas"
Leer t3m
Escribir "Insertar calificacicon del examen de matematicas"
leer exm
ptm<-(t1m+t2m+t3m)/3*.10
pexm<-exm*.90
pm<-ptm+pexm
Escribir "Insertar calificacion de tarea 1 de fisica"
leer t1f
Escribir "Insertar calificacion de tarea 2 de fisica"
Leer t2f
Escribir "insertar calificacion de examen de fisica"
leer exf
ptf<-(t1f+t2f)/2*.20
pexf<-exf*.80
pf<-ptf+pexf
Escribir "Insertar calificacion de tarea 1 de quimica"
leer t1q
Escribir "Insertar calificacion de tarea 2 de quimica"
Leer t2q
Escribir "Insertar calificacion de tarea 3 de quimica"
Leer t3q
Escribir "Insertar calificacion de examen de quimica"
Leer exq
ptq<-(t1q+t2q+t3q)/3*.15
pexq<-exq*.85
pq<-ptq+pexq
pg<-(pm+pf+pq)/3
Escribir "Promedio matematicas:",pm;
Escribir "Promedio fisica:",pf;
Escribir "promedio quimica:",pq;
Escribir "Promedio general:",pg;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
-Problemas Condicionales
1) Un hombre desea saber cuanto dinero se genera por concepto de intereses sobre la cantidad que tiene en inversión en el banco. El decidirá re invertir los intereses siempre y cuando estos excedan a $7000, y en ese caso desea saber cuanto dinero tendrá finalmente en su cuenta.
Inicio
Leer p_int, cap
int = cap * p_int
si int > 7000 entonces
capf = cap + int
fin-si
Imprimir capf
fin
-En pseint
Proceso sin_titulo
Escribir "Ingrese capital"
Leer cap
Escribir "ingrese Taza de intereses"
Leer p_int
int<-(cap*p_int)/100
si int>7000 Entonces
capf<- cap+int
Escribir "El capital final es:",capf;
Sino
Escribir "Los intereses no llegan a los 7000"
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
2) Determinar si un alumno aprueba o reprueba un curso, sabiendo que aprobara si su promedio de tres calificaciones es mayor o igual a 70; reprueba en caso contrario.
Inicio
Leer calif1, calif2, calif3
prom = (calif1 + calif2 + calif3)/3
Si prom >= 70 entonces
Imprimir “alumno aprobado”
si no
Imprimir “alumno reprobado”
Fin-si
Fin
-En pseint
Proceso sin_titulo
Escribir "Insertar Calidicacion 1"
Leer calif1
Escribir "Insertar calificacion 2"
Leer calif2
Escribir "Insertar Calificacion 3"
Leer calif3
prom<-(calif1+calif2+calif3)/3
si prom >=7 Entonces
Escribir "Alumno aprobado"
Sino
Escribir "Alumno reprobado"
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
3) En un almacén se hace un 20% de descuento a los clientes cuya compra supere los $1000 ¿ Cual será la cantidad que pagara una persona por su compra?
Inicio
Leer compra
Si compra > 1000 entonces
desc = compra * 0.20
si no
desc = 0
fin-si
tot_pag = compra - desc
imprimir tot_pag
fin.
-En pseint
Proceso sin_titulo
Escribir " Intruduzca su compra"
Leer compra
si compra > 1000 Entonces
des <- compra*.20
tot_pag<-compra-des
Escribir "total de la compra:",tot_pag;
Sino
desc<-0
Escribir "Total de descuento:",0;
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
4) Un obrero necesita calcular su salario semanal, el cual se obtiene de la sig. manera: Si trabaja 40 horas o menos se le paga $16 por hora Si trabaja mas de 40 horas se le paga $16 por cada una de las primeras 40 horas y $20 por cada hora extra.
Inicio
Leer ht
Si ht > 40 entonces
he = ht - 40
ss = he * 20 + 40 * 16
si no
ss = ht * 16
Fin-si
Imprimir ss
Fin
-En pseint
Proceso sin_titulo
Escribir " horas trabajadas"
leer ht
si ht>40 Entonces
he=ht-40
ss=(he*20)+(40*16)
Escribir "Total a pagar:",ss;
Sino
ss=ht*16
Escribir "Total a pagar:",ss;
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
5) Un hombre desea saber cuanto dinero se genera por concepto de intereses sobre la cantidad que tiene en inversión en el banco. El decidirá reinvertir los intereses siempre y cuando estos excedan a $7000, y en ese caso desea saber cuanto dinero tendrá finalmente en su cuenta.
Inicio
Leer p_int, cap
int = cap * p_int
si int > 7000 entonces
capf = cap + int
fin-si
Imprimir capf
fin
-En pseint
Proceso sin_titulo
Escribir " introduce capital"
Leer cap
Escribir "introduce taza de intereses"
Leer p_int
int<-cap*p_int/100
si int >7000 Entonces
capf<- cap+int
Escribir " Su capital final es de:",capf;
Sino
Escribir "No llega a 7000"
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
6) Que lea dos números y los imprima en forma ascendente
Inicio
Leer num1, num2
Si num1 < num2 entonces
Imprimir num1, num2
si no
Imprimir num2, num1
fin-si
fin
-En pseint
Proceso sin_titulo
Escribir "introduce un numero"
leer num1
Escribir "introduce otro numero"
Leer num2
si num1<num2 Entonces
Escribir "numero:",num1;
Escribir "numero:",num2;
Sino
Escribir "numero:",num2;
Escribir "numero:",num1;
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
7) Una persona enferma, que pesa 70 kg, se encuentra en reposo y desea saber cuantas calorías consume su cuerpo durante todo el tiempo que realice una misma actividad. Las actividades que tiene permitido realizar son únicamente dormir o estar sentado en reposo. Los datos que tiene son que estando dormido consume 1.08 calorías por minuto y estando sentado en reposo consume 1.66 calorías por minuto.
Inicio
Leer act$, tiemp
Si act$ = “dormido” entonces
cg = 1.08 * tiemp
si no
cg = 1.66 * tiemp
fin-si
Imprimir cg
Fin
-En pseint
Proceso sin_titulo
Escribir " Actividad"
Leer act
Escribir "tiempo"
leer tiemp
si act = "dormido" entonces
cg<-1.08*tiemp
Escribir "Calorias:",cg;
Sino
cg=1.66*tiemp
Escribir "calorias:",cg;
FinSi
Escribir "Rosselyn Corzo BOcanegra"
FinProceso
8) Hacer un algoritmo que imprima el nombre de un articulo, clave, precio original y su precio con descuento. El descuento lo hace en base a la clave, si la clave es 01 el descuento es del 10% y si la clave es 02 el descuento en del 20% (solo existen dos claves).
Inicio
Leer nomb, cve, prec_orig
Si cve = 01 entonces
prec_desc = prec_orig - prec_orig * 0.10
si no
prec_desc = prec_orig - prec_orig * 0.20
fin-si
Imprimir nomb, cve, prec_orig, prec_desc
fin
-En peseint
Proceso sin_titulo
Escribir "articulo"
Leer nomb
Escribir "clave"
Leer cve
Escribir "Precio"
leer prec_orig
si cve=01 Entonces
prec_desc<-prec_orig-prec_orig*.10
Sino
prec_desc<-prec_orig-prec_orig*.20
FinSi
Escribir "Datos:",nomb;
Escribir "clave:",cve;
Escribir "PRecio:",prec_orig;
Escribir "precio descuento:",prec_desc;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
9) Hacer un algoritmo que calcule el total a pagar por la compra de camisas. Si se compran tres camisas o mas se aplica un descuento del 20% sobre el total de la compra y si son menos de tres camisas un descuento del 10%.
Inicio
Leer num_camisas, prec
tot_comp = num_camisas * prec
Si num_camisas > = 3 entonces
tot_pag = tot_comp - tot_comp * 0.20
si no
tot_pag = tot_comp - tot_comp * 0.10
fin-si
Imprimir tot_pag
fin
-En pseint
Proceso sin_titulo
Escribir "Camisas"
Leer num_camisas
Escribir "precio"
Leer prec
tot_comp<-num_camisas*prec
si num_camisas>=3 Entonces
tot_pag<-tot_comp-tot_comp*.20
Escribir "Total a pagar:",tot_pag;
Sino
tot_pag<-tot_comp-tot_comp*.10
Escribir "Total a pagar:",tot_pag;
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
10) Una empresa quiere hacer una compra de varias piezas de la misma clase a una fabrica de refacciones. La empresa, dependiendo del monto total de la compra, decidirá que hacer para pagar al fabricante. Si el monto total de la compra excede de $500 000 la empresa tendrá la capacidad de invertir de su propio dinero un 55% del monto de la compra, pedir prestado al banco un 30% y el resto lo pagara solicitando un crédito al fabricante. Si el monto total de la compra no excede de $500 000 la empresa tendrá capacidad de
invertir de su propio dinero un 70% y el restante 30% lo pagara solicitando crédito al fabricante. El fabricante cobra por concepto de intereses un 20% sobre la cantidad que se le pague a crédito.
Inicio
Leer costopza, numpza
totcomp = costopza * numpza
Si totcomp > 500 000 entonces
cantinv = totcomp * 0.55
préstamo = totcomp * 0.30
crédito = totcomp * 0.15
si no
cantinv = totcomp * 0.70
crédito = totcomp * 0.30
préstamo = 0
fin-si
int = crédito * 0.20
Imprimir cantinv, préstamo, crédito, int
Fin
-En pseint
Proceso sin_titulo
Escribir "Costo de pieza"
Leer costpza
Escribir "Numero de piezas"
Leer numpza
totcomp<-costpza*numpza
si totcomp>500000 Entonces
cantinv<-totcomp*.55
prestamo<-totcomp*.30
credito<-totcomp*.15
Sino
cantinv<-totcomp*.70
credito<-totcomp*.30
prestamo<-0
FinSi
int<-credito*.20
Escribir "Cantidad invertida:",cantinv;
Escribir "Prestamo:",prestamo;
Escribir "Credito:",credito;
Escribir "Interes:",int;
Escribir "Rosselyn Corzo BOcanegra"
FinProceso
1) Calcular el total que una persona debe pagar en una llantera, si el precio de cada llanta es de $800 si se compran menos de 5 llantas y de $700 si se compran 5 o mas.
Proceso sin_titulo
Escribir "Ingrese capital"
Leer cap
Escribir "ingrese Taza de intereses"
Leer p_int
int<-(cap*p_int)/100
si int>7000 Entonces
capf<- cap+int
Escribir "El capital final es:",capf;
Sino
Escribir "Los intereses no llegan a los 7000"
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
2) En un supermercado se hace una promoción, mediante la cual el cliente obtiene un descuento dependiendo de un número que se escoge al azar. Si el numero escogido es menor que 74 el descuento es del 15% sobre el total de la compra, si es mayor o igual a 74 el descuento es del 20%. Obtener cuanto dinero se le descuenta.
Proceso sin_titulo5
Escribir "Numero"
Leer n
Escribir "total de compra"
Leer comp
si n<74 Entonces
totcomp<-comp*.15
totapag<-comp-totcomp
Sino
totcomp<-comp*.20
totapag<-comp-totcomp
FinSi
Escribir "Total a pagar:",totapag;
Escribir "Rosselyn Corzo Bocangera"
FinProceso
3) Calcular el número de pulsaciones que debe tener una persona por cada 10 segundos de ejercicio aerobico; la formula que se aplica cuando el sexo es femenino es:
y si el sexo es masculino:
num. pulsaciones = (210 - edad)/10
Proceso sin_titulo
Escribir "Escribir edad"
Leer edad
Escribir "Escribir sexo"
Leer n
si n="femenino" Entonces
numpulsaciones<-(220-edad)/10
Sino
numpulsaciones<-(210-edad)/10
FinSi
Escribir "el numero de pulsaciones es:",numpulsaciones;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
4) Una compañía de seguros esta abriendo un depto. de finanzas y estableció un programa para captar clientes, que consiste en lo siguiente: Si el monto por el que se efectúa la fianza es menor que $50 000 la cuota a pagar será por el 3% del monto, y si el monto es mayor que $50 000 la cuota a pagar será el 2% del monto. La afianzadora desea determinar cual será la cuota que debe pagar un cliente.
Proceso sin_titulo
Escribir "Insertar monto"
Leer monto
si monto<50000 Entonces
tot<-monto*.03
Sino
tot<-monto*.02
FinSi
Escribir "La cuota a pagar es de:",tot;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
5) En una escuela la colegiatura de los alumnos se determina según el numero de materias que cursan. El costo de todas las materias es el mismo. Se ha establecido un programa para estimular a los alumnos, el cual consiste en lo siguiente: si el promedio obtenido por un alumno en el ultimo periodo es mayor o igual que 9, se le hará un descuento del 30% sobre la colegiatura y no se le cobrara IVA; si el promedio obtenido es menor que 9 deberá pagar la colegiatura completa, la cual incluye el 10% de IVA. Obtener cuanto debe pagar un alumno.
Proceso sin_titulo
Escribir "numero de materias"
leer num
Escribir "Costo de materias"
Leer costo
Escribir "promedio de materias"
Leer prom
colegiatura<-num*costo
si prom>=9 Entonces
tot<-colegiatura-(colegiatura*.30)
Sino
tot<-colegiatura+(16*.10)
FinSi
Escribir "total a pagar es de:",tot;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
6) Una empresa de bienes raíces ofrece casas de interés social, bajo las siguientes condiciones: Si los ingresos del comprador son menores de $8000 el enganche será del 15% del costo de la casa y el resto se distribuirá en pagos mensuales, a pagar en diez años. Si los ingresos del comprador son de $8000 o mas el enganche será del 30% del costo de la casa y el resto se distribuirá en pagos mensuales a pagar en 7 años. La empresa quiere obtener cuanto debe pagar un comprador por concepto de enganche y cuanto por cada pago parcial.
Proceso sin_titulo
Escribir "Ingresos del comprador"
Leer ing
Escribir "Valor de la casa"
Leer val
si ing<8000 Entonces
eng<-val*.15
mens<-(val-eng)/120
Sino
eng<-val*.30
mens<-(val-eng)/84
FinSi
Escribir "Engancge es de:",eng;
Escribir "Mensual pagara:",mens;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
9) El gobierno del estado de México desea reforestar un bosque que mide determinado número de hectáreas. Si la superficie del terreno excede a 1 millón de metros cuadrados, entonces decidirá sembrar de la sig. manera:
Porcentaje de la superficie del bosque Tipo de árbol
70% pino
20% oyamel
10% cedro
Si la superficie del terreno es menor o igual a un millón de metros cuadrados, entonces decidirá sembrar de la sig. manera:
Porcentaje de la superficie del bosque Tipo de árbol
50% pino
30% oyamel
20% cedro
Proceso sin_titulo
Escribir "Medida de el bosque a reforestar"
Leer n
si n>1000000
Escribir "Se sembrara un 70% de pino"
Escribir "Se sembrara un 20% de oyamel"
Escribir "Se sembrara un 10% de cedro"
Sino
Escribir "Se sembrara un 50% de pino"
Escribir "Se sembrara un 30% de oyamel"
Escribir "Se sembrara un 20% de cedro"
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
-Problemas Selectivos Compuestos
1) Leer 2 números; si son iguales que los multiplique, si el primero es mayor que el segundo que los reste y si no que los sume.
Inicio
Leer num1, num2
si num1 = num2 entonces
resul = num1 * num2
si no
si num1 > num2 entonces
resul = num1 - num2
si no
resul = num1 + num2
fin-si
fin-si
fin
-En pseint
Proceso sin_titulo
Escribir "Introducir numero"
Leer num1
Escribir "Introducir numero"
Leer num2
si num1=num2 Entonces
resul<-num1*num2
Sino
si num1>num2 Entonces
resul<-num1-num2
Sino
resul<-num1+num2
FinSi
FinSi
Escribir "Es:",resul;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
2) Leer tres números diferentes e imprimir el numero mayor de los tres.
Inicio
Leer num1, num2, num3
Si (num1 > num2) and (num1 > num3) entonces
mayor = num1
si no
Si (num2 > num1) and (num2 > num3) entonces
mayor = num2
si no
mayor = num3
fin-si
fin-si
Imprimir mayor
fin
-En peseint
Proceso sin_titulo
Escribir "Introduce numero"
leer num1
Escribir "Introduce numero"
Leer num2
Escribir "Introduce numero"
Leer num3
si (num1>num2)y(num1>num3) Entonces
mayor<-num1
Sino
si (num2>num1)y(num2>num3)Entonces
mayor<-num2
Sino
mayor<-num3
FinSi
FinSi
Escribir "El numero mayor es:",mayor;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
3) Determinar la cantidad de dinero que recibirá un trabajador por concepto de las horas extras trabajadas en una empresa, sabiendo que cuando las horas de trabajo exceden de 40, el resto se consideran horas extras y que estas se pagan al doble de una hora normal cuando no exceden de 8; si las horas extras exceden de 8 se pagan las primeras 8 al doble de lo que se pagan las horas normales y el resto al triple.
Inicio
Leer ht, pph
Si ht < = 40 entonces
tp = ht * pph
si no
he = ht - 40
Si he < = 8 entonces
pe = he * pph * 2
si no
pd = 8 * pph * 2
pt = (he - 8) * pph * 3
pe = pd + pt
fin-si
tp = 40 * pph + pe
fin-si
Imprimir tp
fin
-En pseint
Proceso sin_titulo
Escribir "Horas trabajadas"
Leer n
Escribir "Pago por hora trabajada"
Leer p
si n<=40 Entonces
tp<-n*p
Sino
he<-n-40
si he<=8 Entonces
pe<-(he*p)*2
Sino
pd<-(8*p)*2
pt<-((he-8)*p)*3
pe<-pd+pt
FinSi
tp<-40*p+pe
FinSi
Escribir "Sueldo:",tp;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
4) Calcular la utilidad que un trabajador recibe en el reparto anual de utilidades si este se le asigna como un porcentaje de su salario mensual que depende de su antigüedad en la empresa de acuerdo con la sig. tabla:
Tiempo Utilidad
Menos de 1 año 5 % del salario
1 año o mas y menos de 2 años 7% del salario
2 años o mas y menos de 5 años 10% del salario
5 años o mas y menos de 10 años 15% del salario
10 años o mas 20% del salario
Inicio
Leer sm, antig
Si antig < 1 entonces
util = sm * 0.05
si no
Si (antig > = 1) and (antig < 2) entonces
util = sm * 0.07
si no
Si (antig > = 2) and (antig < 5) entonces
util = sm * 0.10
si no
Si (antig > = 5) and (antig < 10) entonces
util = sm * 0.15
si no
util = sm * 0.20
fin-si
fin-si
fin-si
fin-si
Imprimir util
fin
- En pseint
Proceso sin_titulo
Escribir "Salario mensual"
Leer sm
Escribir "Antiguedad"
Leer antig
si antig<1 Entonces
util<-sm*.05
Sino
si (antig>=1)y (antig<2) Entonces
util<-sm*.07
Sino
si(antig>=2)y(antig<5) Entonces
util<-sm*.10
Sino
si (antig>=5)y(antig<10) Entonces
util<-sm*.15
Sino
util<-sm*.20
FinSi
FinSi
FinSi
FinSi
Escribir "Utilidades:",util;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
5) En una tienda de descuento se efectúa una promoción en la cual se hace un descuento sobre el valor de la compra total según el color de la bolita que el cliente saque al pagar en caja. Si la bolita es de color blanco no se le hará descuento alguno, si es verde se le hará un 10% de descuento, si es amarilla un 25%, si es azul un 50% y si es roja un 100%. Determinar la cantidad final que el cliente deberá pagar por su compra. se sabe que solo hay bolitas de los colores mencionados.
Inicio
leer tc, b$
si b$ = ‘blanca’ entonces
d=0
si no
si b$ = ‘verde’ entonces
d=tc*0.10
si no
si b$ = ‘amarilla’ entonces
d=tc*0.25
si no
si b$ = ‘azul’ entonces
d=tc*0.50
si no
d=tc
fin-si
fin-si
fin-si
fin-si
fin
-En pseint
Proceso sin_titulo
Escribir "Total de la compra"
Leer tc
Escribir "Color de la bolita"
Leer b
si b="blanca" Entonces
d<-0
tp<-tc-d
Sino
si b="verde" Entonces
d<- tc*.10
tp<-tc-d
Sino
si b="amarilla" Entonces
d<-tc*.25
tp<-tc-d
Sino
si b="azul" Entonces
d<-tc*.50
tp<-tc-d
Sino
si b="roja" Entonces
d<-tc*1
tp<-tc-d
FinSi
FinSi
FinSi
FinSi
FinSi
Escribir "Descuento obtenido:",d;
Escribir "Total a pagar con descuento:",tp;
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
6) El IMSS requiere clasificar a las personas que se jubilaran en el año de 1997. Existen tres tipos de jubilaciones: por edad, por antigüedad joven y por antigüedad adulta. Las personas adscritas a la jubilación por edad deben tener 60 años o mas y una antigüedad en su empleo de menos de 25 años. Las personas adscritas a la jubilación por antigüedad joven deben tener menos de 60 años y una antigüedad en su empleo de 25 años o mas. Las personas adscritas a la jubilación por antigüedad adulta deben tener 60 años o mas y una antigüedad en su empleo de 25 años o mas.
Determinar en que tipo de jubilación, quedara adscrita una persona.
Inicio
leer edad,ant
si edad >= 60 and ant < 25 entonces
imprimir “la jubilación es por edad”
si no
si edad >= 60 and ant > 25 entonces
imprimir “la jubilación es por edad adulta”
si no
si edad < 60 and ant > 25 entonces
imprimir “la jubilación es por antigüedad joven”
si no
imprimir “no tiene por que jubilarse”
fin-si
fin-si
fin-si
fin
- En pseint
Proceso sin_titulo
Escribir "edad"
Leer edad
Escribir " Antiguedad"
Leer antig
si (edad>=60)y(antig<25) Entonces
Escribir "La jubilacion es por edad"
Sino
si (edad<60)y(antig>=25) Entonces
Escribir "La jubilacion es por antiguedad joven"
Sino
si (edad>=60) y (antig>=25)Entonces
Escribir "La jubilacion es por antiguedad adulta"
Sino
Escribir "no tiene jubulacion"
FinSi
FinSi
FinSi
Escribir "Rosselyn Corzo Bocanegra"
FinProceso
