Programación de Sistemas de Gestión: Licencias de Conducir y Tarifas Inteligentes

Sistemas de Automatización mediante Algoritmos

A continuación, se presentan dos desarrollos en pseudocódigo diseñados para optimizar procesos de validación y categorización en entornos administrativos y logísticos.

1. Algoritmo: Gestor de Licencias de Conducir

Este programa permite gestionar la emisión de licencias de conducir basándose en la edad del aspirante, la validación de seguridad de un código de trámite y la asignación de categorías vehiculares.

Algoritmo Gestor_Licencias
  Definir apellido, codigo, codigoMayus, categoria Como Cadena;
  Definir anioNacimiento, anioActual, edad Como Entero;

  Escribir "===== GESTOR DE LICENCIAS DE CONDUCIR =====";
  Escribir "Ingrese el apellido del aspirante:"; Leer apellido;
  Escribir "Ingrese el año de nacimiento:"; Leer anioNacimiento;
  Escribir "Ingrese el código de trámite:"; Leer codigo;

  anioActual <- 2026;
  edad <- anioActual - anioNacimiento;

  Si Longitud(codigo) > 8 Entonces
    Escribir "Código de trámite válido.";
  SiNo
    Escribir "Código de trámite inseguro. Debe tener más de 8 caracteres.";
  FinSi

  Si edad >= 18 Entonces
    codigoMayus <- Mayusculas(codigo);
    Si Posicion(codigoMayus, "A") > 0 Entonces
      categoria <- "Categoría A - Motovehículos";
    SiNo
      Si Posicion(codigoMayus, "B") > 0 Entonces
        categoria <- "Categoría B - Automóviles";
      SiNo
        categoria <- "Categoría en revisión presencial";
      FinSi
    FinSi

    Escribir "===== COMPROBANTE =====";
    Escribir "Apellido: ", apellido;
    Escribir "Edad: ", edad;
    Escribir "Código: ", codigoMayus;
    Escribir "Resultado: ", categoria;
    Escribir "Fecha: ", FechaActual();
    Escribir "Hora: ", HoraActual();
  SiNo
    Escribir "Trámite denegado.";
    Escribir "El aspirante es menor de edad.";
    Escribir "Fecha: ", FechaActual();
    Escribir "Hora: ", HoraActual();
  FinSi
FinAlgoritmo

2. Algoritmo: Sistema de Tarifas Inteligentes

Este sistema automatiza el cálculo de tarifas de envío y logística mediante el procesamiento de códigos de seguimiento alfanuméricos.

Algoritmo Sistema_Tarifas_Inteligentes
  Definir apellido, codigo, codigoMayus, categoria Como Cadena;
  Definir primer, quinto Como Caracter;

  Escribir "Ingrese el apellido del despachante:";
  Leer apellido;

  Escribir "Ingrese el código de seguimiento:";
  Leer codigo;

  codigoMayus <- Mayusculas(codigo);

  Si Longitud(codigoMayus) <> 10 Entonces
    Escribir "Código inválido por longitud.";
    FinAlgoritmo
  FinSi

  primer <- SubCadena(codigoMayus, 0, 0);

  Si primer = "T" Entonces
    quinto <- SubCadena(codigoMayus, 4, 4);

    Si quinto = "0" Entonces
      categoria <- "Tarifa Plana Regional - Vehículo Eléctrico";
    SiNo
      Si quinto = "1" Entonces
        categoria <- "Tarifa Especial Distante - Avión de Carga";
      SiNo
        categoria <- "Subcategoría de envío no identificada";
      FinSi
    FinSi
  SiNo
    categoria <- "Entrega Local Peatonal";
  FinSi

  Escribir apellido, " - Fin de turno - ", categoria, " - Fecha: ", FechaActual(), " - Hora: ", HoraActual();

FinAlgoritmo