eubastos

@devair1010 Achei a solução! algoritmo "LugaresCinema" // ============================================================= // Algoritmo para reservar lugares em uma sala de cinema. // // AUTOR: Gustavo Guanabara // Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com // ============================================================= var B: vetor[1..19] de Caractere l, cad: Inteiro r: Caractere Procedimento MostraFileira() var i: Inteiro inicio Para i <- 1 ate 10 faca Se (B[i] = "") então Escreva ("[ B", i:2, " ]") senao Escreva ("[ --- ]") FimSe FimPara EscrevaL() EscrevaL("------------------------------------------------------------------------") FimProcedimento inicio Repita LimpaTela MostraFileira() Escreva("Reservar a cadeira: B") Leia(cad) Se (B[cad]="") então B[cad] <- "X" EscrevaL("Cadeira B", cad, " RESERVADA!") Senao EscrevaL("ERRO: Lugar Ocupado!") FimSe Escreva("Quer reservar outro? [S/N] ") Leia(r) Ate (r = "N") fimalgoritmo

@kgin obrigado, irmão Não sabia que podia usar o "de", no meu caso não é esse o erro. Mas obgdao!! @devair1010 Vdd, irmão!! Meu erro naquele caso era realmente colocar c ao invés de cprocedimento. Resolveu meu problema! Mas apareceu outros kkkkkkkkk algoritmo "cinema" var c, n: inteiro cadeira: vetor [1..10] de inteiro resposta: caractere procedimento titulo(b: inteiro) inicio para b<- 1 ate 10 faca Escreva("[B", b,"]") fimpara fimprocedimento procedimento mesas(a: inteiro) var cprocedimento: inteiro inicio para cprocedimento<- a ate 10 faca se ( cadeira[c] = cprocedimento) então Escreva("[---]") senao Escreva("[B", cprocedimento,"]") fimse fimpara c<- c+ 1 escreval("--------------------------") fimprocedimento inicio n<- 1 titulo(n) c<- 1 enquanto c<=10 faca Escreva("Reservar a cadeira: B") Leia(cadeira[c]) Escreval("você quer continuar escolher outra? [S/N]") Leia(resposta) se (resposta = "S") então limpatela mesas(n) senao interrompa //interrompe o loop fimse fimenquanto fimalgoritmo Meu novo código esta assim. Vamos supor que eu reserve a cadeira 2 e Digito S para continuar O prompt vai ficar assim: Ignore a segunda tela pfv kkkkk Se eu cadastrar mais uma cadeira o objetivo é que ela também fique pontilhada, mas com a primeira que eu cadastrei também continuando pontilhada. porém se eu cadastrar outra retorna assim: você sabe como resolver isso?? Obrigadão!!!

Gente, tudo bem?? Eu estou iniciando em lógica de programação. Estou fazendo o curso do Curso em vídeo (famosa plataforma de cursos online) e estou na aula 14 do curso de lógica de programação que usa o Visualg. Esta dando o erro "Esperava encontrar o então", porém eu o mencionei no código. Alguém poderia me ajudar?? obrigado!! Meu código: algoritmo "cinema" var c, n: inteiro cadeira: vetor [1..10] de inteiro resposta: caractere procedimento mesas(a: inteiro) var cprocedimento: inteiro inicio para cprocedimento<- a ate 10 faca se (cadeira[c] = a) então Escreva("[---]") senao Escreva("[B", a,"]") fimse fimpara escreval("--------------------------") fimprocedimento inicio n<- 1 mesas(n) c<- 1 enquanto c<=10 faca Escreva("Reservar a cadeira: B") Leia(cadeira[c]) Escreval("você quer continuar escolher outra? [S/N]") Leia(resposta) se (resposta = "S") então c<- c + 1 limpatela mesas(n) senao c<- 11 fimse fimenquanto fimalgoritmo