Ejercicios de lpp

Solo disponible en BuenasTareas
  • Páginas : 9 (2141 palabras )
  • Descarga(s) : 0
  • Publicado : 7 de marzo de 2012
Leer documento completo
Vista previa del texto
Comando Repetir

Luis Angel Gallego Villa

Tutor
Robinson Velandia
Especialista en Gerencia de Proyectos

SENA
Tecnología en Análisis y Desarrollo de Sistemas de Información
Puerto Berrío, Antioquia
Año 2011
Ejercicio 1: En una granja se requiere saber alguna información para determinar el precio de venta por cada kilo de huevo. Es importante determinar el promedio de calidad de lasn gallinas que hay en la granja. La calidad de cada gallina se obtiene según la fórmula:

Calidad = (peso de la gallina * altura de la gallina)/ Numero de huevos que pone

Finalmente para fijar el precio del kilo de huevo, se toma como base la siguiente tabla:

PRECIO TOTAL DE CALIDAD PESO POR KILO DE HUEVO
Mayor o igual que 15 1.2 * promedio de calidad
Mayor que 8 y menor que 151.00 * promedio de calidad
Menor o igual que 8 0.80 * promedio de calidad */

real pvta, peso, alt, huevos, suma, prom, cal, ptc
caracter resp
entero i, x, num
inicio
suma <- 0
prom <- 0
cal <- 0
i <- 1
x <- 0
repita
escriba " Introduzca el número de gallinas "
lea num
x <- x + num
para i <- 1 hasta num haga
escriba " Introduzca el peso de la gallina", i, " "
lea peso
escriba " Introduzca la altura de la gallina ", i, " "
lea alt
escriba " Cuántos huevos pone en el día la gallina ", i, " "
lea huevos
cal <- (peso * alt) / huevos
suma <- suma + cal
escriba " La calidad de la gallina ", i, " es de ", cal
llamar nueva_linea
fin para
prom <- suma / x
si (prom >= 15) entonces
ptc <- prom * 1.2fin si
si (prom > 8) y (prom < 15) entonces
ptc <- prom * 1.0
fin si
si (prom <= 8) entonces
ptc <- prom * 0.80
fin si
escriba " El precio total de calidad es ", ptc
llamar nueva_linea
repita
escriba " Desea agregar más gallinas. Coloque s para si, n para no (minúsculas) "
lea resp
hasta (resp = 's') o (resp = 'n')
hasta (resp = 'n') o (resp = 'N' )
finEjercicio 2: En la Cámara de Diputados se levanta una encuesta con todos los integrantes con el fin de determinar qué porcentaje de los n diputados está a favor del Tratado de Libre Comercio, que porcentaje está en contra y qué porcentaje se abstiene de opinar.

real porc, pos, neg, ind, ps, pn, pi, suma
entero a, b, num
caracter resp
inicio
ps <- 0
pn <- 0
pi <- 0
a <- 1
b<- 0
pos <- 0
neg <- 0
ind <- 0
repita
escriba " Introduca el número de diputados "
lea num
b <- b + num
para a <- 1 hasta num haga
escriba " A la pregunta: "
llamar nueva_linea
escriba " Por favor responda s para si, n para no; i sino sabe o no desea opinar "
llamar nueva_linea
escriba " Señor diputad@ está usted a favor o en contra del TLC con Estados Unidos "lea resp
llamar nueva_linea
si (resp = 's') o (resp = 'S') entonces
pos <- pos + 1
escriba " El diputado ", a, " está a favor del TLC con Estados Unidos "
llamar nueva_linea
fin si
si (resp = 'n') o (resp = 'N') entonces
neg <- neg + 1
escriba " El diputado ", a, " está en contra del TLC con Estados Unidos "
llamar nueva_linea
fin si
si (resp = 'i') o (resp ='I') entonces
ind <- ind + 1
escriba " El diputado ", a, " es indiferente o no responde "
llamar nueva_linea
fin si
llamar nueva_linea
fin para
ps <- (pos * 100) / b
pn <- (neg * 100) / b
pi <- (ind * 100) / b
suma <- ps + pn + pi
escriba "De los ", b, " Diputados hay: "
llamar nueva_linea
escriba pos, " Diputados que están a favor del TLC con EstadosUnidos y representan el ", ps, "%"
llamar nueva_linea
escriba neg, " Diputados que están en contra del TLC con Estados Unidos y representan el ", pn, "%"
llamar nueva_linea
escriba ind, " Diputados que son indiferentes ante el TLC con Estados Unidos y representan el ", pi, "%"
llamar nueva_linea
escriba " Para un total del ", suma, "%"
llamar nueva_linea
repita
escriba " Desea...
tracking img