registro de turma com record
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.535 ]
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
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (4)
Problemas com o PulseAudio no lubuntu (8)
Som e sistema de janelas não obedecem (1)
Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (1)