Resolucion Medicamentos
Tipos estructurados
Pedidos = Registro
nro_pedido: entero (4)
lugar_de_pedido: carácter (30)
cod_prod: entero (4)
cant_ped: entero (4)
zona: carácter (1)
Finregistro
Arch_Pedidos: archivo de organización secuencial: Pedidos
Lista_Pedidos = ^Nodo_Pedidos
Nodo_Pedidos = Registro
Dato= Pedidos
PS= Lista_Pedidos
Fin registro
Cola = Registro
Pin:Lista_Pedidos
Pult: Lista_Pedidos
Fin registro
Productos = Registro
cod_prod: entero (4)
desc: carácter (30)
stock: entero (6)
precio: real (5,2)
Fin registro
Arch_Productos: archivo de organizaciónsecuencial: Productos
Lista_Productos = ^Nodo_Productos
Nodo_Productos = Registro
Dato= Productos
PS = Lista_Productos
Fin registro
Final = Registro
cod_prod: entero (4)
stock: entero (6)precio: real (5,2)
cant_ped: entero (4)
Fin registro
Lista_Final = ^Nodo_Final
Nodo_Final= Registro
Dato= Final
PS: Lista_Final
Fin Registro
Procedimiento Crear_Cola (ref C: Cola)
//crea una colavacía//
Hacer
C.Pin:= nil
C.Pult:= nil
Fin Hacer
Fin Procedimiento
Procedimiento Encolar (ref C: Cola, Info: Pedidos)
//agrega un nodo a la cola//
Variables
Aux: Lista_Pedidos
HacerCrear (Aux)
Aux^Dato= Info
Aux^PS= nil
Si (C.Pin = nil) Entonces
C.Pin:= Aux
Sino
C.Pult^.PS:= Aux
Fin si
C.Pult:= Aux
Fin Hacer
Fin Procedimiento
Procedimiento Desencolar (ref C:Cola, ref Info: Pedidos)
//elimina un nodo de la cola guardando su contenido//
Variables
Aux: Lista_Pedidos
Hacer
Aux:= C.Pin
Info:= Aux^.Dato
C.Pin:= Aux^.PS
Si ( C.Pin = nil)Entonces
C.Pult:= nil
Fin Si
Liberar (Aux)
Fin Hacer
Fin Procedimiento
Funcion Es_Vacia ( C : Cola ) : boleano
Hacer
Si ( C.Pin = nil) Entonces
Es_Vacia = verdadero
Sino
Es_Vacia= falso
Fin Si
Fin Hacer
Fin Procedimiento
Procedimiento Cargar_Cola (ref A1: Arch_Pedidos, ref C: Cola)
//carga la cola con la información del archivo pedidos//
Variables
Ped: Pedidos...
Regístrate para leer el documento completo.