algoritimo resolução de exércicio (média de provas)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

// Descrição : matriz 3x3(soma das linhas[i])
// Autor(a) : surf_06
// Data atual : 25/7/2020
Var
// Seção de Declarações das variáveis 
numeros: vetor[1..3, 1..3] de inteiro
i, j: inteiro
soma: inteiro
Inicio
 para i de 1 ate 3 faca
 para j de 1 ate 3 faca
 escreva("digite um valor para a posiçao [", i, ",", j, "]: ")
 leia(numeros [i, j])
 fimpara
 fimpara
 para i de 1 ate 3 faca
 soma<-0
 para j de 1 ate 3 faca
 soma <- soma+numeros[i, j]
 fimpara
 escreval ("soma linha ", i, ": ", soma)
 fimpara .
Fimalgoritmo
/////////////////////////////////////////////////////
Algoritmo "se par_ou_impar"
// 
// 
// Descrição : se par_ou_impar
// Autor(a) : hamilton_surf
// Data atual : 28/7/2020
Var
 num: inteiro
Inicio
 funcao epar(n:inteiro):caracter
 inicio
 se ((n mod 2) = 0) entao
 retorne "par"
 senao
 retorne "impar"
 fimse
 fimfuncao
 
 escreva ("digite um numero: ")
 leia (num)
 escreva ("o numero", num, "e: ", epar(num))
Fimalgoritmo
////////////////////////////////////////////////////
Algoritmo "informa quadrado"
// 
// 
// Descrição : informa quadrado
// Autor(a) : hamilton_surf
// Data atual : 28/7/2020
Var
 num: inteiro
Inicio
 funcao quadrado (a:inteiro) : real
 inicio
 retorne a*a;
 fimfuncao
 
 escreva ("informe um numero inteiro: ")
 leia (num)
 escreva ("o quadrado de", num, "e: ", quadrado(num))
Fimalgoritmo
//////////////////////////////////////////////////////
Algoritmo "media_notas"
var
vetor: 
media : real
inicio
escreval ("Digite a 1ª Nota")
leia (nota_1)
escreval ("Digite a 2ª Nota")
leia (nota_2)
escreval ("Digite a 3ª Nota")
leia (nota_3)
media <- (nota_1 + nota_2 +nota_3)/3
se media >=7 entao
escreval ("Aluno Aprovado média = ", media)
senao
escreval ("Aluno Reprovado média = ",media)
fimse
Fimalgoritmo
/////////////////////////////////////////////////
/////////////////////////////////////////////////
/////////////////////////////////////////////////
Algoritmo "media_notas"
var
 n: vetor[0..2] de real
 i: inteiro
 media :real
inicio
 para i de 0 ate 2 faca
 escreva ("digite a primeira nota: ")
 leia (n[i])
 
 fimpara
 MEDIA <- (n[0]+n[1]+n[2])/3
 
 se media >=7 entao
 escreva ("aprovado")
 senao
 escreva ("reprovado")
 fimse
Fimalgoritmo