CALCULAR AREA EN LPP

/*
SE TIENE UN TERRENO RECTANGULATR DE MEDIFAS LADO1 (FRENTE)7Y LADO2 (FONDO).
1) CALCULAR EL AREA DEL TERRENO
2) CALCULAR EL PERIMETRO DEL TERRENO
-----
EL PROPIETARIO DEL TERRENO DESEA SEMBRAR LIMON O MANGO.
SE SABE QUE LA PLATA DEL LIMON EN EDAD ADULTA OCUPA
6 METROS CUADRADOS DE AREA, Y LA PLANTA DE MANGO 12 METROS CUADRADOS.

3)CUANTAS PLANTAS DE LIMON PUEDE SEMBRAR EN EL TERRENO?
4)CUANTAS PLANTAS DE MANGO PUEDE SEMBRAR?
 EN LPP
-----
AUTOR: FRANK PIÑIN ATO
FECHA : MIE. 22/11/2017 - 08:20AM
*/
// ---------VARIABLES DE MODULO PRINCIPAL (GLOBALES)-----
REAL LADO1, LADO2,AREAPLANTA,AR
//----SUBRUTINAS: FUNCIONES Y PROCEDIMIENTOS ---
//AREA
FUNCION AREA(REAL LADO1, REAL LADO2): REAL
REAL A // VARIABLE LOCAL INTERNA
INICIO
      A <- LADO1*LADO2
      RETORNE A  // A ALMACENA EL AREA
FIN

//PERIMETRO
FUNCION PERIMETRO(REAL LADO1, REAL LADO2): REAL
REAL P // VARIABLE LOCAL INTERNA
INICIO
      P <- (LADO1*2)+(LADO2*2)
      RETORNE P  // P ALMACENA EL PERIMETRO
FIN
//CALCULAR TODO TIPO DE PLANTA -
FUNCION NUM_PLANTAS(REAL LADO1, REAL LADO2, REAL AREAPLANTA): ENTERO

//DEVUELVE EL NUMERO DE PLANTAS A SEMBRAR DE CUALQUIER TIPO SEGUN EL AREA QUE OCUPE LA PLANTA.
INICIO
      RETORNE (LADO1*LADO2)/AREAPLANTA
FIN
//COSTO ANUAL DE LOS FERTILIZANTES
FUNCION COST_PLANTAS(REAL LADO1, REAL LADO2, REAL AREAPLANTA,REAL COSTO): REAL
INICIO
      RETORNE ((LADO1*LADO2)/AREAPLANTA)*450
FIN
//-----------------------------------------------------

// --- MODULO PRINCIPAL ----

INICIO
      ESCRIBA "APLICACION TERRENO"
      LLAMAR NUEVA_LINEA()
      ESCRIBA "========================="
      LLAMAR COLOR_TEXTO(10)
      LLAMAR NUEVA_LINEA()
      ESCRIBA "INGRESE EL LADO 1 DEL TERRENO (FRENTE):"
      LEA LADO1
      ESCRIBA "INGRESE EL LADO 2 DEL TERRENO (FONDO):"
      LEA LADO2
      //INVOCANDO A LA FUNCION QUE CALCULA EL AREA
      //FORMA 1
      AR <- AREA(LADO1, LADO2)
      ESCRIBA "EL AREA DEL TERRENO ES:", AR
      //FORMA 2
      LLAMAR NUEVA_LINEA()
      ESCRIBA "EL AREA DEL TERRENO ES :", AREA (LADO1 , LADO2)
      // INVOCAR PERIMETRO
      LLAMAR NUEVA_LINEA()          
      ESCRIBA "EL PERIMETRO DEL TERRENO  ES:", PERIMETRO (LADO1, LADO2)
      //INVOCAR NUMERO DE PLANTAS
      LLAMAR NUEVA_LINEA()
      ESCRIBA "LAS PLANTAS QUE CABEN SON :", NUM_PLANTAS(LADO1,LADO2,AREAPLANTA)
      //INVOCAR COSTO LIMON
      LLAMAR NUEVA_LINEA()
      ESCRIBA "EL COSTO DEL LIMON  ES :", COST_PLANTAS(LADO1,LADO2,6,450)
      // INVOCAR COSTO MANGO
      LLAMAR NUEVA_LINEA()
      ESCRIBA "EL COSTO DEL MANGO  ES :", COST_PLANTAS(LADO1,LADO2,12,380)
FIN