ANALISIS DE SISTEMAS

http://www.infoagro.com/hortalizas/pimiento.htm
pagina sobre el cultivo de pimenton

¿ cuantas unidades
de a y de b deben fabricarse semanalmente para obtener un beneficio máximo? */

entero rendimiento,m1,m2,s,h,d,producto
real hora
inicio
h<-40
escriba " ingresar el numero de semanas que trabajaran las maquinas "
lea s
escriba " ingresar el producto que ba elaborar "
lea producto
si s>=1 entonces
d<-(s*h)
escriba "las horas son :....",d
si producto=1 entonces
m1<-(d*250)/2
llamar nueva_linea
escriba " el rendimiento de el producto a en la maquina uno sera de:.... ",m1
m2<-(d*250)/1.5
llamar nueva_linea
escriba " el rendimiento del producto a en la maquina dos sera de :.....",m2
sino
si producto=2 entonces
m1<-(d*150)/1.5
llamar nueva_linea
escriba " el rendimiento de el producto b en la maquina uno sera de:.... ",m1
m2<-(d*150)/1
llamar nueva_linea
escriba " el rendimiento de el producto b en la maquina dos sera de:.... ",m2
sino
escriba " el numero de semanas es muy bajo"
fin si
fin si
fin si
fin

/*camiones*/
entero camiones,millas,libras,g,p
inicio
escriba "ingresar numero de libras a transportar "
lea libras
si libras >30000 entonces
si libras <450000 entonces
g<-(libras/40000)
llamar nueva_linea
escriba " si se transportaran solo camiones grandes irian ",g
p<-(libras/30000)
llamar nueva_linea
escriba " si se transportaran solo camiones pequeños irian ",p
sino
escriba "la carga es muy grande se movilizaran 9 camiones grandes y tres pequeños ,teniendo en cuenta las restriciones"
fin si
sino
escriba "las libras a transportar son muy pocas esperar a que se completen las treintamil"
fin si
fin

entero valor_casa,ingresos,p,m,s,d
cadena [30] nombre
inicio
escriba "ingresar valor de la casa a comprar "
lea valor_casa
escriba "ingresar el valor su sueldo mensual"
lea ingresos
si ingresos < 800000 entonces
p<-(valor_casa/100)*15
escriba " primer cuota de pago sera de",p
m<-(valor_casa-0.15)/120
escriba "valor mensual a pagar a diez anos sera de ",m
sino
si ingresos>= 800000 entonces
s<-(valor_casa/100)*30
escriba " primera cuota de pago sera de",s
d<-(valor_casa-0.3)/84
escriba " valor mensual a pagar a siete anos sera de ",d
sino
escriba " no sireve este malpario programa"
fin si
fin si
fin

entero area,p,e,c
inicio
escriba " ingresar area del terreno"
lea area
si (area<1000000) o (area=1000000) entonces
p<-(area/100)*50
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para pinos es",p
e<-(area/100)*30
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para eucalipto es",e
c<-(area/100)*20
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para cedro es ",c
sino
si area >1000000 entonces
p<-(area/100)*70
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para pino es ",p
e<-(area/100)*20
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para eucalipto es",e
c<-(area/100)*10
llamar nueva_linea
escriba " el area a sembrar en metros cuadrados para cedro es",c
sino
escriba " el area que ingreso es muy baja"
fin si
fin si
fin

/*102 AREAS PARALELOGRAMO ROMBO Y TRAPECIO*/

entero h,D,d2,b,B1,areas
real l,a,r

inicio
escriba "escoja del 1 al 3 que figura geometrica quiere"
llamar nueva_linea
escriba "digite 1 para el rombo"
llamar nueva_linea
escriba "digite 2 para el trapecio"
llamar nueva_linea
escriba "digite 3 para el paralelogramo"
llamar nueva_linea
lea areas
caso areas

1:escriba " ingrese el valor de la diagonal "
lea D
escriba " ingrese el valor de la diagonal d1 "
lea d2
a<-(D*d2)/2
escriba "el area es : ",a

2:escriba " ingrese el valor de la base mayor "
lea B1
escriba " ingrese el valor de la base menor "
lea b
escriba " ingrese el valor de la altura"
lea h
a<-(B1+b)/2*h
escriba " el area es : ",a

3:escriba " ingrese el valor de la base"
lea b
escriba " el valor de la altura"
lea h
a<-b*h
escriba " el area : ",a
fin caso
fin