Question

4. En un centro meteorológico se llevan los promedios mensuales de las lluvias caídas en las principales regiones del país. Existen 3 regiones importantes. NORTE, CENTRO y SUR. Escriba un algoritmo para calcular lo siguiente: - El promedio anual de la región centro. - El mes y región con menor lluvia en la región sur. - La región con mayor lluvia anual.

Answer 1

A continuación algoritmo en pseint que muestra por pantalla las regiones con más lluvias en cada mes, el promedio anual más alto y mas bajo, entre otros.

Pseudocódigo en pseint de cálculo del promedio anual de lluvias

Algoritmo centroMeteorológico

•  // Definir e inicializar variables

 Definir promLluviasMen Como Real

 Definir t,p, respuesta Como entero

 t <- 3 // regiones (norte, centro, y sur)

 p <- 12 // meses del año

 Dimension promLluviasMen[t,p]

•  // Seleccionar acción en en menú

 Repetir

  Escribir 'Ingrese Opción (1-5)'

  Escribir '*************************'

  Escribir '1.- Ingreso promedio mensual en cada región'

  Escribir '2.- Mostrar promedio anual de la región centro '

  Escribir '3.- Mostrar mes y región con menor lluvia '

  Escribir '4.- Mostrar región con mayor lluvia anual '

  Escribir '5.- Salir'

  Repetir

   Leer respuesta

  Hasta Que respuesta<>1 O respuesta<>2 O respuesta<>3 O respuesta<>4 O respuesta<>5

  Segun respuesta  Hacer

   1:

    registroMeterologico(promLluviasMen)

   2:

    promedioAnualCentro(promLluviasMen)

   3:

    mesYregionMenorluvia(promLluviasMen)

   4:

    regionMayorLluviAnual(promLluviasMen)

  FinSegun

 Hasta Que respuesta=5

FinAlgoritmo

Funcion registroMeterologico(promLluviasMen Por Referencia)

• // definir variables

Definir t,k,p Como Entero

Definir continuar Como Caracter

k <- 0

• // Ingresar registro meteorológico

Escribir '**** Registro meteorológico ****'

Escribir '*************************'

Repetir

 k <- k+1

 Escribir 'Ingrese Opción (1-5)'

 Escribir '*************************'

 Escribir '1.- Norte'

 Escribir '2.- Centro  '

 Escribir '3.- Sur '

 Escribir '4.- Mostrar registro '

 Escribir '5.- Volver al menú principal '

 Repetir

  Leer respuesta

 Hasta Que respuesta<>1 O respuesta<>2 O respuesta<>3

 Segun respuesta  Hacer

  1:

   Escribir 'Ingrese promedio Mensual (Norte)"

   para a <-1 Hasta 12

    Escribir 'Mes ', a, " : " Sin Saltar

    Leer promLluviasMen[1,a]    

   FinPara

  2:

   Escribir 'Ingrese promedio mensual (Centro)"

   para a <-1 Hasta 12

    Escribir 'Mes ', a, " : " Sin Saltar

    Leer promLluviasMen[2,a]    

   FinPara

  3:

   Escribir 'Ingrese promedio mensual (Sur)"

   para a <-1 Hasta 12

    Escribir 'Mes ', a, " : " Sin Saltar

    Leer promLluviasMen[3,a]    

   FinPara

  4:

   imprimir "         enero  feb   marzo   abril  mayo   junio   julio   agosto   sep   oct  nov   dic"

   Para x<-1 Hasta 3 Hacer

    si x = 1 Entonces

     imprimir "norte      " Sin Saltar

    FinSi

    si x = 2 Entonces

     imprimir "centro     " Sin Saltar

    FinSi

   

    si x = 3 Entonces

    imprimir "sur        " Sin Saltar

    FinSi

    Para p<-1 Hasta 12 Hacer

     Imprimir promLluviasMen[x,p], "     " Sin Saltar

    FinPara

    Imprimir " "

   FinPara

  5:

   continuar='n'

 FinSegun

 Imprimir " "

Hasta Que continuar=='n'

FinFuncion

Funcion promedioAnualCentro(promLluviasMen Por Referencia)

• // Definir variables

Definir p Como Entero

Definir promA Como real

promA <- 0

• // Calcular promedio de lluvia anual en región centro

 Para p<-1 Hasta 12 Hacer

  promA <- promA + promLluviasMen[2,p]

 FinPara

 promA <- promA / 12

•  // Mostrar resultados

 Imprimir "promedio de lluvia anual en región centro: ", promA

FinFuncion

Funcion mesYregionMenorluvia(promLluviasMen Por Referencia)

• // Definir variables

Definir x,p,region Como Entero

Definir menorR Como Real

menorR <- 10000

• // Mostrar la región con menor lluvia de cada mes

imprimir "*** región con menor lluvia en cada mes ***"

imprimir " enero       feb        marzo        abril       mayo        junio        julio        agosto        sep        oct       nov        dic"

Para p<-1 Hasta 12 Hacer

 Para x<-1 Hasta 3 Hacer

  Si promLluviasMen[x,p]<menorR Entonces

   menorR <- promLluviasMen[x,p]

   region <- x

  FinSi

 FinPara

•  // Mostrar resultados por pantalla

 si region = 1 Entonces

  imprimir "norte      " Sin Saltar

 FinSi

 si region = 2 Entonces

  imprimir "centro     " Sin Saltar

 FinSi

 si region = 3 Entonces

  imprimir "sur        " Sin Saltar

 FinSi

FinPara

Imprimir " "

FinFuncion

Funcion regionMayorLluviAnual(promLluviasMen Por Referencia)

• // Definir variables

Definir x,p,region Como Entero

Definir mayorR Como Real

mayorR <- 0

• // Mostrar la región con mayor promedio anual de lluvia

Para p<-1 Hasta 3 Hacer

 promA <- 0

 Para x<-1 Hasta 12 Hacer

  promA <- promA + promLluviasMen[p,x]

 FinPara

 promA <- promA / 12

 Si promA>mayorR Entonces

  mayorR <- promA

  region <- p

 FinSi

FinPara

• // Mostrar resultados por pantalla

si region = 1 Entonces

 Imprimir "La región con mayor promedio anual de lluvia es el norte con: ", mayorR

FinSi

si region = 2 Entonces

 Imprimir "La región con mayor promedio anual de lluvia es el centro con: ", mayorR

FinSi

si region = 3 Entonces

 Imprimir "La región con mayor promedio anual de lluvia es el sur con: ", mayorR

FinSi

Imprimir " "

FinFuncion

Para saber más acerca de algoritmo en pseint de cálculo de promedios consulte: https://brainly.lat/tarea/13925901

#SPJ1