!______________________________________________________
!PROGRAMACION EN LENGUAJE DE PROGRAMACION FORTRAN
!CATEDRA : ABASTECIMIENTO DE AGUA Y ALCANTARILLADO
!CATEDRÁTICO : MSc IVÁN ARTURO AYALA BIZARRO
!TEMA : CALCULO DE POBLACION FUTURA
!DESARROLLADO POR : QUISPE SANES, GABRIEL DAVID
!FECHA : 10.09.18
!______________________________________________________
!****** DEFINICIÓN DE TERMINOS DEL CODIGO EN FORTRAN ******
!Pf=Poblacion futura
!Po=Poblacion actual
!r=Tasa anual de crecimiento
!t=Periodo de diseño
!i=Indice de crecimiento anual
PROGRAM POBLACION
INTEGER :: Pf;
REAL :: Po,r,t,i,cte;
write (*,*) "***********************************************"
write (*,*) " PROGRAMACIÓN EN FORTRAN"
write (*,*) ">Desarrollado por : Gabriel D. Quispe Sanes"
write (*,*) ">TEMA : Cálculo de población futura"
write (*,*) "************************************************"
write (*,*) "----------------"
write (*,*) "INGRESO DE DATOS"
write (*,*) "----------------"
write (*,*) ">Poblacion actual :"
read (*,*) Po
write (*,*) ">Tasa anual[%] :"
read (*,*) r
write (*,*) ">Periodo de diseño[Años] :"
read (*,*) t
write (*,*) ">Indice de crecimiento[%] :"
read (*,*) i
write (*,*) "----------------"
write (*,*) " RESULTADOS"
write (*,*) "----------------"
!CRECIMIENTO ARITMETICO
write (*,*) "__________________________________________"
write (*,*) "CRECIMIENTO ARITMETICO"
Pf=Po*(1+r*t/100)
write (*,*) "Poblacion futura :",Pf
!CRECIMIENTO GEOMÉTRICO
write (*,*) "__________________________________________"
write (*,*) "CRECIMIENTO GEOMETRICO"
Pf=Po*(1+r/100)**t
write (*,*) "Poblacion futura :",Pf
write (*,*) "__________________________________________"
!METODO DE WAPPAUS
write (*,*)"METODO DE WAPPAUS"
Pf=Po*((200+i*t)/(200-i*t));
write (*,*)"Poblacion futura :",Pf
write (*,*) "__________________________________________"
!METODO EXPONENCIAL
write (*,*)"METODO EXPONENCIAL"
Pf=Po*exp(i*t/100)
write (*,*)"Poblacion futura :",Pf
write (*,*) "__________________________________________"
!METODO INE
write (*,*)"METODO INE"
Pf=Po*(1+r/100)
write (*,*)"Poblacion futura :",Pf
write (*,*) "__________________________________________"
write (*,*)"GRACIAS POR SU PREFERENCIA!!!"
END PROGRAM POBLACION
