Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Trabalho
Language: PASCAL
Code:
Program trabalho;
var
materia:array[1..5] of string;
atividade:array [1..5,1..5] of real;
somas: array[1..5] of real;
maiornota,  notafinal, soma: real;
m,a,aprov, count, s:integer;
materiamaior:string;
Begin
  s:=0;
  count:=0;
  maiornota:=0;
  aprov:=0;
  soma:=0;
  for m:=1 to 5 do
  begin
    writeln('-------------------------------------------------------');
    writeln('Informe a materia');
    readln(materia[m]);
    for a:=1 to 5 do
    begin
      Writeln('Informe a ',a,'a nota das atividades da materia');
      readln(atividade[m,a]);
      soma:=soma+(atividade[m,a]);
      
      
      
      
    end;
    if maiornota<soma/5 then
    begin
      maiornota:=soma/5;
      materiamaior:=materia[m];
    end;
    
    soma:=soma/5;
    if soma>=70 then
    begin
      aprov:=aprov+1;
    end;
    
    count:=count+1;
    somas[count]:=soma;
    soma:=0;
    
  end;
  
  writeln('-------------------------------------------------------');
  writeln('A materia de maior nota foi ', materiamaior,' ', maiornota:5:2, ' Pontos.');
  writeln('-------------------------------------------------------');
  writeln('O aluno foi aprovado em ', aprov, ' materias.');
  writeln('-------------------------------------------------------');
 writeln('O Coeficiente foi ', somas[1]+somas[2]+somas[3]+somas[4]+somas[5], ' .');
 writeln('-------------------------------------------------------');
  writeln('A relação das materias e suas notas são: ');
  writeln(' | ', materia[1],' | ' , somas[1]:5:2,' | ');
  writeln(' | ', materia[2],' | ' , somas[2]:5:2,' | ');
  writeln(' | ', materia[3],' | ' , somas[3]:5:2,' | ');
  writeln(' | ', materia[4],' | ' , somas[4]:5:2,' | ');
  writeln(' | ', materia[5],' | ' , somas[5]:5:2,' | ');
  
  
End.

          
Comments: