quarta-feira, junho 05, 2019

Correção Avaliação de Loop (for to do)

Ola meus padawans, o exercício é fácil e pratico. Não requer prática nem tão pouco habilidade, qualquer um de vocês pode fazer. :D



Program Mediadaetec;
var salas,contsalas,alunos,contalunos,contnotas:integer;
notas,mediaaluno,mediasala,mediaetec:real;
Begin
mediaaluno:=0;
mediasala:=0;
mediaetec:=0;

write('Quantas salas tem na Etec...:');
read(salas);

for contsalas:=1 to salas do
begin
write('Quantos alunos tem na ',contsalas,'ª sala?....:');
read(alunos);

for contalunos:=1 to alunos do
begin
writeln('Para o ',contalunos,'º Aluno digite as seguintes notas');

for contnotas:=1 to 5 do
begin
write(contnotas,'ª nota...:');
read(notas);
mediaaluno:=mediaaluno+notas;
end;

mediaaluno:=mediaaluno/5;

writeln('A média do ',contalunos,'º aluno é ',mediaaluno:2:2);
writeln(' ');

mediasala:=mediasala+mediaaluno;
mediaaluno:=0;
end;

mediasala:=mediasala/salas;

writeln ('A média da sala é ',mediasala:2:2);
writeln (' ');

mediaetec:=mediaetec+mediasala;
mediasala:=0;

end;

mediaetec:=mediaetec/salas;

write('A media da Etec é ',mediaetec:2:2);
readkey();
End.


Infelizmente ao copiar do compilador e colar o código aqui, o mesmo perde a identação, aí fiz na unha mesmo kkkk.

Fácil não é?!!! 
Qualquer dúvida me procurem na Etec ou mandem um e-mail para joao.sanches10@etec.sp.gov.br

Bons estudos meus padawans.


Nenhum comentário:

Postar um comentário