progrmama feito para armazenar os dados relativos a um aluno, 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.

• Download exerc05.pas
• Enviar nova versão

Esconder código-fonte

Program registro05;

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:registro;
  contador1,contador2:integer;

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

Crivo de Eratóstenes Simples em Ada 95

soma de números pares

Função Fatorial Recursiva em Ada 95

Array de números aleatórios não-repetidos de um intervalo em Pascal

SpaceAllience_Animation

Nenhum comentário foi encontrado.