AULA PRÁTICA 6

Prévia do material em texto

AULA PRÁTICA 6 29/09/2008
Aluna: Ana Carolina Arantes Araújo Turma: A1
Estruturas de Repetição
Exercício 1:
Exercício 2:
Exercício 3:
Exercício 4:
Exercício 5:
Exercício 6:
program turmas;
var t: integer; {contador}
 nalunos: integer; {numero de alunos matriculados na turma}
 turma: char; {letra que identifica a cad turma = A,B,C,D e E}
 i: integer; {contador}
 numerom: integer; {numero de matricula que identifica cada aluno, no caso,com apenas 3 digitos}
 situacao: char; {A para alunos ausentes e P para alunos presentes}
 ausentes: integer; {contador}
 pa: real; {porcentagem de alunos ausentes}
 s: integer; {contador}
begin
t:= 0;
i:= 0;
pa:= 0;
s:= 0;
 for t:= 1 to 5 do
 begin
 writeln('Digite a letra que identifica a turma A,B,C,D ou E e o numero de alunos matriculados');
 readln(turma);
 readln(nalunos);
 writeln('Digite o numero de matricula e a situação de cada aluno da turma, A para ausentes e P para presentes');
 ausentes:= 0;
 for i:= 1 to nalunos do
 begin
 readln(numerom);
 readln(situacao);
 if situacao = 'A' then ausentes:= ausentes + 1;
 end;
 pa:= ausentes/nalunos*100;
 writeln('Turma ',turma);
 writeln('Alunos Ausentes = ',pa:0:2,'%');
 if pa > 5 then s:= s + 1;
 writeln;
 end;
writeln('Numero de turmas que tiveram porcentagem de ausentes maior do que 5 = ',s);
end.