VisualG Resolução de Exercício no Visualg

Maique da Silva Araújo · 4 de maio de 2018

algoritmo "Média e comparação"
var
notas: vetor [1..10] de inteiro
x, maior_media, soma: inteiro
media: real
inicio
escreval("Digite as 10 notas: ")
para x de 1 ate 10 faca
leia(notas[x])
soma<- (em="" x="" notas="" soma="">)
media<- (10="" em="" soma="">)
fimpara
escreval("A Soma das notas é: ",soma)
escreval("A média das notas é: ",media)
escreval("Os valores maiores que a média são: ")
para i de 1 ate 10 faca
se(notas[x] > media) então
maior_media<- em="" x="" notas="">
escreval(maior_media)
fimse
fimpara
fimalgoritmo

Olá amigos, tendo em vista não ter domínio na linguagem do visualg, estou com um problema para executar esse algoritmo. Gostariam que me ajudassem a corrigi-lo

Simon Viegas · 4 de maio de 2018

Olá.

1#

@Maique da Silva Araújo, segue um código ajustado. No caso servir de referência.

algoritmo "Média e comparação"
var
   notas: vetor [1..10] de inteiro
   x, maior_media, soma: inteiro
   media: real
inicio
escreval("Digite as 10 notas: ")
para x de 1 ate 10 faca
   leia(notas[x])
   soma  <- soma + notas[x] //vai adicionando as notas
fimpara
media <- soma / 10 //media = total / quantidade (fica fora do laço, pois só precisa ser feito uma vez)
escreval("A Soma das notas é : ",soma)
escreval("A média das notas é: ",media)
escreva ("Os valores maiores que a média são: ") 
para x de 1 ate 10 faca
   se(notas[x] > media) ENTÃO //se nota maior que a média
      escreva (notas[x]," ") //escreve a nota, e dá um espaço (pois vai ficar um no lado da outra)
   fimse
fimpara
fimalgoritmo

2#

Segue código utilizando o conceito de ALEATÓRIO.

algoritmo "Média e comparação"
var
   notas: vetor [1..10] de inteiro
   x, maior_media, soma: inteiro
   media: real
inicio
escreval("Digite as 10 notas: ")
ALEATORIO 2,10 //gerar número entre 2 e 10 (inclusos)
para x de 1 ate 10 faca
   leia(notas[x]) //<---vai sortear um número a cada leia() encontrado (simula um usuário digitando o número)
   soma  <- soma + notas[x] //vai adicionando as notas
fimpara
ALEATORIO OFF //aqui delimita o fim, ou seja, o comando só vale para o que está entre os comandos ALEATORIO
media <- soma / 10 //media = total / quantidade
escreval("A Soma das notas é : ",soma)
escreval("A média das notas é: ",media)
escreva ("Os valores maiores que a média são: ")
para x de 1 ate 10 faca
   se(notas[x] > media) ENTÃO
      escreva (notas[x]," ")
   fimse
fimpara
fimalgoritmo

Não tem mistério... o comando ALEATÓRIO apenas faz o papel do usuário digitar... só funciona na parte que está entre o ALEAOTIORIO X, Y e ALEATORIO OFF.

***

No aguardo.