Pesquisar na Comunidade

algoritmo "Times" var time: caractere inicio escreva ("Entre com o nome de um time de futebol: ") leia (time) escolha time caso "Flamengo", "Fluminense", "Vasco", "Botafogo" escreval ("É um time carioca.") caso "São Paulo", "Palmeiras", "Santos", "Corínthians" escreval ("É um time paulista.") outrocaso escreval ("É de outro estado.") fimescolha fimalgoritmo Oi, pessoal. Então, estou começando a aprender programação por agora e estou vendo alguns vídeos de lógica de programação. Em um vídeo estava estudando sobre controle de execução e quando fui fazer um exercício no visualg, tive problemas com o seguintes comandos: escolha>caso>escreval, mais especificamente com o tipo de dado "caractere". Quando executo o programa (por exemplo o algoritmo acima), após escrever na variável, sempre aparece a mensagem do comando de "outrocaso" ou, quando não tem esse comando, simplesmente finaliza a operação, ao contrário de aparecer a mensagem instruída pelo comando "escreval". Testei com vários códigos diferentes e o resultado é o mesmo, porém, quando mudo o tipo de dado para inteiro, por exemplo, e fazendo as devidas adaptações da linguagem, dá certo. Penso que o posso estar escrevendo algo fora da linguagem, mas não encontro respostas. Já desinstalei e instalei novamente o software, mas sem sucesso. Se alguém souber o que está acontecendo e me ajudar, ficaria muito grato!

eu preciso implantar no algoritmo a exclusão e a reorganização da matriz sendo assim, por exemplo após a exclusão do 3º cadastrado o 4º cadastrado tem que assumir a posição do 3º e assim suscetivelmente. Algoritmo "Remover usuário da estrutura de arrays bidimensionais" procedimento menu () var op : caractere // Opções do menu fimproc : inteiro // Opção de sair do menu Inicio repita limpatela escreval ("********** Menu **********") escreval ("Digite o numero da opção desejada.") escreval ("") escreval ("1 - Cadastrar usuário") escreval ("2 - Listar") escreval ("3 - Buscar") escreval ("4 - Excluir") escreval ("5 - Sair") escreval ("") escreva ("Digite uma opção: ") leia(op) limpatela escolha(op) caso "1" cadastro() caso "2" listar() caso "3" buscar() caso "4" excluir() caso "5" fimproc <- 5 interrompa outrocaso Menu() fimescolha ate(fimproc = 5) fimprocedimento procedimento cadastro() var op: inteiro inicio limpatela escreval ("--------- Menu de cadastro ---------") escreva ("Nome: ") Leia (usuario[cont,contd]) contd := contd + 1 escreva ("Idade: ") leia (usuario[cont,contd]) cont := cont + 1 contd := contd - 1 fimprocedimento procedimento listar() var inicio para cont de 0 ate 4 faca escreva ("|Nome: ",Usuario[cont,0]) escreval (" - Idade: ",usuario[cont,1],"|") fimpara escreval("----------------------") escreva ("Digite qualquer tecla para sair.") leia (sr) fimprocedimento procedimento buscar(): caractere var nome : caractere encontrou : inteiro contador : inteiro inicio limpatela escreval ("----- Buscar Cadastrados -----") escreva ("Digite o nome para a busca: ") leia(nome) limpatela encontrou <- 0 para contador de 0 ate 4 faca se (usuario[contador]) = nome então escreval ("Nome: ", usuario[contador,0], "| Idade ", usuario[contador,1]) encontrou <-1 fimse fimpara se encontrou = 0 então escreval ("Usuário não encontrado") fimse leia (sr) fimprocedimento procedimento excluir() var nome : caractere encontra : inteiro contador : inteiro scont : inteiro scontd : inteiro aux : caracter inicio limpatela escreval ("----- Excluir Cadastrado -----") escreva ("Digite o nome para a Excluir; ") leia(nome) limpatela encontra <- 0 para contador de 0 ate 4 faca se (usuario[contador]) = nome então usuario[contador,0]:= "" usuario[contador,1]:= "" encontra <-1 escreval (" Usuario Excluido!") escreval ("Aperte qualquer tecla para voltar.") leia(sr) // A Reorganização acontece aqui se usuario[contador] = "" então para scont de contador+0 ate 4 faca para scontd de contador+0 ate 1 faca aux <- usuario[cont,contd] usuario[scont,scontd] <- usuario[scont+1,scontd+1] usuario[cont,contd+1] <- usuario[scont,scontd+1] usuario[cont+1,contd+1] <- aux fimpara fimpara fimse fimse fimpara

Alguém pode me ajudar a resolver esse raciocínio lógico que eu não estou conseguindo resolver, que é a implantação de um menu onde eu cadastro, listo, busco e excluo o usuário. e além de excluir o usuário, os posteriores tem que assumir a posição do que foi apagado. Algoritmo "Remover usuário da estrutura de arrays bidimensionais" procedimento menu () var op : caractere // Opções do menu fimproc : inteiro // Opção de sair do menu Inicio repita limpatela escreval ("********** Menu **********") escreval ("Digite o numero da opção desejada.") escreval ("") escreval ("1 - Cadastrar usuário") escreval ("2 - Listar") escreval ("3 - Buscar") escreval ("4 - Excluir") escreval ("5 - Sair") escreval ("") escreva ("Digite uma opção: ") leia(op) limpatela escolha(op) caso "1" cadastro() caso "2" listar() caso "3" buscar() caso "4" excluir() caso "5" fimproc <- 5 interrompa outrocaso Menu() fimescolha ate(fimproc = 5) fimprocedimento procedimento cadastro() var op: inteiro inicio limpatela escreval ("--------- Menu de cadastro ---------") escreva ("Nome: ") Leia (usuario[cont,contd]) contd := contd + 1 escreva ("Idade: ") leia (usuario[cont,contd]) cont := cont + 1 contd := contd - 1 fimprocedimento procedimento listar() var inicio para cont de 0 ate 4 faca escreva ("|Nome: ",Usuario[cont,0]) escreval (" - Idade: ",usuario[cont,1],"|") fimpara escreval("----------------------") escreva ("Digite qualquer tecla para sair.") leia (sr) fimprocedimento procedimento buscar(): caractere var nome : caractere encontrou : inteiro contador : inteiro inicio limpatela escreval ("----- Buscar Cadastrados -----") escreva ("Digite o nome para a busca: ") leia(nome) limpatela encontrou <- 0 para contador de 0 ate 4 faca se (usuario[contador]) = nome então escreval ("Nome: ", usuario[contador,0], "| Idade ", usuario[contador,1]) encontrou <-1 fimse fimpara se encontrou = 0 então escreval ("Usuário não encontrado") fimse leia (sr) fimprocedimento procedimento excluir() var nome : caractere encontra : inteiro contador : inteiro scont : inteiro scontd : inteiro aux : caracter inicio limpatela escreval ("----- Excluir Cadastrado -----") escreva ("Digite o nome para a Excluir; ") leia(nome) limpatela encontra <- 0 para contador de 0 ate 4 faca se (usuario[contador]) = nome então usuario[contador,0]:= "" usuario[contador,1]:= "" encontra <-1 escreval (" Usuario Excluido!") escreval ("Aperte qualquer tecla para voltar.") leia(sr) // A Reorganização acontece aqui se usuario[contador] = "" então para scont de contador+0 ate 4 faca para scontd de contador+0 ate 1 faca aux <- usuario[cont,contd] usuario[scont,scontd] <- usuario[scont+1,scontd+1] usuario[cont,contd+1] <- usuario[scont,scontd+1] usuario[cont+1,contd+1] <- aux fimpara fimpara fimse fimse fimpara

Prazer para todos. Fiz este exercício para calcular as calorias gastas em uma refeição. Entra com prato, bebida e sobremesa. O problema está em comparar as strings. O VisualG não aceita a comparação. Por exemplo, entro com a string carne, o programa diz: esperava encontrar então na linha se (prato = carne) então. Não há explicação possível para esse problema. Não sei onde está o erro, para mim, a lógica está correta. Obrigado. Algoritmo "semnome" // Disciplina : [Linguagem e Lógica de Programação] // Professor : // Descrição : Aqui você descreve o que o programa faz! (função) // Autor(a) : Nome do(a) aluno(a) // Data atual : 02/10/2017 Var // Seção de Declarações das variáveis cal1,cal2,cal3,p1,p2,p3,caltotal:inteiro prato,bebida,sobremesa:caractere Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Entre com o prato") leia (prato) escreval(prato) se (prato = carne) então cal1 <- 350 senão se (prato = peixe) então cal1 <- 230 senão se (prato = frango) então cal1 <- 250 senão cal <- 180 fimse fimse fimse escreval("Entre com a bebida") leia (bebida) se (bebida = cha) então cal2 <- 20 senão se (bebida = suco de laranja) então cal2 <- 100 senão se (bebida = suco de melao) então cal2 <- 100 senão se (bebida = refrigerante diet) então cal <- 65 fimse fimse fimse fimse escreval("Entre com a sobremesa") leia (sobremesa) se (sobremesa = abacaxi) então cal3<- 75 senão se (sobremesa = sorvete diet) então cal <- 110 senão se (sobremesa = mouse diet) então cal3 <- 170 senão se (sobremesa = mouse chocolate) então cal <- 200 fimse fimse fimse fimse senão escreval ("Opção inválida.") caltotal <- cal1 + cal2 + cal3 escreval("O prato escolhido foi: ",prato) escreval("A bebida escolhida foi: ",bebida) escreval("A sobremesa escolhida foi: ",sobremesa) escreval("O total de calorias é de: ",caltotal) Fimalgoritmo