algoritmo semNome;
// Síntese
//  Objetivo:
//  Entrada :
//  Saída   :


principal
    // Declarações
    inteiro valorNormal, valorOriginal, descontoM, descontoF, qtdeCad, remover;
    inteiro indice, indiceC2;
    texto cadeiras[10];
    texto estadio;
    caracter sexo, acao, continuar2;
    // Instruções
    indice=0;
    indiceC2=0;
    validaPorcentagemDesconto(valorNormal, descontoM, descontoF);
    faca
        escreva("| Nome estádio: ");
        leia(estadio);
    enquanto(comparaTexto(estadio, "")==0);
    faca
        escreva("| qtdeCadeiras: ");
        leia(qtdeCad);
    enquanto(qtdeCad<5 ou qtdeCad>=10);
    faca
        cadeiras[indice]="D";
        indice=indice+1;
    enquanto(indice<qtdeCad);
    limpaTela();
    faca
        escreval("|+| Menu Ações |+|");
        escreval("(1) Verificar Cadeiras");
        escreval("(2) Efetuar Reserva");
        escreval("(3) Cancelar Reserva");
        escreval("(4) Confirmar Reserva");
        leiaCaracter(acao);
        escolha(acao)
        caso '1'
            indice=0;
            para(indice de 0 ate qtdeCad-1 passo 1)faca
                se(comparaTexto(cadeiras[indice],"D")==0)entao
                    escreval("Nº Cadeira       Estado");
                    escreval(indice,"       ", cadeiras[indice]);
                senao
                    se(comparaTexto(cadeiras[indice],"R")==0)entao
                        escreval("Nº Cadeira       Estado");
                        escreval(indice,"       ", cadeiras[indice]);
                    senao
                        se(comparaTexto(cadeiras[indice],"C")==0)entao
                            escreval("Nº Cadeira       Estado");
                            escreval(indice,"       ", cadeiras[indice]);
                        fimSe
                    fimSe
                fimSe
            fimPara
            escreval("| Deseja retornar ao MENU?");
            leiaCaracter(continuar2);
            continuar2=minusculoCaracter(continuar2);
            se(continuar2=='s')entao
                continuar2='n';
            senao
                se(continuar2=='n')entao
                    continuar2='s';
                fimSe
            fimSe
            interrompa;
        caso '2'
            faca
                validaSexo(sexo);
                se(indiceC2==0)entao
                    cadeiras[indiceC2]="R";
                    indiceC2=indiceC2+1;
                    escreval("");
                    escreval("| Cadeira reservada com sucesso!");
                    escreval("| Número: 1");
                    escreval("| Total a pagar: R$",calculaIngresso(sexo, valorNormal, descontoM, descontoF, valorOriginal));
                    escreval("");
                senao
                    se(indiceC2==5)entao
                        continuar2='n';
                        escreval("| Não existe cadeiras disponíveis para reserva.");
                    senao
                        se(comparaTexto(cadeiras[indiceC2],"D")==0 ou indiceC2<5)entao
                            cadeiras[indiceC2]="R";
                            escreval("");
                            escreval("| Cadeira reservada com sucesso!");
                            escreval("| Número: ", indiceC2+1);
                            escreval("| Total a pagar: R$", calculaIngresso(sexo, valorNormal, descontoM, descontoF, valorOriginal));
                            escreval("");
                            indiceC2=indiceC2+1;
                        fimSe
                    fimSe
                fimSe
                escreval("| Deseja fazer mais reservas?");
                leiaCaracter(continuar2);
                continuar2=minusculoCaracter(continuar2);
            enquanto(continuar2=='s');
            limpaTela();
            interrompa;
        caso '3'
            escreva("| Informe o Nº da cadeira que deseja remover a reserva: ");
            leia(remover);
            interrompa;
        caso '4'
            interrompa;
        fimEscolha
    enquanto(continuar2=='n');
fimPrincipal

procedimento validaPorcentagemDesconto(ref inteiro valorNormal, ref inteiro descontoM, ref inteiro descontoF)
    escreva("| Informe o valor do ingresso: ");
    leia(valorNormal);
    escreva("| Informe o desconto masculino: ");
    leia(descontoM);
    escreva("| Informe o desconto feminino: ");
    leia(descontoF);
fimProcedimento

procedimento validaSexo(ref caracter sexo)
    escreval("| Para reservar uma cadeira, você deve informar seu sexo!");
    escreval("- Tecle (M) para Masculino.");
    escreval("- Tecle (F) para Feminino.");
    leiaCaracter(sexo);
    sexo=maiusculoCaracter(sexo);
    limpaTela();
fimProcedimento

funcao real calculaIngresso(caracter sexo, inteiro valorNormal, inteiro descontoM, inteiro descontoF, ref inteiro valorOriginal)
    se(sexo=='M')entao
        retorna ((valorNormal)-(descontoM/100)*50);
    senao
        se(sexo=='F')entao
            retorna ((valorNormal)-(descontoF/100)*50);
        fimSe
    fimSe
fimFuncao