progrmama feito para armazenar os dados relativos a uma classe com 15 alunos, 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 para cada aluno.

• Download exerc06.pas
• Enviar nova versão

Esconder código-fonte

Program registro06;

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:array [1..15] of registro;
  contador1,contador2,contador3:integer;

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

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

"Calculadora" utilizando Case

Fibonacci (Pascal)

Raiz Quadrada.

Tocador de Vídeo (Lazarus)

Nenhum comentário foi encontrado.