Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Algoritmo "Media_dos_alunos"
- Var
- vetnome: vetor [0..10] de caractere
- vetnota1: vetor [0..3] de real
- vetnota2: vetor [0..3] de real
- vetnota3: vetor [0..3] de real
- vetnota4: vetor [0..3] de real
- vetmedia1:vetor [0..1] de real
- vetmedia2: vetor [0..1] de real
- vetmedia3: vetor [0..1] de real
- vetmedia4: vetor [0..1] de real
- vetsoma: vetor[0..4] de real
- vetmedia: vetor [0..4] de real
- status: caractere
- i, N: inteiro
- soma, media: real
- Inicio
- soma <- 0
- escreva("Quantos alunos serão avaliados? ")
- leia(N)
- para i de 0 ate N - 1 faca
- escreval("Informe o nome do ",i + 1,"º aluno: ")
- leia(vetnome[i])
- escreva( "Informe a 1ª nota: " )
- leia(vetnota1[i])
- escreva("Informe a 2ª nota :" )
- leia(vetnota2[i])
- escreva("Informe a 3ª nota: " )
- leia(vetnota3[i])
- escreva("Informe a 4ª nota: " )
- leia(vetnota4[i])
- vetsoma[i] <- (soma + vetnota1[i] + vetnota2[i] + vetnota3[i] + vetnota4[i])
- vetmedia[i] <- vetsoma[i]/4
- fimpara
- para i de 0 ate N - 1 faca
- escreval(i + 1,"ºaluno(a): ",vetnome[i])
- escreval(" 1ª Nota: ",vetnota1[i])
- escreval(" 2ª Nota: ",vetnota2[i])
- escreval(" 3ª Nota: ",vetnota3[i])
- escreval(" 4ª Nota: ",vetnota4[i])
- escreval(" Média: ",vetmedia[i]: 2 : 2)
- se vetmedia[i] >= 6 entao
- status < - "Aprovado"
- senao
- se (vetmedia[i] < 6) e (vetmedia[i] >= 4) entao
- status < - "Exame"
- senao
- se vetmedia[i] < 4 entao
- status <- "Reprovado"
- fimse
- fimse
- fimse
- escreval(" Aluno(a) " , vetnome[i], " - Situação: ",status)
- fimpara
- Fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement