registro de turma com record
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.619 ]
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.
Existência de triângulo, em Pascal
Exemplo de for que mostra 6 números em ordem crescente
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (11)
Será que eu deveria apreender C/C++ para desenvolver para Linux? (4)