Exercicios VisualG

roger.rep · 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

roger.rep · 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

Eisenheim · 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:/>

Gabrielm.Linassi · 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

aguimarsp · 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.

Entrar

Arquivado

Exercicios VisualG

Recommended Posts

roger.rep 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

roger.rep 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Eisenheim 67

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gabrielm.Linassi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

aguimarsp 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante