armazenar o nome de um aluno e suas notas

Publicado por NewLinuxer 13/12/2005

[ Hits: 5.410 ]

Download exerc03.pas




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

Gerador de Senha no Lazarus

Executar comando do DOS.

Números perfeitos

Número primo

Multiplicação de Matrizes


  

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.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts