Cadastro Hotel com Procedimento Menu - VisuAlg

[DeanDes]

Dessa vez, não há nada errado com o código, apenas compartilhando uma atividade, onde outros possam encontrar soluções para seus trabalhos!

Está simples, mas tudo funcionando, feito correndinho durante a aula.

algoritmo "Cadastro"---------------------------------------------------------------------------//VARIAVEIS GLOBAIS//------------------------------------------------------------------------------var opcao, i, qntd, opcaoSair, diasHosp, codCliente, sairprograma, sairCadastrados, procCadastrados : inteiro    servicos, somaDiaria, valDiaria: real    buscarNome : caractere    nome:vetor[1..10] de caractere    idade:vetor[1..10] de inteiro    diaria:vetor[1..10] de inteiro    conta:vetor[1..10] de real//------------------------------------------------------------------------------//PROCEDIMENTO CADASTRO//------------------------------------------------------------------------------procedimento cadastroiniciolimpatelaopcaoSair<-0          para i de 1 ate 10 faca              escreval("| ================== CADASTRAR ================= |")              escreva("| Digite o nome: ")              leia(nome[i])              escreva("| Digite a idade: ")              leia(idade[i])              escreval(" ")              escreval(" ")              escreval("| ===================== MENU CADASTRAR ==================== |")              escreval("| 0 - Cadastrar outra conta! ")              escreval("| 9 - Ir ao menu principal! ")              escreval("| ========================================================= |")              escreva("Opção: ")              leia(opcaoSair)                            se(opcaoSair = 9) entao                 menu              senao                            fimse          limpatela          fimpara          menufimprocedimento//------------------------------------------------------------------------------//PROCEDIMENTO VER CADASTRO//------------------------------------------------------------------------------procedimento vercadastradosiniciolimpatelasairCadastrados<-0       escreval("| ================== CADASTRADOS ================= |")              para i de 1 ate 10 faca            //se ( (nome[i] = falso) ou (idade[i] = 0) )entao            //   fimpara            //fimse            escreva("Nome: ",nome[i], " - Idade: ",idade[i], " - Codigo: ",i)            escreval("")       fimpara       escreval("| ================================================ |")       escreva("Digite 9 para ir ao menu princial! Opção: ")       leia(sairCadastrados)              se(sairCadastrados = 9) entao          menu       fimsefimprocedimento//------------------------------------------------------------------------------//PROCEDIMENTO PROCURAR CADASTRO//------------------------------------------------------------------------------procedimento procurarcadastroiniciolimpatelasairCadastrados<- 0procCadastrados<- 0       escreval("| ================== PROCURA CADASTRO ================= |")       escreva("Digite o nome que deseja procurar: ")       leia(buscarNome)       para i de 1 ate 10 faca         se(buscarNome = nome[i]) entao            escreval("")            escreva("O nome encontrado foi: ", nome[i],"! O codigo é: ",i)         fimse       fimpara       escreval(" ")       escreval(" ")       escreval("| ===================== MENU CONTA ==================== |")       escreval("| 1 - Ir para Fechar a Conta! ")       escreval("| 9 - Ir ao menu principal! ")       escreval("| ===================================================== |")       escreva("Opção: ")       leia(sairCadastrados)       se(sairCadastrados = 9) entao          menu       senao se(caircadastrados = 1) entao                fecharconta             fimse       fimsefimprocedimento//------------------------------------------------------------------------------//PROCEDIMENTO FECHAR CONTA//------------------------------------------------------------------------------procedimento fecharcontainiciolimpatelai<-0sairCadastrados<- 0procCadastrados<- 0servicos <- 0somaDiaria<- 0valDiaria<- 50,00       escreval("| ================== FECHAR CONTA ================= |")       escreva("Digite o codigo do cliente(apenas Nº): ")       leia(codCliente)       escreva("Digite quantos dias o cliente ficou: ")       leia(diasHosp)       se(diasHosp < 15)entao          servicos <- diasHosp * 4,00          somaDiaria <- diasHosp * valDiaria + servicos       fimse       se(diasHosp = 15)entao          servicos <- diasHosp * 3,60          somaDiaria <- diasHosp * valDiaria + servicos      fimse      se(diasHosp > 15)entao         servicos <- diasHosp * 3,00         somaDiaria <- diasHosp * valDiaria + servicos      fimse      limpatela      escreval("| ================== DADOS DO PAGAMENTO ================= |")            escreval("O cliente - ",nome[codCliente]," - ficou",diasHosp, " dias")      escreval("Sua conta final é:",somaDiaria, " reais")       escreval(" ")       escreval(" ")       escreval("| ===================== MENU CONTA ==================== |")       escreval("| 1 - Fechar outra conta! ")       escreval("| 9 - Ir ao menu principal! ")       escreval("| ===================================================== |")       escreva("Opção: ")       leia(sairCadastrados)       se(sairCadastrados = 9) entao          menu       fimse       se (sairCadastrados = 1) entao          fecharconta       fimsefimprocedimento//------------------------------------------------------------------------------//PROCEDIMENTO MENU//------------------------------------------------------------------------------procedimento menuiniciolimpatelaescreval("| ============= DADOS PESSOAIS ============ |")escreval("|                                           |")escreval("|          Escolha a opção desejada         |")escreval("|                                           |")escreval("| 1 - Cadastrar                             |")escreval("| 2 - Ver Cadastros                         |")escreval("| 3 - Procurar Cadastro                     |")escreval("| 4 - Fechar Conta                          |")escreval("| 5 - Sair                                  |")escreval("| ========================================= |")escreva("Digite o número da opção desejada: ")leia(opcao)escolha opcaocaso 1      cadastro          caso 2     vercadastradoscaso 3     procurarcadastrocaso 4     fecharcontacaso 5    fimalgoritmooutrocaso   menu   fimescolhafimprocedimento//------------------------------------------------------------------------------//INICIO PROGRAMA PRINCIAL//------------------------------------------------------------------------------iniciomenufimalgoritmo