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

• Download exerc04.pas
• Enviar nova versão

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.

cadastro de um cliente com registro

Extenso em dll, com parâmetros adicionais

Calculadora de décimo terceiro salário em Pascal

Função Fatorial Recursiva em Ada 95

Raiz Quadrada.

Nenhum comentário foi encontrado.