VisualG Média aritmética dentro de um vetor

[hadagi]

Oi gente,

gostaria de ajuda num exercitório de algoritmo a seguir:

Faça um algoritmo que entre com os nomes de três alunos e, a seguir, as suas notas em duas provas realizadas. Os três dados por aluno (nome, nota1 e nota2) devem ser digitados pelo usuário do programa. Finalmente, escreva na tela o nome de cada aluno e a média aritmética obtida.

não consegui calcular a media de cada aluno.

minha tentativa:

algoritmo "semnome"
// Função :
// Autor :
// Data : 13/04/2013
// Seção de Declarações 
var
nomes: vetor [1..3] de caracter
notas: vetor[1..2] de real
i,j: inteiro
ma, soma: real
inicio
// Seção de Comandos 
para i <- 1 ate 3 faca
escreval("Digite o nome do aluno")
leia(nomes[i])
fimpara

para j <- 1 ate 2 faca
escreval("Digite as notas do aluno")
leia(notas[j])
soma <- ma + (notas[1,j])
ma <- soma/2
fimpara
  escreval("A media aritmetica é: ",ma)
fimalgoritmo

 

[hadagi]

Pode ser resolvido sem a necessidade de criar um vetor com a seguinte forma:

var
nome: literal
n1, n2, media: real
i: inteiro
inicio
    Para i <- 1 ate 3 Faca
Escreval ("Digite o nome do ", i, " aluno: ")
 Leia (nome)
Escreval ("Digite a primeira nota")
 Leia (n1)
Escreval ("Digite a segunda nota")
 Leia (n2)
media <- (n1 + n2) / 2
Escreval ("O aluno ", nome, " Obteve a média ", media)
  Fimpara
     fimalgoritmo

 

[Sylvano DA Silva]

Resolvi o meu dessa forma:

Var
// Seção de Declarações das variáveis 
nome : caracter
nota : vetor [1..3] de real
i,y : real
media,mf :real
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 
escreval("Digite o nome do aluno:")
leia(nome)
//repetiçao pegando as notas e colocando no vetor
para i <- 1 ate 3 faca
escreval("Digite a nota",i)
leia(nota[i])
fimpara
//calcula as notas do vetor
para y <- 1 ate 3 faca
media <- media+nota[y]
fimpara
//calcula a média
mf <- media/3
//faz a condiçao
se mf >= 60 então
//imprime
escreva("Aluno ",nome," ficou com média ",mf," foi Aprovado!")
//faz segunda condição
senao se mf < 60 então
//imprime
escreva("Aluno ",nome," ficou com média ",mf," foi Reprovado!")
fimse
Fimalgoritmo

 

[Simon Viegas]

Olá a todos.

 

1)  UTILIZEM A TAG CODE PARA POSTAR CÓDIGOS

IMPORTANTE: Ao postar um código, é necessário o uso da tag CODE. Veja mais informações no tópico em destaque:

 

Poste seus códigos corretamente!

 

 

 

2) REQUISITOS DO SISTEMA

Em 13/04/2013 às 18:55, hadagi disse:

Faça um algoritmo que entre com os nomes de três alunos e, a seguir, as suas notas em duas provas realizadas. Os três dados por aluno (nome, nota1 e nota2) devem ser digitados pelo usuário do programa. Finalmente, escreva na tela o nome de cada aluno e a média aritmética obtida.

não consegui calcular a media de cada aluno.

 

Creio que o enunciado sugere que os nomes e as 3 notas de cada aluno devam ser lidos primeiro, para depois calcular e exibir os resultados. Se for assim, da forma que vocês fizeram não vão servir, pois ao ler os dados de um aluno, vocês já estão exibindo a sua média.

 

 

 

***

 

No aguardo.

 

[Sylvano DA Silva]

7 horas atrás, Simon Viegas disse:

Olá a todos.

 

1)  UTILIZEM A TAG CODE PARA POSTAR CÓDIGOS

IMPORTANTE: Ao postar um código, é necessário o uso da tag CODE. Veja mais informações no tópico em destaque:

 

Poste seus códigos corretamente!

 

 

 

2) REQUISITOS DO SISTEMA

 

Creio que o enunciado sugere que os nomes e as 3 notas de cada aluno devam ser lidos primeiro, para depois calcular e exibir os resultados. Se for assim, da forma que vocês fizeram não vão servir, pois ao ler os dados de um aluno, vocês já estão exibindo a sua média.

 

 

 

***

 

No aguardo.

   

// Data atual  : 30/10/2017
Var
// Seção de Declarações das variáveis 
nomes : vetor [1..3] de caracter
notas : vetor [1..2] de inteiro
i,a1,a2,a3,c1,c2,c3: inteiro
s1,s2,s3 : real

Inicio
    //recebe o nome dos alunos
    para i<-1 ate 3 faca
      escreval("Digite o nome do aluno",i)
      leia(nomes[i])
    fimpara
      //for para pegar o aluno 1 e setar as notas
      para a1<-1 ate 2 faca
        escreval("Digite a nota ",a1," do aluno ",nomes[1])
        //armazena a nota no vetor
        leia(notas[a1])
        //calcula a media aluno 1
        c1<-c1+notas[a1]
        s1 <-c1/2
      fimpara
      //imprime
      escreval("Média:",s1)
         //for para pegar o aluno 2 e setar as notas
         para a2<-1 ate 2 faca
           escreval("Digite a nota ",a2," do aluno ",nomes[2])
           leia(notas[a2])
           //calcula a media aluno 2
           c2<-c2+notas[a2]
           s2 <-c2/2
         fimpara
         //imprime
         escreval("Média:",s2)
            //for para pegar o aluno 3 e setar as notas
            para a3<-1 ate 2 faca
            escreval("Digite a nota ",a3," do aluno ",nomes[3])
            leia(notas[a3])
            //calcula a media aluno 3
            c3<-c1+notas[a3]
            s3 <-c3/2
         fimpara
         //imprime
         escreval("Média:",s3)
Fimalgoritmo

 Fiz com 2 notas é só alterar o tamanho do vetor e o calculo da media