Trabalho de algoritmos - cadastro de empresa aerea

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] DE Literal 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:Inteiro X,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 //