TRABALHO TERMINADO

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "ENEL LINHAS AÉREAS
// Função :
// Autor : NIKAENIO FREIRE MAIA
// Data :
// Seção de Declarações
var
OP, COD, RE,ER, RECOD1201, RECOD1301: CARACTERE
inicio
RECOD1201 := "LIVRE"
RECOD1301 := "LIVRE"
ENQUANTO OP <> "4" FACA
 ESCREVAL("********** SEJA BEM-VINDO **********")
 ESCREVAL("******** ENEL LINHAS AÉREAS ********")
 ESCREVAL("********** MENU DE OPÇÕES **********")
 ESCREVAL("")
 ESCREVAL("************************************")
 ESCREVAL("")
 ESCREVAL("******* 1 - LISTA DE PEDIDOS *******")
 ESCREVAL("******* 2 - LISTA DE VOOS **********")
 ESCREVAL("******* 3 - RESERVAR ***************")
 ESCREVAL("******* 4 - ENCERRAR ACESSO ********")
 LEIA (OP)
 ESCOLHA OP
 CASO "1"
 LIMPATELA
 ER := "0"
 ENQUANTO ER <> "2" FACA
 ESCREVAL(" LISTA DE PEDIDOS ")
 ESCREVAL("====================================")
 ESCREVAL("")
 SE (RECOD1201 = "RESERVADO") E (RECOD1301 = "RESERVADO") ENTAO
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1201:......GRU => NAT =")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1301:......GRU => BEL =")
 ESCREVAL("====================================")
 FIMSE
 SE (RECOD1201 = "RESERVADO") E (RECOD1301 = "LIVRE") ENTAO
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1201:......GRU => NAT =")
 ESCREVAL("====================================")
 FIMSE
 SE (RECOD1201 = "LIVRE") E (RECOD1301 = "RESERVADO") ENTAO
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1301:......GRU => BEL =")
 ESCREVAL("====================================")
 FIMSE
 SE (RECOD1201 = "LIVRE") E (RECOD1301 = "LIVRE") ENTAO
 ESCREVAL("====================================")
 ESCREVAL("= SEM VOOS NA LISTA DE PEDIDOS =")
 ESCREVAL("====================================")
 FIMSE
 ESCREVAL(" FIM DA LISTA DE VOOS RESERVADOS ")
 ESCREVAL("-------------------------------------")
 ESCREVAL(" DESEJA CANCELAR ALGUMA RESERVA ? ")
 ESCREVAL("")
 ESCREVAL(" 1 - CANCELAR RESERVA ")
 ESCREVAL(" 2 - ENCERRAR ACESSO ")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL("")
 LEIA (ER)
 ESCOLHA ER
 CASO "1"
 LIMPATELA
 ESCREVAL(" **** CANCELAMENTO ***")
 ESCREVAL("")
 ESCREVAL("INFORME COD DE VOO ")
 LEIA(COD)
 ESCOLHA COD
 CASO "1201"
 LIMPATELA
 SE (RECOD1201 = "LIVRE") ENTAO
 ESCREVAL (" VOO ENEL - 1201:......GRU => NAT = NAO ESTA RESERVADO")
 ESCREVAL("=======================================================")
 ESCREVAL("")
 ESCREVAL("")
 FIMSE
 SE (RECOD1201 = "RESERVADO") ENTAO
 ESCREVAL (" VOO ENEL - 1201:......GRU => NAT = ESTA CANCELADO")
 ESCREVAL("===================================================")
 ESCREVAL("")
 ESCREVAL("")
 FIMSE
 RECOD1201 := "LIVRE"
 ER := "2"
 CASO "1301"
 LIMPATELA
 SE (RECOD1301 = "LIVRE") ENTAO
 ESCREVAL (" VOO ENEL - 1301:......GRU => BEL = NAO ESTA RESERVADO")
 ESCREVAL("=======================================================")
 ESCREVAL("")
 ESCREVAL("")
 FIMSE
 SE (RECOD1301 = "RESERVADO") ENTAO
 ESCREVAL (" VOO ENEL - 1301:......GRU => BEL = ESTA CANCELADO")
 ESCREVAL("===================================================")
 ESCREVAL("")
 ESCREVAL("")
 FIMSE
 RECOD1301 := "LIVRE"
 ER := "2"
 OUTROCASO
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= COD. VOO INVÁLIDO =")
 ESCREVAL("====================================")
 ESCREVAL("")
 FIMESCOLHA
 
 CASO "2"
 LIMPATELA
 ESCREVAL(" ACESSO ENCERRADO SEM CANCELAMENTO ")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL("")
 OUTROCASO
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= OPÇÃO INVÁLIDA =")
 ESCREVAL("====================================")
 ESCREVAL("")
 FIMESCOLHA
 FIMENQUANTO
 CASO "2"
 LIMPATELA
 ESCREVAL(" VOOS DISPONÍVEIS ")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1201:......GRU => NAT =")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1301:......GRU => BEL =")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL("====================================")
 CASO "3"
 LIMPATELA
 ESCREVAL(" RESERVAR ")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL(" INFORME O COD. DO VOO ")
 LEIA (COD)
 ESCOLHA COD
 CASO "1201"
 RE := "0"
 ENQUANTO RE <> "2" FACA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1201:......GRU => NAT =")
 ESCREVAL("= GUARULHOS / NATAL =")
 ESCREVAL("= DURAÇÃO: 3:15 MIN =")
 ESCREVAL("= R$ 782,22 =")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL("")
 ESCREVAL("*** 1 - RESERVAR *******************")
 ESCREVAL("*** 2 - CANCELAR RESERVA ***********")
 LEIA (RE)
 ESCOLHA RE
 CASO "1"
 LIMPATELA
 ESCREVAL(" RESERVA REALIZADA COM SUCESSO ")
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1201:......GRU => NAT =")
 ESCREVAL("= GUARULHOS / NATAL =")
 ESCREVAL("= DURAÇÃO: 3:15 MIN =")
 ESCREVAL("= R$ 782,22 =")
 ESCREVAL("====================================")
 ESCREVAL("")
 RECOD1201 := "RESERVADO"
 RE := "2"
 CASO "2"
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= VENDA CANCELADA =")
 ESCREVAL("====================================")
 ESCREVAL("")
 OUTROCASO
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= OPÇÃO INVÁLIDA =")
 ESCREVAL("====================================")
 ESCREVAL("")
 FIMESCOLHA
 FIMENQUANTO
 CASO "1301"
 RE := "0"
 ENQUANTO RE <> "2" FACA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1301:......GRU => BEL =")
 ESCREVAL("= GUARULHOS / BELÉM =")
 ESCREVAL("= DURAÇÃO: 3:30 MIN =")
 ESCREVAL("= R$ 501,01 =")
 ESCREVAL("====================================")
 ESCREVAL("")
 ESCREVAL("")
 ESCREVAL("*** 1 - RESERVAR *******************")
ESCREVAL("*** 2 - CANCELAR RESERVA ***********")
 LEIA (RE)
 ESCOLHA RE
 CASO "1"
 LIMPATELA
 ESCREVAL(" RESERVA REALIZADA COM SUCESSO ")
 ESCREVAL("====================================")
 ESCREVAL("= VOO ENEL - 1301:......GRU => BEL =")
 ESCREVAL("= GUARULHOS / BELÉM =")
 ESCREVAL("= DURAÇÃO: 3:30 MIN =")
 ESCREVAL("= R$ 501,01 =")
 ESCREVAL("====================================")
 ESCREVAL("")
 RECOD1301 := "RESERVADO"
 RE := "2"
 CASO "2"
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= VENDA CANCELADA =")
 ESCREVAL("====================================")
 ESCREVAL("")
 OUTROCASO
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= OPÇÃO INVÁLIDA =")
 ESCREVAL("====================================")
 ESCREVAL("")
 FIMESCOLHA
 FIMENQUANTO
 OUTROCASO
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= COD. VOO INVÁLIDO =")
 ESCREVAL("====================================")
 ESCREVAL("")
 FIMESCOLHA
 CASO "4"
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= SISTEMA ENCERRADO =")
 ESCREVAL("====================================")
 ESCREVAL("")
 OUTROCASO
 LIMPATELA
 ESCREVAL("")
 ESCREVAL("====================================")
 ESCREVAL("= OPÇÃO INVÁLIDA =")
 ESCREVAL("====================================")
 ESCREVAL("")
 FIMESCOLHA
 FIMENQUANTO
fimalgoritmo