Venda de Bilhetes Cinema

[Marcones094 0]

Estou Programando um sistema de vendas para cinema, ja está tudo quase pronto, a unica coisa que falta é recusar a venda de um bilhete caso a cadeira já esteja ocupada... me ajudem por favor?

var

sala_cinema: vetor[1..10, 1..30] de caracter
opcao_desejada: inteiro
fileira, cadeira: inteiro
x,y, bilheteria_inteira, bilheteria_meia: inteiro
tipo_entrada:caracter

inicio


repita
   escreval(" ")
   escreval("1 - Iniciar nova Sessão: ")

   escreval("2 - Exibir o mapa de ocupação do cinema ")

   escreval("3 - Vender um bilhete ")

   escreval("4 -Totalizar a bilheteria  ")

   escreval("5 -Fechar o sistema  ")

   leia(opcao_desejada)
   escolha (opcao_desejada)
   caso 1
      escreval("Iniciar nova sessão!")

   caso 2
      escreval("Exibe Mapa!")
      escreval("")
      para fileira de 1 ate 10 passo 1 faca
         escreval("")
         para cadeira de 1 ate 30 passo 1 faca
            se (sala_cinema[fileira,cadeira] = "") entao
               escreva(" O")
            senao
               escreva(" ", sala_cinema[fileira,cadeira])
            fimse
         fimpara
      fimpara

      escreval("")
   caso 3
      escreval("Vender Bilhete!")
      escreval("Informe a fileira: ")
      leia(fileira)
      escreval("Informe a cadeira: ")
      leia(cadeira)
      sala_cinema[fileira,cadeira] <- "X"
      escreval("Escreva M para meia e I para inteira: ")
      leia(tipo_entrada)




      para x de 1 ate 10 passo 1 faca
         escreval("")
         para y de 1 ate 30 passo 1 faca
            se (sala_cinema[x,y] = "") entao
               escreva(" O")
            senao
               se (sala_cinema[x,y] = "X") entao

                  se (tipo_entrada = "I") entao
                     escreva(" X")
                     bilheteria_inteira <- bilheteria_inteira + 1
                  senao
                     escreva(" M")
                     bilheteria_meia <- bilheteria_meia + 1


                  fimse
               fimse
            fimse

         fimpara
      fimpara
      
   caso 4
      escreval("Totalizar Bilheteria")
      escreval("")
      escreval("O total da bilheteria INTEIRA entrada foi: ", bilheteria_inteira*30)

      escreval("")
      escreval("O total da bilheteria MEIA entrada foi: ", bilheteria_meia*15)

      para x de 1 ate 10 passo 1 faca
         para y de 1 ate 30 passo 1 faca
            sala_cinema[x,y] <- ""
         fimpara
      fimpara

   caso 5
      escreval("Finalizando Sistema!")
   outrocaso
      escreval("Não exite esta opção!")
   fimescolha
ate (opcao_desejada = 5)
fimalgoritmo

[Imguvoss 0]

Eu não tenho uma resposta definitiva que possa te ajudar, mas tenho algumas dicas para deixar seu agoritmo mais estável e melhor em questão de visualização e resultados.

 

Primeiro: Ao em vez de usar a função "caso" use a função "se", isso deixará seu algoritmo mais estável.

Segundo: Mude a utilização do "repita... até" pela função "enquanto... faça", isso deixará seu agoritmo mais estável.

Terceiro: Agrupe as variáveis de mesmo tipo. Exemplo:

De:

sala_cinema: vetor[1..10, 1..30] de caracter
opcao_desejada: inteiro
fileira, cadeira: inteiro
x,y, bilheteria_inteira, bilheteria_meia: inteiro
tipo_entrada:caracter

Mudar para:

sala_cinema: vetor[1..10, 1..30] de caracter
opcao_desejada, fileira, cadeira, x,y, bilheteria_inteira, bilheteria_meia: inteiro
tipo_entrada:caracter

Isso deixará seu algoritmo com uma melhor visualização.

Quarto: Separe seu algoritmo por blocos específicos, você fez em alguns lugares, mas ainda há lugares que podem ser alterados.

 

Espero que você tenha entendido e possa deixar seu algoritmo mais complexo, poste como ficou após você ter feito as alterações acima.