Desenfileira Enfileira

lógica essencial dos procedimentos, comandos referentes à entrada de dados (leitura da variável INFO), controle de repetição foram omitidos com o objetivo de focalizar apenas a lógica essencial dos procedimentos. INSERÇÃO NA FILA PROGRAM ENFILEIRA; { ESTE PROGRAMA INSERE DADOS NUMA FILA} USES fdelay,CRT; TYPE LISTA = ARRAY[1..10] OF INTEGER; VAR FILA: LISTA; FRENTE,ATRAS,FIM_FILA,INFO : INTEGER; BEGIN FIM_FILA := 10; {O vetor apresentado neste exemplo possui 10