Diego Oliveira Placido

algoritmo "Pacotes Turísticos de Réveillon" tipo Cliente = registro nome: cadeia // Mudamos de 'caractere' para 'cadeia' idade: inteiro roteiro: inteiro transporte: inteiro ingresso: inteiro valorPacote: real fimregistro funcao inicio() // Vetor para armazenar os clientes var clientes: vetor[100] de Cliente var opcao, qtdClientes: inteiro qtdClientes <- 0 repita // Removendo 'limpar_tela()' para evitar problemas de compatibilidade escreva("Turismo Legal - Pacotes Réveillon\n") escreva("1. Cadastrar cliente\n") escreva("2. Listagem Geral\n") escreva("3. Relatório Estatístico\n") escreva("0. Sair\n") escreva("Informe a opção desejada: ") leia(opcao) escolha opcao caso 1: clientes[qtdClientes] <- cadastrarCliente() qtdClientes <- qtdClientes + 1 caso 2: listagemGeral(clientes, qtdClientes) caso 3: relatorioEstatistico(clientes, qtdClientes) caso 0: escreva("Saindo...\n") outrocaso: escreva("Opção inválida!\n") fimescolha ate opcao = 0 fimfuncao funcao cadastrarCliente(): Cliente var 😄 Cliente escreva("Nome: ") leia(c.nome) // 'nome' agora é do tipo 'cadeia' escreva("Idade: ") leia(c.idade) escreva("Roteiro (1-Salvador, 2-Maceió, 3-Fortaleza): ") leia(c.roteiro) escreva("Tipo de transporte (1-Avião, 2-Ônibus): ") leia(c.transporte) escreva("Comprar ingresso para show (1-Sim, 0-Não): ") leia(c.ingresso) c.valorPacote <- calcularValorPacote(c.roteiro, c.transporte, c.ingresso) retorne c fimfuncao funcao calcularValorPacote(roteiro: inteiro, transporte: inteiro, ingresso: inteiro): real var valor: real // Definindo os valores baseados no roteiro e transporte escolha roteiro caso 1: // Salvador escolha transporte caso 1: valor <- 1500 caso 2: valor <- 950 fimescolha caso 2: // Maceió escolha transporte caso 1: valor <- 900 caso 2: valor <- 600 fimescolha caso 3: // Fortaleza escolha transporte caso 1: valor <- 1100 caso 2: valor <- 750 fimescolha fimescolha // Acrescentando o valor do ingresso se ingresso = 1 então valor <- valor + 450 fimse retorne valor fimfuncao funcao listagemGeral(clientes: vetor[100] de Cliente, qtdClientes: inteiro) escreva("Turismo Legal - Pacotes Réveillon\n") escreva("Listagem Geral\n") para i de 0 ate qtdClientes - 1 faca escreva(clientes[i].nome, "\t", clientes[i].idade, "\t", clientes[i].roteiro, "\t") escreva(clientes[i].transporte, "\t", clientes[i].ingresso, "\t", clientes[i].valorPacote, "\n") fimpara escreva("Tecle enter para voltar ao menu\n") leia() fimfuncao funcao relatorioEstatistico(clientes: vetor[100] de Cliente, qtdClientes: inteiro) var qtdMaceioShow, somaIdadeSalvador, qtdSalvador, qtdFortaleza: inteiro var percentualFortaleza, mediaIdadeSalvador: real qtdMaceioShow <- 0 somaIdadeSalvador <- 0 qtdSalvador <- 0 qtdFortaleza <- 0 para i de 0 ate qtdClientes - 1 faca // Contando clientes que vão para o show em Maceió se clientes[i].roteiro = 2 e clientes[i].ingresso = 1 então qtdMaceioShow <- qtdMaceioShow + 1 fimse // Calculando a média de idade dos clientes que vão para Salvador se clientes[i].roteiro = 1 então somaIdadeSalvador <- somaIdadeSalvador + clientes[i].idade qtdSalvador <- qtdSalvador + 1 fimse // Contando os clientes que compraram pacote para Fortaleza se clientes[i].roteiro = 3 então qtdFortaleza <- qtdFortaleza + 1 fimse fimpara // Calculando média e percentual se qtdSalvador > 0 então mediaIdadeSalvador <- somaIdadeSalvador / qtdSalvador senao mediaIdadeSalvador <- 0 fimse percentualFortaleza <- (qtdFortaleza / qtdClientes) * 100 escreva("Quantidade de pessoas que vão para o show da virada em Maceió: ", qtdMaceioShow, "\n") escreva("Média da idade dos clientes que vão para Salvador: ", mediaIdadeSalvador, "\n") escreva("Percentual de clientes que compraram pacotes para Fortaleza: ", percentualFortaleza, "%\n") escreva("Tecle enter para voltar ao menu\n") leia() fimfuncao fimalgoritmo Esse algoritmo está com erro de compilação o que significa?