Simulacion Digital Problema Poblacion
PROBLEMA:
Se desea estudiar la evolución de la población de una región determinada, de la que son conocidos los siguientes datos:
Tasa de nacimientosfemeninos: 48%
Tasa de mortalidad femenina: 0.012 muertes anuales por mujer
Tasa de actividad femenina(personas en capacidad de trabajar): 27%
Tasa de ocupación femenina(personas con trabajo): 19%
Tasa deactividad masculina : 50%
Tasa de ocupación masculina: 42%
Tasa de nacimientos masculina: 52%
Tasa de mortalidad masculina: 0.013 muertes anuales por varón.
Población inicial masculina: 400 (en milesde personas).
Población inicial femenina:600 (miles de personas)
Se pide desarrollar un modelo que permita estudiar la evolución de la población total, población activa, población ocupada, poblacióndesempleada, muertes y nacimientos desde 2000 hasta 2012, se debe observar las diferencias por género de las diferentes variables. Supóngase que desde el año 1990 se incrementa la tasa de ocupaciónmasculina en 0.20% anual y la tasa de muerte incrementa a 0.015 muertes por año hasta 2010 , muestre los cambios en la población total ocupada y desempleada.
CODIGO:
'Variables de Tiempo
Dimanio_eva_ini As Integer
Dim anio_eva_fin As Integer
Dim anio_var_ini As Integer
Dim anio_var_fin As Integer
Dim anio_act As Integer
'Variables Hombres
Dim pobl_hom As Single
Dim nata_hom As Single
Dimmort_hom As Single
Dim acti_hom As Single
Dim ocup_hom As Single
Dim pobl_hom_ini As Single
'Variables Mujeres
Dim pobl_muj As Single
Dim nata_muj As Single
Dim mort_muj As Single
Dim acti_muj As SingleDim ocup_muj As Single
Dim pobl_muj_ini As Single
If eva_des.Text = "" Or eva_has.Text = "" Or var_des.Text = "" Or var_has.Text = "" Then
MsgBox "Hay campos vacíos. Verifique.", vbExclamation,"Error"
ElseIf eva_des.Text >= var_des.Text Then
MsgBox "El año inicial de la evaluación debe ser mayor al año inicial de la variación", vbExclamation, "Error"
Else
'Asignar fechas
anio_eva_ini =...
Regístrate para leer el documento completo.