Se quiser, baixe esse app ¬ Visualg, copie o código, cole, teste, altere, treine, seja feliz! Sorria! Mesmo, se o mudo fizer careta (RS!).
Exercícios
algoritmo "Lugares Cinema"
var
B: vetor[1..19] de Caractere
l, cad: Inteiro
r: Caractere
l, cad: Inteiro
r: Caractere
Procedimento MostraFileira()
var
i: Inteiro
inicio
Para i <- 1 ate 10 faca
EscrevaL()
EscrevaL("------------------------------------------------------------------------")
Se (B[i] = "") entao
FimPara
Escreva ("[ B", i:2, " ]")
senao
Escreva ("[ --- ]")
FimSe
EscrevaL()
EscrevaL("------------------------------------------------------------------------")
FimProcedimento
inicio
Repita
LimpaTela
MostraFileira()
Escreva("Reservar a cadeira: B")
Leia(cad)
Leia(r)
Ate (r = "N")
MostraFileira()
Escreva("Reservar a cadeira: B")
Leia(cad)
Se (B[cad]="") entao
B[cad] <- "X"
EscrevaL("Cadeira B", cad, " RESERVADA!")
Senao
Escreva("Quer reservar outro? [S/N] ")
B[cad] <- "X"
EscrevaL("Cadeira B", cad, " RESERVADA!")
EscrevaL("ERRO: Lugar Ocupado!")
FimSe
Leia(r)