roger.rep 0 Denunciar post Postado Novembro 30, 2012 Olá pessoal, bom dia... Final de faculdade é complicado.. Larguei de mão e agora estou penando para aprender.. Alguém pode me ajudar em 6 exercicios de visualg? A lista tem mais de 20 consegui fazer os outros mas esses aqui estão complicados.. Muito obrigado galera... 15. Desenvolva um programa em VISUALG apresente os números múltiplos de 5 no intervalo de 20 a 100 e ao final apresente o total de números apresentados. 16. Desenvolva um programa em VISUALG para ler a idade de um conjunto de alunos do ensino fundamental e apresentar ao final a média das idades informadas. A condição de parada deverá ser quando informar idade = 0. 18. Desenvolva um programa em VISUALG para apresentar a maior e menor nota de uma turma de 30 alunos. Ao final o programa deverá informar o nome e a nota correspondente. 21. Desenvolva um programa em VISUALG para testar o resultado de um exame realizado, considerando os seguintes parâmetros: RESULTADO VALORES Normal ValorA deve ser maior que 1.5 e ValorB deve ser menor ou igual a 5.0; Deficiente ValorA deve ser menor que 1.5 e ValorB deve ser menor ou igual a 5.0 ou valorC deve ser menor que 0.5; Insuficiente ValorA deve ser maior que 1.5 e ValorC deve ser menor que 1 ou ValorB deve ser maior que 5.0; O programa deverá receber 3 valores e informar o resultado. Deve-se repetir o procedimento para 5 pacientes. 22. Desenvolva um programa em VISUALG para calcular a soma dos números pares no intervalo de 15 a 50. Ao final apresentar o resultado obtido, com a mensagem: “Valor total de números no intervalo de 15 a 50 e: “. 23. Desenvolva um programa em VISUALG para ler três notas de 10 alunos. Calcule sua média aritmética e ao final informe o conceito do aluno. Nota Conceito >= 9 A >=7 e < 9 B >=6 e < 7 C >=4 e < 6 D < 4 E Compartilhar este post Link para o post Compartilhar em outros sites
roger.rep 0 Denunciar post Postado Novembro 30, 2012 Pessoal. Já consegui fazer os outros.. só preciso agora do 15,16 e 18.. abraços 15 já foi... var a,resultado:inteiro inicio a<-4, repita resultado<-5*a escreva (resultado) a<- a+1 ate (resultado=100) // Seção de Comandos Compartilhar este post Link para o post Compartilhar em outros sites
Eisenheim 67 Denunciar post Postado Dezembro 3, 2012 Olá amigo, tudo bem? Vou postar a resolução de cada um separadamente para ficar mais organizado. Resolução do Exercício 15. algoritmo "Exec15" var i: inteiro inicio para i de 20 ate 100 faca Se ( i MOD 5 ) = 0 Entao Escreval( i, " é múltiplo de 5") Senao Escreval( i, " não é múltiplo de 5") FimSe fimpara fimalgoritmo Resolução do exercício 16: algoritmo "Exec16" var idade, soma, media, qtde: inteiro inicio Escreval("Entre com a idade do Aluno:") soma <- 0 qtde <- 0 media <- 0 repita Escreva("Idade: ") Leia( Idade ) Se idade > 0 Entao qtde <- qtde + 1 soma <- soma + idade FimSe ate idade = 0 media <- soma DIV qtde Escreva("A média das idades é: ", media) fimalgoritmo Até a próxima :thumbsup:/> Compartilhar este post Link para o post Compartilhar em outros sites
Gabrielm.Linassi 0 Denunciar post Postado Janeiro 11, 2015 Resposta da questão 23 Obs1. Talvez deixei o código muito grande, mas é porque sou um iniciante ainda. Estou arrecem aprendendo a programar. algoritmo "NotasAlunos" // Função : // Autor : // Data : 1/11/2015 // Seção de Declarações var A1, A2, A3: Inteiro B1, B2, B3: Inteiro C1, C2, C3: Inteiro D1, D2, D3: Inteiro E1, E2, E3: Inteiro F1, F2, F3: Inteiro G1, G2, G3: Inteiro H1, H2, H3: Inteiro I1, I2, I3: Inteiro J1, J2, J3: Inteiro inicio Escreval ("Quais são as três notas do 1° aluno?") Leia (A1, A2, A3) Escreval ("Quais são as três notas do 2° aluno?") Leia (B1, B2, B3) Escreval ("Quais são as três notas do 3° aluno?") Leia (C1, C2, C3) Escreval ("Quais são as três notas do 4° aluno?") Leia (D1, D2, D3) Escreval ("Quais são as três notas do 5° aluno?") Leia (E1, E2, E3) Escreval ("Quais são as três notas do 6° aluno?") Leia (F1, F2, F3) Escreval ("Quais são as três notas do 7° aluno?") Leia (G1, G2, G3) Escreval ("Quais são as três notas do 8° aluno?") Leia (H1, H2, H3) Escreval ("Quais são as três notas do 9° aluno?") Leia (I1, I2, I3) Escreval ("Quais são as três notas do 10° aluno?") Leia (J1, J2, J3) Escreval ("A média do 1° aluno é :", (A1+A2+A3)/3) Se ((A1+A2+A3)/3 >=9) entao Escreval ("O conceito do 1° aluno é A") entao fimse Se ((A1+A2+A3)/3 >=7) e ((A1+A2+A3)/3<9) entao Escreval ("O conceito do 1° aluno é B") fimse Se ((A1+A2+A3)/3 >=6) e ((A1+A2+A3)/3<7) entao Escreval ("O conceito do 1° aluno é C") fimse Se ((A1+A2+A3)/3 >=4) e ((A1+A2+A3)/3<6) entao Escreval ("O conceito do 1° aluno é D") fimse Se ((A1+A2+A3)/3 <4) entao Escreval ("O conceito do 1° aluno é E") fimse Escreval ("A média do 2° aluno é :", (B1+B2+B3)/3) Se ((B1+B2+B3)/3 >=9) entao Escreval ("O conceito do 2° aluno é A") entao fimse Se ((B1+B2+B3)/3 >=7) e ((B1+B2+B3)/3<9) entao Escreval ("O conceito do 2° aluno é B") fimse Se ((B1+B2+B3)/3 >=6) e ((B1+B2+B3)/3<7) entao Escreval ("O conceito do 2° aluno é C") fimse Se ((B1+B2+B3)/3 >=4) e ((B1+B2+B3)/3<6) entao Escreval ("O conceito do 2° aluno é D") fimse Se ((B1+B2+B3)/3 <4) entao Escreval ("O conceito do 2° aluno é E") fimse Escreval ("A média do 3° aluno é :", (C1+C2+C3)/3) Se ((C1+C2+C3)/3 >=9) entao Escreval ("O conceito do 3° aluno é A") entao fimse Se ((C1+C2+C3)/3 >=7) e ((C1+C2+C3)/3<9) entao Escreval ("O conceito do 3° aluno é B") fimse Se ((C1+C2+C3)/3 >=6) e ((C1+C2+C3)/3<7) entao Escreval ("O conceito do 3° aluno é C") fimse Se ((C1+C2+C3)/3 >=4) e ((C1+C2+C3)/3<6) entao Escreval ("O conceito do 3° aluno é D") fimse Se ((C1+C2+C3)/3 <4) entao Escreval ("O conceito do 3° aluno é E") fimse Escreval ("A média do 4° aluno é :", (D1+D2+D3)/3) Se ((D1+D2+D3)/3 >=9) entao Escreval ("O conceito do 4° aluno é A") entao fimse Se ((D1+D2+D3)/3 >=7) e ((D1+D2+D3)/3<9) entao Escreval ("O conceito do 4° aluno é B") fimse Se ((D1+D2+D3)/3 >=6) e ((D1+D2+D3)/3<7) entao Escreval ("O conceito do 4° aluno é C") fimse Se ((D1+D2+D3)/3 >=4) e ((D1+D2+D3)/3<6) entao Escreval ("O conceito do 4° aluno é D") fimse Se ((D1+D2+D3)/3 <4) entao Escreval ("O conceito do 4° aluno é E") fimse Escreval ("A média do 5° aluno é :", (E1+E2+E3)/3) Se ((E1+E2+E3)/3 >=9) entao Escreval ("O conceito do 5° aluno é A") entao fimse Se ((E1+E2+E3)/3 >=7) e ((E1+E2+E3)/3<9) entao Escreval ("O conceito do 5° aluno é B") fimse Se ((E1+E2+E3)/3 >=6) e ((E1+E2+E3)/3<7) entao Escreval ("O conceito do 5° aluno é C") fimse Se ((E1+E2+E3)/3 >=4) e ((E1+E2+E3)/3<6) entao Escreval ("O conceito do 5° aluno é D") fimse Se ((E1+E2+E3)/3 <4) entao Escreval ("O conceito do 5° aluno é E") fimse Escreval ("A média do 6° aluno é :", (F1+F2+F3)/3) Se ((F1+F2+F3)/3 >=9) entao Escreval ("O conceito do 6° aluno é A") entao fimse Se ((F1+F2+F3)/3 >=7) e ((F1+F2+F3)/3<9) entao Escreval ("O conceito do 6° aluno é B") fimse Se ((F1+F2+F3)/3 >=6) e ((F1+F2+F3)/3<7) entao Escreval ("O conceito do 6° aluno é C") fimse Se ((F1+F2+F3)/3 >=4) e ((F1+F2+F3)/3<6) entao Escreval ("O conceito do 6° aluno é D") fimse Se ((F1+F2+F3)/3 <4) entao Escreval ("O conceito do 6° aluno é E") fimse Escreval ("A média do 7° aluno é :", (G1+G2+G3)/3) Se ((G1+G2+G3)/3 >=9) entao Escreval ("O conceito do 7° aluno é A") entao fimse Se ((G1+G2+G3)/3 >=7) e ((G1+G2+G3)/3<9) entao Escreval ("O conceito do 7° aluno é B") fimse Se ((G1+G2+G3)/3 >=6) e ((G1+G2+G3)/3<7) entao Escreval ("O conceito do 7° aluno é C") fimse Se ((G1+G2+G3)/3 >=4) e ((G1+G2+G3)/3<6) entao Escreval ("O conceito do 7° aluno é D") fimse Se ((G1+G2+G3)/3 <4) entao Escreval ("O conceito do 7° aluno é E") fimse Escreval ("A média do 8° aluno é :", (H1+H2+H3)/3) Se ((H1+H2+H3)/3 >=9) entao Escreval ("O conceito do 8° aluno é A") entao fimse Se ((H1+H2+H3)/3 >=7) e ((H1+H2+H3)/3<9) entao Escreval ("O conceito do 8° aluno é B") fimse Se ((H1+H2+H3)/3 >=6) e ((H1+H2+H3)/3<7) entao Escreval ("O conceito do 8° aluno é C") fimse Se ((H1+H2+H3)/3 >=4) e ((H1+H2+H3)/3<6) entao Escreval ("O conceito do 8° aluno é D") fimse Se ((H1+H2+H3)/3 <4) entao Escreval ("O conceito do 8° aluno é E") fimse Escreval ("A média do 9° aluno é :", (I1+I2+I3)/3) Se ((I1+I2+I3)/3 >=9) entao Escreval ("O conceito do 9° aluno é A") entao fimse Se ((I1+I2+I3)/3 >=7) e ((I1+I2+I3)/3<9) entao Escreval ("O conceito do 9° aluno é B") fimse Se ((I1+I2+I3)/3 >=6) e ((I1+I2+I3)/3<7) entao Escreval ("O conceito do 9° aluno é C") fimse Se ((I1+I2+I3)/3 >=4) e ((I1+I2+I3)/3<6) entao Escreval ("O conceito do 9° aluno é D") fimse Se ((I1+I2+I3)/3 <4) entao Escreval ("O conceito do 9° aluno é E") fimse Escreval ("A média do 10° aluno é :", (J1+J2+J3)/3) Se ((J1+J2+J3)/3 >=9) entao Escreval ("O conceito do 10° aluno é A") entao fimse Se ((J1+J2+J3)/3 >=7) e ((J1+J2+J3)/3<9) entao Escreval ("O conceito do 10° aluno é B") fimse Se ((J1+J2+J3)/3 >=6) e ((J1+J2+J3)/3<7) entao Escreval ("O conceito do 10° aluno é C") fimse Se ((J1+J2+J3)/3 >=4) e ((J1+J2+J3)/3<6) entao Escreval ("O conceito do 10° aluno é D") fimse Se ((J1+J2+J3)/3 <4) entao Escreval ("O conceito do 10° aluno é E") fimse Fimalgoritmo Compartilhar este post Link para o post Compartilhar em outros sites
aguimarsp 0 Denunciar post Postado Janeiro 25, 2016 Desenterrando o tópico. Resposta do exercício 21: algoritmo "ResultadoExame" var ValorA, ValorB, ValorC: Real inicio EscrevaL ("") EscrevaL ("--------------------------------") EscrevaL ("RESULTADO EXAMES") Escreva ("Qual o resultado do exame A? ") Leia (ValorA) Escreva ("Qual o resultado do exame B? ") Leia (ValorB) Escreva ("Qual o resultado do exame C? ") Leia (ValorC) // TESTE DOS RESULTADOS // Para resultado NORMAL Se ((ValorA > 1.5) e (ValorB <= 5.0)) entao EscrevaL ("Resultado: NORMAL") SeNao //Para resultado DEFICIENTE Se ((ValorA < 1.5) e (ValorB <= 5.0) e (ValorC < 0.5) entao EscrevaL ("Resultado: DIFICIENTE") SeNao //Para resultado INSUFICIENTE Se (((ValorA > 1.5) e (ValorC < 1)) ou (ValorB > 5.0)) entao EscrevaL ("Resultado: INSUFUCIENTE") SeNao EscrevaL ("Dados errados, informe os resultados novamente") FimSe FimSe FimSe EscrevaL ("") EscrevaL ("-----------------------") EscrevaL ("Fim do resultado, obrigado!") fimalgoritmo Se houver alguma dica ou sugestão no código acima será bem vida para sanar dúvidas de quem está começando em algoritmos. Compartilhar este post Link para o post Compartilhar em outros sites
