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.527 ]

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

soma da diagonal principal de uma matriz

Calculo do Fatorial Utilizando-se de for

Calculadora de décimo terceiro no Lazarus

Achar o maior e o menor valor inserido pelo usuario

"Calculadora" utilizando Case

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