Preciso passar este código em visualG para o portugol. Alguma dica sobre isso?
Me dêem um norte, para que eu possa adaptar.
algoritmo "VerificarSituaçãoAlunos"
var
alunos: vetor[1..3] de caractere
notas: matriz[1..3, 1..4] de real
medias: vetor[1..3] de real
situacao: vetor[1..3] de caractere
// Função para imprimir uma linha de separação
funcao ImprimirLinhaSeparacao()
escreval("----------------------------------------")
fim funcao
// Função para imprimir o relatório do aluno
funcao ImprimirRelatorioAluno(aluno: caractere, notas: vetor[1..4] de real, media: real, situacao: caractere)
escreval("Aluno: ", aluno)
escreval("Notas: ")
para i de 1 ate 4 faca
escreva(notas[i], " ")
fim para
escreval("Média: ", media)
escreval("Situação: ", situacao)
escreval("")
fim funcao
// Função para calcular a média das notas de um aluno
funcao CalcularMedia(notas: vetor[1..4] de real) : real
soma := 0
para i de 1 ate 4 faca
soma := soma + notas[i]
fim para
media := soma / 4
retorne media
fim funcao
inicio
// Entrada de dados
para i de 1 ate 3 faca
escreva("Digite o nome do aluno ", i, ": ")
leia(alunos[i])
para j de 1 ate 4 faca
escreva("Digite a nota ", j, " do aluno ", i, ": ")
leia(notas[i, j])
fim para
fim para
// Processamento e impressão do relatório
para i de 1 ate 3 faca
medias[i] := CalcularMedia(notas[i])
se medias[i] >= 7 então
situacao[i] := "Aprovado"
senao
situacao[i] := "Reprovado"
fim se
ImprimirLinhaSeparacao()
ImprimirRelatorioAluno(alunos[i], notas[i], medias[i], situacao[i])
fim para
fimalgoritmo