Algoritmos Computacionais

algoritmo "trabalho"

var

poltrona:vetor [1..10,1..10] de inteiro

fila,polt,opcao,ocup:inteiro

lucro, ingresso:real

inicio

enquanto (opcao<>6)faca

escreval("")

escreval("|==========================|")

escreval("| |")

escreval("| Menu de opções |")

escreval("| |")

escreval("|==========================|")

escreval("| 1 - Valor do ingresso |")

escreval("| 2 - Verificar poltronas |")

escreval("| 3 - Realizar reservas |")

escreval("| 4 - Excluir reserva |")

escreval("| 5 - Lucro |")

escreval("| 6 - Finalizar |")

escreval("|==========================|")

escreval("")

escreva("Digite a opção desejada: ")

escreva("")

leia(opcao)

se (opcao<=0)ou(opcao>6)entao

escreval("")

escreva("ERRO! ")

escreval("Escolha uma opção válida!")

senao

se (opcao=1)entao

escreval("")

escreva("Informe o valor do ingresso: ")

escreva("")

leia(ingresso)

senao

se opcao=2 entao

escreval("")

para fila de 1 ate 10 faca

para polt de 1 ate 10 faca

se (poltrona[fila, polt] = 0) entao

escreva(" O")

senao

escreva(" X")

fimse

fimpara

escreval("")

fimpara

senao

se(opcao=3)entao

escreval("")

escreva("Informe a fila desejada: ")

leia(fila)

enquanto (fila>10)faca

escreval("")

escreva("ERRO! ")

escreva("Informe uma fila de 1 a 10: ")

leia(fila)

fimenquanto

escreval("")

escreva("Informe a poltrona desejada: ")

leia(polt)

enquanto (polt>10)faca

escreval("")

escreva("ERRO! ")

escreva("Informe uma poltrona de 1 a 10: ")

leia(polt)

fimenquanto

se (poltrona[fila, polt] = 0) entao

poltrona[fila, polt] <- 1

ocup<-ocup+1

escreval("")

escreval("|--------------------------|")

escreval("|Reserva feita com sucesso!|")

escreval("|--------------------------|")

senao

escreval("")

escreval("Poltrona [", fila, ", ", polt, "] encontra-se ocupada")

fimse

senao