armazenar o nome de um aluno e suas notas [Pascal/Kylix]

armazenar o nome de um aluno e suas notas

Publicado por NewLinuxer 13/12/2005

[ Hits: 5.643 ]

Download exerc03.pas

0 0

Denuncie Favoritos Indicar

programa para armazenar as quatro notas e o nome de um aluno com registro e no final mostrar os dados informados

Esconder código-fonte

Program registro03;

Type registro = Record
      nome:string[30];
      nota:array [1..4] of integer;
      End;

Var
  reg:registro;
  contador:integer;

Begin
  ClrScr;
  
  Write('Informe o nome do aluno: ');
  readln(reg.nome);
  
  For contador := 1 to 4 do
  Begin
    Write('Informe a nota ',contador,': ');
    readln(reg.nota[contador]);
  End;
  
  Writeln;
  
  Writeln('As notas informadas do aluno',reg.nome,' são:');
  
  For contador :=1 to 4 do
    Writeln('Nota ',contador,'= ', reg.nota[contador]);
  
  Readkey;
End.

Scripts recomendados

média de uma turma

mais um modelo de programa com vetor

Script Copa do Mundo

Extenso em dll, com parâmetros adicionais

controle de notas de um aluno com registro e array

Comentários

[1] Comentário enviado por doradu em 09/02/2010 - 16:40h

seu código fonte não compila pq vc esquece da biblioteca 'crt'

ai vai o código compilando, sem bug

Program registro03;

uses crt;

Type registro = Record
nome:string[30];
nota:array [1..4] of integer;
End;

Var
reg:registro;
contador:integer;

Begin
clrscr;

Write('Informe o nome do aluno: ');
readln(reg.nome);

For contador := 1 to 4 do
Begin
Write('Informe a nota ',contador,': ');
readln(reg.nota[contador]);
End;

Writeln;

Writeln('As notas informadas do aluno',reg.nome,' são:');

For contador :=1 to 4 do
Writeln('Nota ',contador,'= ', reg.nota[contador]);

Readkey;
End.

0 0