programaçao ajuda

[Diogo Pereiro]

ppl preciso d uma ajuda pa um trabalho,so me falta adicionar a nota minima de cada aluno,alguem m pode ajudar?urgente pff

Program matrizes;

Uses crt;

{ Calcular a média das notas de cada aluno e as médias das notas em cada disciplina }



Var

notas2 : array[1..10,1..5] of real;

media_aluno : array[1..10] of real;

media_disc : array[1..5] of real;

i, j : integer;

soma, media : real;

begin

{ preenche a matriz notas2, linha a linha (aluno) }



for i:= 1 to 10 do begin

for j:= 1 to 5 do begin

read(notas2[i,j]);

{ calculando as médias das notas dos alunos}

for i:= 1 to 10 do begin

soma := 0;

for j:= 1 to 5 do begin

soma := soma + notas2[i,j];

media := soma/5;

media_aluno := media;

end;

{ calculando as médias das notas em cada disciplina }

for j:= 1 to 5 do begin

soma := 0;

for i:= 1 to 10 do begin

soma := soma + notas2[i,j];

media := soma/10;

media_disc[j] := media;

end;

end;

end;

end;



{Imprimindo os resultados}

Writeln('Média das notas dos alunos:');

for i:= 1 to 10 do

writeln('Aluno[', i:2, '] = ', media_aluno:3:2);

writeln('Média das notas em cada disciplina:');

for j:= 1 to 5 do begin

writeln('Disciplina[', j:2, '] = ', media_disc[j]:3:2);

end;

end;

end.

 

[andmiguel]

mas queres que te façam o que? qual é a variavel nota minima?

 

[Diogo Pereiro]

nao faço ideia k n perebo nd isso e pra minha irma que anda a aprender programçao e pediu-me a ver se arranjava a saber,so precisa de adicionar a nota minima de cada aluno,tem ai a informaçao tda no site http://www.juliobattisti.com.br/tutoriais/acaciocosta/logicaalgoritmos005.asp

se puderes aceita-me no msn

 

[andmiguel]

for i:= 1 to 10 do begin
notamin = 20;
for j:= 1 to 5 do begin
read(notas2[i,j]); -> le as notas de cada aluno
if j < notamin then notamin = j; -> se a nota for menor fica essa
end;
notaminima=notamin; -> preenche uma colunoa com as notas minimas dos alunos
end;
end;


deve ser +- isto

 

[Superfast]

Var


notaminima: array[1..10] of real;

notaactual : real;


for i:= 1 to 10 do begin
notamin = 20;
for j:= 1 to 5 do begin
notaactual = notas2[i,j]; -> le as notas de cada aluno
if notaactual < notamin then notamin = notaactual ; -> se a nota for menor fica essa
end;
notaminima=notamin; -> preenche uma colunoa com as notas minimas dos alunos
end;
end;

 

[mccrow]

engraçado ... eu também preciso de limpar a casa ... alguem me ajuda []

 

[andmiguel]

citação:Originalmente colocada por mccrow

engraçado ... eu também preciso de limpar a casa ... alguem me ajuda []

vai ao totta! [}]



[8)]