Programação

Program TrabalhoNotas; Const media = 6; Type (Criação do Tipo de Vetor String) vetstring = Array[1..5] of string; (Criação do tipo de vetor real) vetreal = Array[1..5] of real;

Var (Variável que guarda os nomes dos alunos, do tipo vetstring) aluno : vetstring; (Variável que guarda as notas 1 dos alunos, do tipo vetreal) nota1 : vetreal; (Variável que guarda as notas 2 dos alunos, do tipo vetreal) nota2 : vetreal; (Variável que vai receber o parâmetro da consulta (nome do aluno)) consulta : string; (Variável cont utilizada para controle das repetições e variável saída, utilizada para sair da consulta) cont,saida : integer; (Variável que será utilizada para cálculo da média do aluno) mediaAluno : real; Begin (Repete 5 vezes o cadastro de alunos, para cadastrar 5 alunos) For cont := 1 to 5 DO Begin (Solicita o nome do aluno na posição desejada (cont)) Writeln('Informe o NOME do Aluno ', cont); (Lê o nome do aluno e armazena na posição atual) Read(aluno[cont]); (Solicita a nota 1 do aluno na posição desejada (cont)) Writeln('Informe a NOTA 1 do Aluno ',cont); (Lê a nota 1 do aluno e armazena na posição atual) Read(nota1[cont]); (Solicita a nota 2 do aluno na posição desejada (cont)) Writeln('Informe a NOTA 2 do Aluno ',cont); (Lê a nota 2 do aluno e armazena na posição atual) Read(nota2[cont]); End; (Percorre o Vetor e compara o nome com o argumento informado na consulta) Repeat (Recebe o nome do aluno para consultar) Writeln('Informar o nome do aluno para consultar.'); Read(consulta); (Zera a variável de controle para entrar na estrutura de repetição) cont:=0; Repeat (Incrementa a variável de controle ) cont:=cont+1; (Se