Anúncio

Collapse
No announcement yet.

programaçao ajuda

Collapse

Ads nos topicos Mobile

Collapse

Ads Nos topicos Desktop

Collapse
X
Collapse
Primeira Anterior Próxima Última
 
  • Filtrar
  • Tempo
  • Show
Clear All
new posts

    programaçao ajuda

    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[i] := 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[i]: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.


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

    Comentário


      #3
      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/tuto...oritmos005.asp

      se puderes aceita-me no msn

      Comentário


        #4
        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[i]=notamin; -> preenche uma colunoa com as notas minimas dos alunos
        end;
        end;


        deve ser +- isto

        Comentário


          #5
          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[i]=notamin; -> preenche uma colunoa com as notas minimas dos alunos
          end;
          end;

          Comentário


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

            Comentário


              #7
              citação:Originalmente colocada por mccrow

              engraçado ... eu também preciso de limpar a casa ... alguem me ajuda
              vai ao totta! [}]



              [8)]

              Comentário

              AD fim dos posts Desktop

              Collapse

              Ad Fim dos Posts Mobile

              Collapse
              Working...
              X