devair1010

@respostadealgoritmos o comando se senão funciona assim : se a comparação for verdadeira ele executa tudo que está entre o se e o senão ou fimse e ignora o que está entre o senão e o fimse; Então aí no seu código ele está executando o primeiro bloco porque a comparação é verdadeira e ignora o segundo bloco, e aí termina o programa. Agora para ver a quantidade de notas: Depois de pegar as notas de 50, você pega o resto que no seu código é r50 e se r50 for maior que zero divide por 20, para pegar a quantidade de notas de 20, e aí pega o resto dessa divisão e faz o mesmo com as outras notas de 10, 5, 2, 1 ; E você precisa colocar aquele comando int antes do (valor/50), isso para pegar só a parte inteira da divisão. E olha a indentação do código para ficar mais fácil de entender. Coloque o se senão e fimse na mesma coluna e dê dois espaços ou tab no começo das linhas dentro destes comandos. E quando colocar o comando ENTÃO escreva com letras maiúsculas e coloque til. porque quando você posta o código com o então minúsculo, aí a gente copia e cola ele no visualg, ele dá erro, no entanto se for maiúsculo e com TiL ele não dá erro.

@respostadealgoritmos parece que esse comando div não está funcionando. experimente colocar essa linha aqui depois do leia(valor).: n50<- int(valor/50)

@Learsodin como você sabe que a resolução nativa é 1920 x 1080p? Mas isso não importa, já que quando você coloca em 1920 x 1200p fica bom, então deixe assim mesmo.

@respostadealgoritmos Não sei se seu código vai funcionar certo, parece que precisa de mais algumas linhas e comandos. Mas para funcionar com o comando se, do jeito que você postou, precisa colocar alguns fimse. Apenas organizei ele melhor e coloquei alguns fimse, veja como ficou: Algoritmo "caixa" var n1,n2,n5,n10,n20,n50,valor:real inicio escreval("entre com o valor do saque:") leia(valor) se(valor>=50)ENTÃO n50<-int(valor/50) escreval("quantidade de notas: ",n50)//valor div 50) escreval("e sobrou R$",valor-n50*50) senao se(valor>=20)ENTÃO n20<- int(valor/20) escreval("quatidade de notas: ",n20)// div 20) senao se (valor>=10)ENTÃO n10<- valor/10 escreval("quatidade de notas: ",n10)// div 10) senao se(valor>=5)ENTÃO n5<-valor/5 escreval("quatidade de notas: ",n5)// div 5) senao se(valor>=2)ENTÃO n2<- valor/2 escreval("quatidade de notas: ",n2)// div 2) senao se(valor>=1)ENTÃO n1<- valor/1 escreval("quatidade de notas: ",n1)// div 1) fimse fimse fimse fimse fimse fimse fimalgoritmo ??? ¦++¤¤ªº«»

@QUduyebsadasd qual a marca dessa fonte. Pela foto não dá para ver o que está escrito.

@Caio Valadão Tem como você testar essas memorias em outro pc para ver se elas estão boas?

@Caio Valadão Sua memória é dois pentes de 2 gb cada? Se for então retire os dois pentes e limpe os contatos deles com uma borracha, depois coloque apenas um pente no slot 1, e ligue o pc e veja se funciona, se não funcionar retire este pente e coloque o outro e teste novamente.

@Caio Valadão informe qual a configuração do seu pc. placa-mãe, fonte, cpu, quantidade de memória. pelo que parece é a memória que está pifada.

@wallis144 Já testou ligar outro monitor no seu pc? Confira o cabo vga se está bem conectado.

@wallis144 como foi isso, o pc estava funcionando e de repente parou? está parecendo que é a fonte.

@gadnlino Você quer redefinir a variável para qual valor? Se for para ficar como no inicio coloque depois do fimenquanto, como no inicio prod:=1 se quiser redefinir para zero coloque prod:=0. agora se você quer que só escreva o valor de prod se ele for diferente de 0 ou 1 então coloque o escreva dentro de um se, depois do fimenquanto. se (prod<>0) e (prod<>1) então escreval("o Produto Dos Números ìmpares Digitados Foi ",prod) fimse

@doodoh não é na linha escolha opcao, é porque você esqueceu de colocar o inicio no procedimento calularmedia e no parouimpar, e também a variável m tem que ser declarada como real. procedimento calcularmedia(a,b:inteiro) inicio m:=(a+b)/2 escreval("Média: ",m) fimprocedimento

@GUNIT o que precisa é colocar os números no vetor em ordem crescente, então você pode ver no próprio visualg, na pasta exemplos, o algoritmo exemplo1, nele os loop j e k é que organiza os números em ordem crescente, então depois de inserir o número no vetor coloque esses dois loop, assim os números ficaram organizados.

@ET Bilu no inicio dentro loop l na hora de ler as notas coloque uma informação para o usuário saber o que fazer, assim: escreva(" Digite a ",l," nota do ",c," aluno ") leia(notas[c,l]) media[c,5]:=media[c,5]+notas[c,l] fimpara // L media[c,5]:=media[c,5]/l como a media para cada aluno é uma só, então pode usar uma coordenada fixa e o somatório também é um só então use uma coordenada fixa também para facilitar. coloque por exemplo : somatorio[1,5]<-somatorio[1,5]+media[c,5] e no final, antes do fimalgoritmo, para ver a media da classe pode colocar alguma coisa tipo isso: escreval(" Média Da Classe ",somatorio[1,5]/c

@sml1151 você que sabe, só acho que para se fazer um bom trabalho é preciso estar confortável.

@sml1151 melhor montar em cima de uma mesa ou bancada, para não prejudicar a coluna.

@sml1151 não , não precisa estar aterrado não.

@sml1151 Quando fui montar meu primeiro pc, também fiquei preocupado com essa tal estática ai fui em uma oficina e perguntei ao técnico sobre isso e ele respondeu debochando, disse que não existe energia estática. Mas se você está preocupado com isso, o que você pode fazer é segurar firme em alguma parte metálica do gabinete, toda vez que for manusear uma peça do pc, assim a energia estática será descarregada e não danificará a peça.

@RafaelLittleo mas é isso que estou dizendo, aqui ele manteve todos os cadastros e pesos e alturas, tanto no relatório como no monitoramento. no caso ai não sei o que está acontecendo. Você já copiou e colou o código que enviei, para testar.

@RafaelLittleo testei varias vezes e não vi ele substituir o último valor não, então coloquei esse vetor para armazenar o peso: peso : vetor [1..100] de real e no monitoramento no inicio depois de escreval ("ALTURA: ", alt[n]) coloque isso: escreval("Peso Anterior = ",peso[n]) e depois de ler o peso coloque: peso[n]:=p e no cadastro depois de ler o peso coloque: peso[t]:=p pois o último valor dado no monitoramento é o peso e com esse vetor pode-se ver que o valor se mantém.

@RafaelLittleo Aqui eu testei e está funcionando bem, está guardando todos os dados corretamente, pode ser que tenha ficado alguma variável para ser atualizada, vou mandar o seu código com as correções: Algoritmo "imc4" Var nome : vetor [1..100] de caractere m,n,t,x,y,op,k: inteiro alt : vetor [1..100] de real imc2 : vetor [1..100] de real procedimento "cadastro" var imc: real p : real inicio escreval (" CADASTRO") escreval ("___________________________________") escreval ("digite o nome do paciente: ") leia (nome[t]) escreval ("digite a altura do paciente: ") leia (alt[t]) escreval ("digite o peso do paciente: ") leia (p) imc:=p/(alt[t]*alt[t])//imc2[1,1]:=1 imc2[t] <- p/(alt[t]*alt[t]) k:=k+1 se k > 100 então escreval("Só pode cadstrar 100 pacientes") interrompa fimse escreval ("IMC: ", imc) se (imc<17) então escreval (" MUITO ABAIXO DO PESO.") fimse se (imc>17) e (imc< 18.49) então escreval ("ABAIXO DO PESO") fimse se (imc>18.50) e (imc<24.99) então escreval ("PESO NORMAL") fimse se (imc>25) e (imc<29.99)então escreval ("ACIMA DO PESO") fimse se (imc>30) e (imc<34.99)então escreval ("OBESIDADE 1") fimse se (imc>35) e (imc<39.99)então escreval ("OBESIDADE 2 (SEVERA)") fimse se (imc>40)então escreval ("OBESIDADE 3 (MÓRBIDA)") fimse escreval() t<-t + 1 fimprocedimento procedimento "monitoramento" var p: real inicio escreval (" MONITORAMENTO") para n de 1 ate t-1 faca //para m de 1 ate w-1 faca escreval ("_____________________________________") escreval ("NOME: ", nome[n]) escreval ("ALTURA: ", alt[n]) escreval ("O peso atual do paciente é: ") leia (p) escreval ("O imc atual é: ") imc2[n]<- p/(alt[n]*alt[n]) escreval ("IMC: ", imc2[n]) se (imc2[n]<17) então escreval (" MUITO ABAIXO DO PESO.") fimse se (imc2[n]>17) e (imc2[n]< 18.49) então escreval ("ABAIXO DO PESO") fimse se (imc2[n]>18.50) e (imc2[n]<24.99) então escreval ("PESO NORMAL") fimse se (imc2[n]>25) e (imc2[n]<29.99)então escreval ("ACIMA DO PESO") fimse se (imc2[n]>30) e (imc2[n]<34.99)então escreval ("OBESIDADE 1") fimse se (imc2[n]>35) e (imc2[n]<39.99)então escreval ("OBESIDADE 2 (SEVERA)") fimse se (imc2[n]>40)então escreval ("OBESIDADE 3 (MÓRBIDA)") fimse //fimpara fimpara fimprocedimento procedimento "relatorio" var linha, g,h: inteiro inicio escreval (" RELATÒRIO") escreval ("_________________________") escreval (" TABELA DE MONITORAMENTO") para y de 1 ate t-1 faca escreval("PacienTe ",nome[y]," Com IMC = ",imc2[y]:5:2) se g > 30 então escreval("Tecle Enter Para ProsseguiR") leia(g) limpatela fimse fimpara fimprocedimento procedimento "menu" inicio escreval ("___________________________") escreval ("1.CADASTRO DO PACIENTE") escreval ("2.MONITORAMENTO DO PACIENTE") escreval ("3.RELATÒRIO") escreval ("4.SAIR") escreval("____________________________") leia (op) se (op=1) então cadastro fimse se (op=2) então monitoramento fimse se (op=3) então relatorio fimse fimprocedimento Inicio m<-1 t<-1 n<-1 k:=1 enquanto (op<>4) faca menu fimenquanto se(op=4) então escreval ("FIM") fimse Fimalgoritmo

@RafaelLittleo esse vetor imc: vetor[1..5,1..5] de inteiro bidimensional não está dando certo não, melhor usar vetor normal e coloque assim: imc2: vetor [1..100] de real pois você já está usando a variável imc. E mude esse vetor em todo o código onde ele estiver como bidimensional. no cadastro coloque: imc:=p/(alt[t]*alt[t])//imc2[1,1]:=1 imc2[t] <- p/(alt[t]*alt[t]) no monitoramento coloque: imc2[n]<- p/(alt[n]*alt[n]) e em todos os SE também. no relatório coloque: para y de 1 ate t-1 faca //escreval (" ") escreval("PacienTe ",nome[y]," Com IMC = ",imc2[y]:5:2) g:=g+1 se g > 30 então escreval("Tecle Enter Para ProsseguiR") leia(g) g:=0 limpatela fimse fimpara o restante do código está certo

@RafaelLittleo no procedimento cadastro , o imc sendo uma matriz é preciso especificar as duas posições em que se deve guardar o valor. e no procedimento relatorio você colocou imc[n,m] mas seria imc[x,y].

@ET Bilu parece que você colocou o fimescolha dentro do repita nos casos 1 2 e 3, remova-os para que funcione certo.

@ET Bilu Este código ficou bom, está funcionando bem.