controle de notas de uma clase com vetor e registro

Publicado por NewLinuxer 14/12/2005

[ Hits: 5.430 ]

Download exerc06.pas




progrmama feito para armazenar os dados relativos a uma classe com 15 alunos, juntamnte com as notas obtidas em duas matérias, separadamente, no final mostre as notas parcias nas materias, as médias e uma média geral das duas matrizes para cada aluno.

  



Esconder código-fonte

Program registro06;

Type registro = Record
      codigo:integer;
      nome:string[30];
      disciplina:array [1..2] of string[10];
      nota:array [1..2,1..4] of integer;
      soma:array [1..2] of integer;
      End;

Var
  reg:array [1..15] of registro;
  contador1,contador2,contador3:integer;

Begin
  ClrScr;
  
  For contador3 := 1 to 15 do
  Begin
    reg[contador3].soma[1]:=0;
    reg[contador3].soma[2]:=0;
  
    Write('Informe o código do aluno n. ',contador3,': ');
    readln(reg[contador3].codigo);
    Write('Informe o nome do aluno n. ',contador3,': ');
    readln(reg[contador3].nome);
  
    For contador1 := 1 to 2 do
    Begin
      Write('Informe a disciplina n. ',contador1,': ');
      readln(reg[contador3].disciplina[contador1]);
      For contador2 := 1 to 4 do
      Begin
        Write('Informe a nota n. ',contador2,' da disciplina ',reg[contador3].disciplina[contador1],': ');
        Readln(reg[contador3].nota[contador1,contador2]);
        reg[contador3].soma[contador1]:= reg[contador3].soma[contador1]+reg[contador3].nota[contador1,contador2];
      End;
      Writeln;
    
    End;
    
    Writeln;
    Writeln;
    
  End;
  
  ClrScr;
  
  For contador3 := 1 to 15 do
  Begin
    Writeln('O código do aluno é n. ',contador3,': ',reg[contador3].codigo);
    Writeln('O nome do aluno é n. ',contador3,': ',reg[contador3].nome);
    
    For contador1 := 1 to 2 do
    Begin
      Writeln('As notas de ',reg[contador3].nome,' na disciplina ', reg[contador3].disciplina[contador1], ' foram:');
      For contador2 :=1 to 4 do
        Writeln('Nota ',contador2,'= ', reg[contador3].nota[contador1,contador2]);
    
      Writeln('Com média: ',(reg[contador3].soma[contador1]/4):3:2);
      Writeln;
    End;
  
    Writeln('Com média geral de: ',(reg[contador3].soma[1]+reg[contador3].soma[2])/8:3:2);
    Writeln;
    Writeln;
  End;
  
  Readkey;
End.

Scripts recomendados

Registro

Calculadora completa com porcentagem(Lazarus)

cadastro de um cliente com registro

Média e soma de números

Programa lê nome (básico) - Pascal para iniciantes


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts