registro de turma com record
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.703 ]
programm feito pra armazenar em registro os nomes de dez alunos com quatro notas cada e no final mostre os dados informados
Program registro04;
Type registro = Record
nome:string[30];
nota:array [1..4] of integer;
End;
Var
reg:array [1..10] of registro;
contador1,contador2:integer;
Begin
ClrScr;
For contador1 := 1 to 10 do
Begin
Write('Informe o nome do aluno n. ',contador1,': ');
readln(reg[contador1].nome);
For contador2 := 1 to 4 do
Begin
Write('Informe a nota ',contador2,': ');
readln(reg[contador1].nota[contador2]);
End;
Writeln;
End;
ClrScr;
For contador1 := 1 to 10 do
Begin
Writeln('As notas informadas do aluno ',contador1,'. ',reg[contador1].nome,' são:');
For contador2 :=1 to 4 do
Writeln('Nota ',contador2,'= ', reg[contador1].nota[contador2]);
Writeln;
End;
Readkey;
End.
Soma dois Valores e exibe o resultado
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Warcraft II Remastered no Linux? (6)
O programa assinador digital (5)









