registro de turma com record
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.636 ]
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.
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Bora fazer um teste? mbti (12)
Linux Debian 11 Bullseye Reiniciando Sozinho (1)
Possível Migração de windows para linux ???? (pc da empresa) (2)