Boa tarde!
OBRIGADO POR RESPONDER!
Eu pequei outros exemplos e consegui fazer.
<code> algoritmo "Cinema-2"
var
B: vetor [1..10] de Inteiro
Resp: Caractere
I,Reser: Inteiro
Procedimento Nome()
Inicio
Escreval ("---------------------------------------------------")
Escreval (" Cinema Nort ")
Escreval ("---------------------------------------------------")
FimProcedimento
inicio
Nome
Repita
Para I <- 1 ate 10 faca
se (B[I] = 1) entao
escreva (" [--]")
senao
escreva (" [B",I,"]")
fimse
fimpara
Escreval
Escreva ("Reserva a cadeira: B")
Leia (Reser)
Se (B [Reser] = 1) entao
Escreval ("ERRO: LUGAR OCUPADO")
SeNao
Escreval ("Cadeira ", reser," reservada.")
FimSe
B [Reser] <- 1
Escreva ("Quer reserva outro? [S/N] ")
Leia (Resp)
LimpaTela
Nome
Ate (Resp = "N")
fimalgoritmo
MAS! Não entendi essa parte :
"Para I <- 1 ate 10 faca
se (B[i] = 1) entao // EXPLICA ESSE NUMERO 1 POR FAVOR.
escreva (" [--]")
senao
escreva (" [B",I,"]")
fimse
fimpara"
COM ESSA:
"Se (B [Reser] = 1) entao
Escreval ("ERRO: LUGAR OCUPADO")
SeNao
Escreval ("Cadeira ", reser," reservada.")
FimSe
B [Reser] <- 1" /// ?????????? </code>
EU TINHA FEITO ANTES MAS NÃO DEU CERTO, POR QUÊ?