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.

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

Editor de Texto feito no Lazarus(Delphi 7 para Linux)

Calculadora utilizando until e case

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

Script Copa do Mundo

Nenhum comentário foi encontrado.