martes, 30 de abril de 2013


programa la_caja
var
   i,h,p,c:numerico
   n,x:cadena
inicio
   cls()
   imprimir("Ingrese nombre:  ")
   leer(n)
   imprimir("Ingrese cantidad de hijos:  ")
   leer(h)
   imprimir("Ingrese cantidad de ingresos:  ")
   leer(i)
repetir
p=i/2
   c= ((i/2)+(i*0.25))/4
   si (i<1500000 nbsp="" p=""> {
   si (i<=800000)
{
   si (h==0)
 {
  imprimir("\nAl cliente  ",n)
  imprimir(" se le concede un prestamo de:   ",p)
  imprimir(" Y la cuota mensual a pagar es  ",c)
}
}
}

   p=(3*i)/4
   c=(((3*i)/4)+(((75*i)/4)/100))/4
   si (i<2500000 p="">{
  si (i>=1500000)
{
   si (h<=2)
 {
   si (h>=0)
 {
 
  imprimir("\nAl cliente  ",n)
  imprimir("se le concede un prestamo de:   ",p)
  imprimir("Y la cuota mensual al pagar es  ",c)

  x=n
  si (h>2)
{
  imprimir("\nAl cliente  ",c)
  imprimir("no se le concede el prestamo")
}
}
}
}
}

   p=i
   c=(p+((25*p)/100))/4
   si (i>=2500000)
  {
 
   imprimir("\nAl cliente  ",n)
   imprimir(" se le concede un prestamo de:  ",p)
imprimir(" Y la cuota mensual a pagar es  ",c)
}
   x=n
   si (i<800000 p="">  {
   imprimir("\nAl cliente  ",n)
   imprimir("  no se le concede el prestamo")

}
  x=n
  si (i<1500000 p=""> {
  si (h>=1)
 {
  imprimir("Al cliente  ",n)
  imprimir("  no se le concede el prestamo")
}
}
   x=n
   si (i<2500000 p="">  {
   si (h>=3)
  {
   imprimir("Al cliente  ",n)
   imprimir("  no se le concede el prestamo")
}
}
fin

jueves, 25 de abril de 2013