ABASTECIMENTOVOO

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

Algoritmo "AbastecimentoVoo"
Var
 trechoTotal: real
 trechoPlan: inteiro
 trechoAlt: inteiro
 totalCombustivel: real
 abastecimento: real
 combusTanque: real
 capacB737: real
 procedimento trechoDeVoo
 Var
 margemSeg: real
 Inicio
 margemSeg <- 1.3
 Escreval("Informe a distância do trecho planejado:")
 Leia(trechoPlan)
 Escreval(" ")
 Escreval("Informe a distância do trecho alternativo:")
 Leia(trechoAlt)
 Escreval(" ")
 trechoTotal <- trechoPlan + trechoAlt
 trechoTotal <- trechoTotal*1.3
 Escreval("A distância total do plano de voo é: ", trechoTotal)
 fimprocedimento
 
 procedimento combusTotalNec
 Inicio
 Escreval(" ")
 totalCombustivel <- trechoTotal*3.6
 Escreval("A quantidade total de combustivel é: ",totalCombustivel)
 fimprocedimento
 
 procedimento capacidadeAbast
 Var
 Inicio
 Escreval(" ")
 Se(totalCombustivel <= capacB737) entao
 Escreval("Informe a quantidade combustível presente na aeronave")
 Leia(combusTanque)
 abastecimento <- totalCombustivel - combusTanque
 Escreval(" ")
 Escreval("A quantidade de combustivel a ser abastecido é: ", abastecimento)
 Escreval(" ")
 limpatela
 Escreval("Voo Aprovado, bom voo!")
 Escreval(" ")
 Escreval("Distancia do trecho planejado", trechoPlan)
 Escreval("Distancia do trecho alternativo", trechoAlt)
 Escreval("Distancia do trecho total", trechoTotal)
 Escreval ("A quantidade de combustivel necessária para o trecho é:", totalCombustivel)
 Escreval("A quantidade de combustivel a ser abastecido é: ", abastecimento)
 senao
 Escreval(" ")
 Escreval("Voo Reprovado, reveja seu planejamento")
 fimse
 fimprocedimento
Inicio
 Escreval("Iniciando o planejamento de abastecimento da aeronave")
 Escreval("")
 capacB737 <- 25816
 trechoDeVoo()
 combusTotalNec()
 capacidadeAbast()
 
Fimalgoritmo