registro de turma com record
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.624 ]
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.
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
controle de notas de uma clase com vetor e registro
Coleta de dados de alunos em Pascal
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
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Audio intermitente xubuntu notebook positivo c14 vision (0)
Encontrar o comando completo de uma janela [RESOLVIDO] (2)
Instalação de Ubuntu em SSD (interno) como se fosse um dispositivo ext... (2)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (10)