controle de notas de um aluno com registro e array

Publicado por NewLinuxer 14/12/2005

[ Hits: 10.913 ]

Download exerc05.pas




progrmama feito para armazenar os dados relativos a um aluno, 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.

  



Esconder código-fonte

Program registro05;

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:registro;
  contador1,contador2:integer;

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

Scripts recomendados

soma de um intervalo

mostrar a meior e a menor temperatura do ano com vetor

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

vendas de uma empresa em matriz

Calculadora básica no Lazarus


  

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