Criar um sistema onde deverá armazenar as quatro notas de determinada quantidade de alunos e

apresentar a média e status do aluno (APROVADO / REPROVADO).

OBS: Utilizar VETOR!

Download

Segue abaixo o Código Fonte   : Continue reading “Aula de Algoritmo (27/10/11)” →

[pascal]
Program VetorRegistro;

uses crt;

type registro = record

nome, endereco: string;
idade: integer;

end;

var
cliente : array[1..3] of registro;
i:integer;

Begin

writeln(‘Sistema de Leitura de Registros’);

for i:=1 to 2 do

begin
writeln;
writeln(‘Nome do Cliente [‘,i,’] :’);
read (cliente[i].nome);
writeln(‘Endereço do Cliente [‘,i,’] :’);
read (cliente[i].endereco);
writeln(‘Idade do Cliente [‘,i,’] :’);
read (cliente[i].idade);

end;

clrscr;

writeln(‘Sistema de Listagem de Registros’);

for i:=1 to 2 do

begin

writeln;
write(‘Nome do Cliente [‘,i,’] : ‘);
write (cliente[i].nome);
writeln;
write(‘Endereço do Cliente [‘,i,’] : ‘);
write (cliente[i].endereco);
writeln;
write(‘Idade do Cliente [‘,i,’] : ‘);
write (cliente[i].idade);
writeln;

end;
End.
[/pascal]

 

Apostila de Algoritmos