LPP_Practica26_RegistroVehiculos

/*
    COMENTARIO:
    Registros
      Dato estructurado, formado por variables lógicamente relacionadas (campos o atributos)

    -- declaración --
    registro [nombre_registro]
      [campos_atributos]
    fin registro

    -- instancia --
    [nombre_registro] [nombre_variable]

    -- uso --
    [nombre_variable].[campo_atributo] <- [valor]

    Ejercicio:
    ejemplo de un manejo de inventario sencillo en una tienda de vehículos con el fin de ver
    la forma de usar un registro.
*/

/*
    registros
*/
registro rVehiculo
  cadena[100] marca
  cadena[100] linea
  cadena[50]  color
  entero      cantidad
  real        valorUnidad
fin registro

/*
    variables globales
*/
rVehiculo vAutomovil
Real valorInventario

/*
    procedimientos
*/

/*
    funciones
*/

/*
    programa principal
*/
inicio

  /* asignar valor a los atributos */
  vAutomovil.marca <- "Ford"
  vAutomovil.linea <- "Fiesta"
  vAutomovil.color <- "Gris"
  vAutomovil.cantidad <- 10
  vAutomovil.valorUnidad <- 20000


  /* acceder a los atributos de un registro y realizar operaciones como cualquier otra variable */
  valorInventario <- (vAutomovil.cantidad *  vAutomovil.valorUnidad)

  escriba "Valor total de inventario inicial: $ "
  escriba valorInventario

  /* movimiento, asignación de valores a atributos por medio de la instruccion lea */
  llamar nueva_linea
  llamar nueva_linea
  escriba "Ingrese la cantidad actual de inventario: "
  lea vAutomovil.cantidad

  escriba "Ingrese el valor unitario: "
  lea vAutomovil.valorUnidad
  llamar nueva_linea
  llamar nueva_linea


  /* inventario final, validación de datos contenidos en los atributos del registro */
  valorInventario <- (vAutomovil.cantidad *  vAutomovil.valorUnidad)

  escriba "Valor total de inventario inicial: $ "
  escriba valorInventario

fin