Advertisement
LUCASM007

Untitled

Oct 21st, 2021
1,846
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Algoritmo "Media_dos_alunos"
  2.  
  3. Var
  4.                     vetnome: vetor [0..10] de caractere
  5.                     vetnota1: vetor [0..3] de real
  6.                     vetnota2: vetor [0..3] de real
  7.                     vetnota3: vetor [0..3] de real
  8.                     vetnota4: vetor [0..3] de real
  9.                     vetmedia1:vetor [0..1] de real
  10.                     vetmedia2: vetor [0..1] de real
  11.                     vetmedia3: vetor [0..1] de real
  12.                     vetmedia4: vetor [0..1] de real
  13.                     vetsoma: vetor[0..4] de  real
  14.                     vetmedia: vetor [0..4] de real
  15.                     status: caractere
  16.  
  17.                     i, N: inteiro
  18.                     soma, media: real
  19.  
  20. Inicio
  21.                       soma <- 0
  22.                       escreva("Quantos alunos serão avaliados? ")
  23.                       leia(N)
  24.                          para i de 0 ate N - 1 faca
  25.                          escreval("Informe o nome do ",i + 1,"º aluno: ")
  26.                          leia(vetnome[i])
  27.                          escreva( "Informe a 1ª nota: " )
  28.                          leia(vetnota1[i])
  29.                          escreva("Informe a 2ª nota :" )
  30.                          leia(vetnota2[i])
  31.                          escreva("Informe a 3ª nota: " )
  32.                          leia(vetnota3[i])
  33.                          escreva("Informe a 4ª nota: " )
  34.                          leia(vetnota4[i])
  35.                          vetsoma[i] <- (soma + vetnota1[i] + vetnota2[i] + vetnota3[i] + vetnota4[i])
  36.                          vetmedia[i] <- vetsoma[i]/4
  37.                       fimpara
  38.  
  39.                        para i de 0 ate N - 1 faca
  40.                             escreval(i + 1,"ºaluno(a): ",vetnome[i])
  41.                             escreval(" 1ª Nota: ",vetnota1[i])
  42.                             escreval(" 2ª Nota: ",vetnota2[i])
  43.                             escreval(" 3ª Nota: ",vetnota3[i])
  44.                             escreval(" 4ª Nota: ",vetnota4[i])
  45.                             escreval(" Média:  ",vetmedia[i]: 2 :  2)
  46.                                 se vetmedia[i] >= 6 entao
  47.                                 status < - "Aprovado"
  48.                                     senao
  49.                                     se (vetmedia[i] < 6) e (vetmedia[i] >= 4) entao
  50.                                     status < - "Exame"
  51.                                        senao
  52.                                        se vetmedia[i] < 4 entao
  53.                                        status <- "Reprovado"
  54.                                        fimse
  55.                                     fimse
  56.                                 fimse
  57.                             escreval(" Aluno(a) " , vetnome[i], " -  Situação: ",status)
  58.                        fimpara
  59.  
  60. Fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement