Luide Vqs

ja apaguei ele, o problema continuou, fiz uma gambiarra aqui e parece que deu certo

Olha eu de novo novamente, boa noite, juro q tentei resolver o problema mas não consegui, quando eu escolho os casos de 1 a 4, o "Desenho" aparece e apaga mt rápido, como posso resolver isso? algoritmo "semnome" var M:Vetor[1..4, 1..4] de inteiro R,L,C:Inteiro Procedimento Matriz() inicio Para L <- 1 ate 4 faca Para C <- 1 ate 4 faca Escreva(M[L,C]:4) Fimpara Escreval() Fimpara Fimprocedimento Procedimento Diagonal() Inicio Para L <- 1 ate 4 faca Para C <- 1 ate 4 faca Se (L=C) então Escreva(M[L,C]:4) Senao Escreva("":4) Fimse Fimpara Escreval() Fimpara Fimprocedimento Procedimento Superior() Inicio Para L <- 1 ate 4 faca Para C <- 1 ate 4 faca Se (L<C) então Escreva(M[L,C]:4) Senao Escreva("":4) Fimse Fimpara Escreval() Fimpara Fimprocedimento Procedimento Inferior() Inicio Para L <- 1 ate 4 faca Para C <- 1 ate 4 faca Se (L>C) então Escreva(M[L,C]:4) Senao Escreva("":4) Fimse Fimpara Escreval() Fimpara Fimprocedimento inicio Para L <- 1 ate 4 faca Para C <- 1 ate 4 faca Escreva("Digite o valor da posição [",L,",",C,"]") Leia(M[L,C]) Fimpara Fimpara Limpatela Repita Limpatela Escreval("=====================") Escreval(" Menu De Opções ") Escreval("=====================") Escreval("[1]Mostrar a Matriz ") Escreval("[2]Diagonal Principal") Escreval("[3]Triangulo Superior") Escreval("[4]Triangulo Inferior") Escreval("[5]Sair") Escreva("Escolha: ") Leia(R) Escolha R Caso 1 Matriz() Caso 2 Diagonal() Caso 3 Superior() Caso 4 Inferior() Limpatela FimEscolha Ate (R = 5) fimalgoritmo

Congratulations

Boa noite, olha eu aqui dnv... Bom, estava fazendo um algoritmo para reservar poltronas no cinema, ocorreu tudo certinho, maaaas ocorreu algo inusitado, quando eu reservo uma cadeira, a linha --Escreva("Cadeira B",[N]," Reservada") --não aparece na tela, alguem pode me dizer porque acontece isso? conflito de comandos ou sla.... algoritmo "semnome" var Cadeira:Vetor[1..10] de Caractere C, N:Inteiro R :Caractere inicio Para C <- 1 ate 10 faca Cadeira[C] <- "OK" Fimpara Repita Para C <- 1 ate 10 faca Se Cadeira[C]="OK" então Escreva("[B",C,"]") Senao Escreva("[--]") Fimse Fimpara Escreval("") Escreva("Reservar Cadeira: B") Leia(N) Se (Cadeira[N]="OK") então Cadeira[N] <- "X" Escreva("Cadeira B",[N]," Reservada") Senao Escreval("ERROR Cadeira já reservada, Tente novamente") Fimse Escreva("Deseja Reservar outra cadeira?[S/N] ") Leia(R) Limpatela ate(R="N") fimalgoritmo

Esse era realmente o problema, muito obrigado. Não sabia mais o que fazer sz

Ele da um erro na linha 27 "Nota[c] <- Nota[c] + 2" Nota[4] não encontrada, mas o que não faz nenhum sentido sendo estou desenvolvendo co base em 3 alunos e o vetor que coloquei tem 3 espaços porque é exatamente a nota de cada um.

@Simon Viegas bom, a itenção é que ele funcione assim: (min 37) mas, ele simplesmente não funciona, ao colocar no visualg ele fecha por erro

Boa tarde, estou a umas 2 horas tentando identificar qual o erro desse código. Alguém pode me ajudar? ele tem como finalidade, comparar as questões dos alunos, contar a quantidade de acertos e dar as notas. Algoritmo "Gabarito" Var Gab : Vetor[1..5] de Caractere Nome: Vetor[1..3] de Caractere GabA: Vetor[1..5] de Caractere Nota: Vetor[1..3] de Real C : Inteiro Inicio Escreval("-----------------------------") Escreval("Passo 1- Cadastro de gabarito") Escreval("-----------------------------") Para C <- 1 ate 5 Faca Escreva("Questão ",C,": ") Leia(Gab[C]) Fimpara Limpatela Para C <- 1 ate 3 faca Escreval("-----------------------------") Escreval(" Aluno C ") Escreval("-----------------------------") Escreva("Nome: ") Leia(Nome[C]) Para C <- 1 ate 5 faca Escreva("Questao ",C,":") Leia(GabA[C]) Se (GabA[C]= Gab[C]) então Nota[c] <- Nota[c] + 2 Fimse Fimpara Limpatela Fimpara Escreval("============") Escreval("Notas Finais") Escreval("============") Para C <- 1 Ate 3 faca Escreval(Nome[C],Nota[C]) Fimpara Fimalgoritmo