Luiz Campos

Eu estou desenvolvendo um trabalho: um gerenciador de pacientes. Ele deve gerenciar e armazenar dados de 10 pacientes, porém ele está tendo o erro de "Esperava encontrar então" na última opção. Se não for este erro ele acaba entrando em loop e não voltando para o menu. tipo paciente=registro idade : real nome : caractere sexo : caractere cpf : caractere telefone : caractere endereco : caractere status : caractere anotacao : caractere relatorio : caractere fimregistro var opcao : inteiro cadastro : vetor[1..10] de paciente c : inteiro i : inteiro a1,a2,a3,a4,a5 : inteiro pacientes : caractere situacao : caractere procedimentos : caractere relatorio : caractere fechar : caractere inicio repita escreval("cadastro de pacientes") escreval("1 - Pacientes ") escreval("2 - Situação ") escreval("3 - Procedimentos ") escreval("4 - Relatórios ") escreval("5 - Fechar sistema ") escreval("Opção: ") leia(opcao) limpatela se opcao="1" entao i<-i+1 escreval("preencha os campos requisitados") escreva("nome: ") leia (cadastro.nome[i]) escreva("cpf: ") leia (cadastro.cpf[i]) escreva("idade: ") leia (cadastro.idade[i]) escreva("sexo: ") leia (cadastro.sexo[i]) escreva("telefone: ") leia (cadastro.telefone[i]) escreva("endereço: ") leia (cadastro.endereco[i]) leia (cadastro.anotacao[i]) escreva("relatorio: ") leia (cadastro.relatorio[i]) limpatela leia (cadastro.relatorio[i]) fimse se opcao="2" entao i<-i+1 escreval("situação do paciente: ") leia (situacao) fimse se opcao="3" entao i<-i+1 escreval("procedimentos") leia (procedimentos) fimse se opcao="4" entao i<-i+1 escreval("relatório") leia (relatorio) fimse escreval se op <> "5" entao escreva(" Tecle Enter para Voltar ao Menu") leia(continuar) senao escreval(" Saindo Do Programa . . . !") fimse ate op = "5" fimAlgoritmo

Minha placa-mãe é uma H110M-CS/BR e eu quero comprar uma memória RAM de 32gb, provavelmente 2x pentes de 2666hz.. Mas queria saber uma memoria compatível Especificações: Memória 2 x DIMM, máximo de 32GB, DDR4 2400/2133 MHz Non-ECC, Un-buffered Arquitetura de memória: Dois canais Suporta Intel® Extreme Memory Profile (XMP) * Consulte www.ASUS.com.br ou o manual do usuário para a lista de vendedores qualificados de memória. * A frequência de memória máxima suportada varia de acordo com o processador. * Devido à limitação do chipset Intel®, os módulos de memória DDR4 2133MHz e superior no modo XMP serão executados com a taxa de transferência máxima de DDR4 2133Mhz.

Compreendo, estou de acordo com o que você disse, então sim, estou tentando simplificar ao máximo

Entendo, agradeço a ajuda de ambos, percebi por agora que sua foto també é de um lançamento, incrível

@kginmas dessa forma seria possível ainda que eu trabalhasse com informações como o@devair1010explicou no código acima?

@devair1010 Obrigado, eu realmente agradeço, passei uma noite quebrando a cabeça, tentei até mesmo usar esse procedimento mas como estou aprendendo por agora não tenho tanta noção, agradeço mesmo, estive lendo o código e pode ter certeza de que isso irá me ajudar e irei aplicar em meus estudos

Estou utilizando o programa Visualg - sou iniciante na programação Eu estou concluindo um projeto, porém eu gostaria que ao final de cada processo ele me desse a escolha de voltar ao menu inicial, isso seria possível de alguma forma? Eu tentei repetir o menu com escolhas ao final de cada procedimento, mas ele sempre dava algum erro como por exemplo pular diretamente para outra opção e não voltar ao menu. var //variáveis login user:caractere dia,mes,ano:inteiro //variáveis do menu op:caractere //variáveis cálculo imc imc, peso, altura, pesoideal:real idade, ano_nas:inteiro nome:caractere //variáveis soma de 4 números total, n1,n2,n3,n4:real //variáveis celcius para far celsius, far : real //variáveis para cotação valorCompra:real cotacao:real valorReais:real cliente:caractere escolher:inteiro //reiniciar reiniciar:caractere comando:caractere inicio //login escreva("Usuário:") leia(user) escreval("") escreval("Insira a data de hoje exemplo: 01/01/2022: ") escreva("Insira o dia atual:") leia(dia) escreva("Insira o mês atual:") leia(mes) escreva("Insira o ano atual:") leia(ano) limpatela() //--------------------------------------------------------------------------- //menu de opções escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".") escreval("") escreval("") escreval("Escolha alguma das opções abaixo!") escreval("") escreval("A - CÁLCULAR IMC----------------------") escreval("B - CÁLCULAR NÚMEROS------------------") escreval("C - CONVERTER CELSIUS PARA FAHREINHEIT") escreval("D - SISTEMA COTAÇÃO-------------------") escreval("E - FECHAR SISTEMA--------------------") leia(op) limpatela() //--------------------------------------------------------------------------- //comandos cálculo imc se op="A" entao escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".") escreval("Vamos abrir uma nova ficha para seu paciente:") escreval("") escreva("Insira o nome de seu(a) paciente:") leia(nome) escreva("Insira a altura de seu(a) paciente:") leia(altura) escreva("Insira o peso de seu(a) paciente:") leia(peso) escreva("Insira a data de nascimento de seu(a) paciente:") leia(ano_nas) limpatela() idade <- ano - ano_nas pesoideal<-(72.2*altura)-58 imc <- peso / (altura*altura) //resultados imc escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".") escreval("") //abaixo do peso se (imc<18) entao escreval("Veja abaixo os resultados de seu paciente:") escreval("nome:" ,nome) escreval("Idade:", idade) escreval("") escreval("sua altura atual é: m", altura) escreval("seu peso atual é: kg", peso) escreval("seu peso ideal é: kg" , pesoideal) escreval("") escreval("você está abaixo do seu peso ideal, seu imc é:" ,imc) fimse //dentro do peso ideal se (imc>=18) e (imc<25) entao escreval("Veja abaixo os resultados de seu paciente:") escreval("nome:" ,nome) escreval("Idade:", idade) escreval("") escreval("sua altura atual é: m", altura) escreval("seu peso atual é: kg", peso) escreval("seu peso ideal é: kg" , pesoideal) escreval("") escreval("você está dentro do seu peso ideal, seu imc é:" ,imc) fimse //acima do peso se (imc>=25) entao escreval("Veja abaixo os resultados de seu paciente:") escreval("nome:" ,nome) escreval("Idade:", idade) escreval("") escreval("sua altura atual é: m", altura) escreval("seu peso atual é: kg", peso) escreval("seu peso ideal é: kg" , pesoideal) escreval("") escreval("você está acima do seu peso ideal, seu imc é:" ,imc) fimse fimse //comandos cálcular números se op="B" entao escreval("Bem-vindo(a)", user, "insira alguns números para serem calculados") escreval("") escreva("digite o primeiro número:") leia(n1) escreva("digite o segundo número:") leia(n2) escreva("digite o terceiro número:") leia(n3) escreva("digite o último número:") leia(n4) limpatela() total<-(n1+n2+n3+n4) escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".") escreval("") escreval("Veja o resultado abaixo") escreva("A soma total dos números escolhidos é de:", total) fimse //comandos celsius para far se op="C" entao escreval("Digite um valor para converter") leia(celsius) far<-(9 * celsius/5)+32 limpatela() escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".") escreval("") escreval("Dê uma olhada nos resultados:") escreval("O valor em Celsius é:", celsius) escreval("O valor em Fahrenheit é:",far) fimse //cotação dólar se op="D" entao escreval("[ SEJA BEM-VINDO(A) AO SISTEMA DE CÂMBIOS ]") escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".") escreval("Insira o nome do cliente:") leia(cliente) limpatela() escreval("Operador ", user, " Cliente:", cliente,".") escreval("") escreval("Escolha alguma das opções abaixo!") escreval("") escreval("1 - Dólar para Reais") leia(escolher) limpatela() se escolher="1" entao escreva("Informe o valor da sua compra em: $") leia(valorCompra) escreva("Informe a cotação do dia em: $") leia(cotacao) valorReais := valorCompra*cotacao limpatela() escreval("Operador ", user, " Cliente:", cliente,".") escreval("Veja os seus resultados abaixo") escreval("") escreval("Valor a ser comprado em: $", valorCompra) escreval("Cotação do dia: ", cotacao) escreval("O valor da sua compra convertido é de: R$", valorReais) fimse fimse fimalgoritmo

@kgin agradeço, realmente me ajudou!!

Olá, estou fazendo um trabalho para meu curso de desenvolvimento de sistemas, e fui fazer a famosa "invenção de moda" e tentar me aprofundar mais, porém quando executo o meu código ele diz que não pode encontrar o Fimalgoritimo, sendo que ele já se encontra no código Algoritmo "menu de atividades" // Disciplina : Desenvolvimento de sistemas // Professor : Wesley // Descrição : Aqui você descreve o que o programa faz! (função) // Autor(a) : Luiz Gustavo Marques Campos // Data atual : 12/03/2022 Var //variáveis do menu op:caractere //variáveis cálculo imc imc, peso, altura:real nome:caractere //variáveis soma de 4 números total, n1,n2,n3,n4:real Inicio //menu de opções escreval() escreval("*** MENU ***") escreval("A -CÁLCULO IMC") escreval("B -CÁLCULAR NÚMEROS") escreval("opcao inexistente") escreval("opcao inexistente") leia(op) escolha(op) limpatela() //comandos cálculo imc escolha op="A" escreva("digite seu nome:") leia(nome) escreva("digite a sua altura:") leia(altura) escreva("digite o seu peso:") leia(peso) limpatela() imc <- peso / (altura*altura) fimescolha escreval("Olá " ,nome) se (imc<18) entao escreva("você está abaixo do seu peso ideal, seu imc é:" ,imc) fimse se (imc>=18) e (imc<25) entao escreva("você está dentro do seu peso ideal, seu imc é:" ,imc) fimse se (imc>=25) entao escreva("você está acima do seu peso ideal, seu imc é:" ,imc) fimse //comandos cálcular números escolha op="B" escreval("Bem-vindo(a), insira alguns números para serem calculados") escreva("digite o primeiro número") leia(n1) escreva("digite o segundo número") leia(n2) escreva("digite o terceiro número") leia(n3) escreva("digite o último número") leia(n4) limpatela() total<-(n1+n2+n3+n4) fimescolha escreva("A soma total dos números escolhidos é de:", total) Fimalgoritmo