Trabalho de algoritmos - cadastro de empresa aerea

Páginas: 7 (1535 palavras) Publicado: 28 de abril de 2013
Algoritmo: K:\Murilo\Documentos\EEEM Emir de Macedo Gomes\Curso Técnico de Informática\Ling uagens de Programação\Turma 2\Relatorio Final Grupo 1.alg Data: 28/04/2013 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ga 23 Carga 24 Carga 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 DEN:Vetor [1..5] DELiteral PE:Vetor [1..5] DE Real Procedimento "Menu_1" Var NC:Inteiro // NC= Número de Cadastro Nome:Literal // Nome= Nome CPF:Inteiro // CPF= CPF Polt:Inteiro // Polt= Poltrona Tel:Inteiro // Tel= Telefone Email:Literal // Email= E-mail Inicio Para I:= I ate 5 Faca I:=I +1 Escreval ("O Nº de cadastro do passageiro é: " ,I) Escreval ("Entre com o Nome do" ,I, "º Passageiro: ") Leia (Nome[I])Escreval ("Entre com o CPF do" ,I, "º Passageiro: ") Leia (CPF[I]) Escreval ("Sua Poltrona será a de Nº" ,I, ". ") Escreval ("Entre com o Telefone do" ,I, "º Passageiro: ") Leia (Tel[I]) Escreval ("Entre com o E_mail do" ,I, "º Passageiro: ") Leia (Email[I]) LimpaTela Escreval ("Cadastro Efetuado com Sucesso!") Escreval Escreval ("Pressione Enter para Continuar!") Leia(x) LimpaTela Escreval Escreval("Escreval Escreval (" Aeroscopto ") // DE= Descrição da encomenda // PE= Peso da encomenda EmailR:Vetor [1..5] DE Literal // EmailR= E_mail do Responsável pela TelR:Vetor [1..5] DE Inteiro // TelR= Telefone do Responsável pela algoritmo "Boeing_737" // Função : Cadastrar Passageiros e Cargas // Autor : Drica, Prica, Rafa e Wil // Data : 25/05/2011 // Seção de Declarações var I, I1:InteiroX,Menu:Literal OK:Literal Rel: Inteiro // Numero de relatorios a serem imprimidos PRA: Literal NC: Vetor [1..5] DE Inteiro Nome:Vetor[1..5]DE Literal CPF:Vetor[1..5]DE Inteiro Polt:Vetor[1..5]DE Inteiro Tel:Vetor[1..5]DE Inteiro Email:Vetor[1..5]DE Literal NE:Vetor [1..5] DE Inteiro NomeR:Vetor [1..5] DE Literal // NC= Número de cadastro // Nome= Nome // CPF= CPF // Polt= Poltrona // Tel= Telefone //Email= E-mail // NE= Número da encomenda // Nome= Nome do Responsável pela Car

*********************************************")

70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144145

Escreval (" | |") Escreval (" | 1 - Cadastro de Passageiros |") Escreval (" | |") Escreval (" | 2 - Pesquisa de Passageiros |") Escreval (" | |") Escreval (" | 3 - Impressão de Relatório de Passageiros |") Escreval (" | |") Escreval (" | 4 - Cadastro de encomenda |") Escreval (" | |") Escreval (" | 5 - Pesquisa de Cargas |") Escreval (" | |") Escreval (" | 6 - Impressão de Relatório deCargas |") Escreval (" | |") Escreval (" | 7 - Sair |") Escreval (" **********************************************") Escreval Escreval (" Digite alguma coisa?") Escreval Leia (Menu) Escolha (Menu) Caso "1" LimpaTela Menu_1 Caso "2" LimpaTela Menu_2 Caso "3" LimpaTela Menu_3 Caso "4" LimpaTela Menu_4 Caso "5" LimpaTela Menu_5 Caso "6" LimpaTela Menu_6 Caso "7" LimpaTela Caso Menu Escreval("MenuInválido!") Escreval ("Digite outra Opção!") Limpatela Ate Menu = "8" FimPara FimProcedimento Procedimento "Menu_2" Var NC:Inteiro //NC= Número de Cadastro CPFDig:Inteiro //CPF= CPF do Passageiro NCdig:Inteiro // NCdig= Número do Cadastro Digitado PRA:Literal // OK= Opcao digitada pelo usuario x:Literal // Enter= Voltar para o Menu Inicio Enquanto PRA "N" Faca Escreval (" Escreval (" Escreval ("Escreval(" Leia (OK) LimpaTela Se PRA = 1 Entao Escolha o método de Pesquisa 1 - Pesquisa por CPF. 2 - Pesquisa por Número de cadastro. N - Para sair ") ") ") ")

Escreval ("Entre com o CPF do Passageiro: ") Leia (CPFdig) Se CPF[I] = CPFdig Entao Escreval

146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • Cadastro de Empresa
  • organização e administração de empresas aéreas
  • guerra contra empresas aéreas
  • trabalho de cadastro
  • trabalho para cadastro
  • TAM
  • AD Gerenciamento De Empresa Aerea
  • ação de indenizção empresa aerea

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!