Média em Pascal
()
{Este programa calcula a medias de acordo com as notas dos alunos e diz
se ele foi aprovado ou reprovado.
By Let¡cia Castro - Aicitelks®
10 junho 2007
Baixe o cód. fonte aqui: http://www.4shared.com/file/RHjmKPPt/MEDIAS.html
}
program medias;
uses crt;
label inicio;
var
soma,media,nota:real;
nome:string;
cont:integer;
resp:char;
begin
inicio:
clrscr;
soma:=0;
cont:=0;
media:=0;
writeln('Entre c/ o nome do aluno: '); readln(nome);
writeln('Entre com as notas.');
writeln('Para cada nota digitada tecle [enter] duas vezes.');
writeln('Para sair digite [-] ');
repeat
readln(nota);
soma:=soma+nota;
cont:=cont+1;
until readkey='-';
begin
writeln;
media:=(media+soma)/cont;
if media < 6 then
writeln('O(A)aluno(a) ',nome,' est Reprovado(a).M‚dia: ',media:5:2)
else
writeln('O(A)aluno(a) ',nome,' est Aprovado(a).M‚dia: ',media:5:2);
end;
begin
writeln;
writeln('Deseja entrar com nome e notas de outro aluno?[s] ou [n]');
if readkey='s' then
goto inicio;
end;
end.
Resumos Relacionados
- Informática – Nível Médio Para Concursos
- Test
- Classificação Dos 20 ColÉgios Do PaÍs Com As Melhores Notas Do Enem 20
- Java
- Estimativa E Correcção Da Regressão à Média
|
|
