registro de turma com record

Publicado por NewLinuxer 13/12/2005

[ Hits: 4.282 ]

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

Fibonacci (Pascal)

Soma dois Valores e exibe o resultado

Multiplicação de Matrizes

Visualizador de imagem (Pascal/Lazarus)

armazenar estoque em uma matriz


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts