registro de turma com record

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.520 ]

Download exerc04.pas




programm feito pra armazenar em registro os nomes de dez alunos com quatro notas cada e no final mostre os dados informados

  



Esconder código-fonte

Program registro04;

Type registro = Record
      nome:string[30];
      nota:array [1..4] of integer;
      End;

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

Begin
  ClrScr;
  
  For contador1 := 1 to 10 do
  Begin
    Write('Informe o nome do aluno n. ',contador1,': ');
    readln(reg[contador1].nome);
    For contador2 := 1 to 4 do
    Begin
      Write('Informe a nota ',contador2,': ');
      readln(reg[contador1].nota[contador2]);
    End;
    
    Writeln;
  End;
  
  ClrScr;
  
  For contador1 := 1 to 10 do
  Begin
    Writeln('As notas informadas do aluno ',contador1,'. ',reg[contador1].nome,' são:');
    For contador2 :=1 to 4 do
      Writeln('Nota ',contador2,'= ', reg[contador1].nota[contador2]);
    
    Writeln;
  End;
  
  Readkey;
End.

Scripts recomendados

cadastro de multiplos clientes com registro

escreve os números de 1 a 9 com repeat - until

Cronômetro Lazarus/Pascal

cadastro de um cliente com registro

"Calculadora" utilizando Case


  

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