registro de turma com record
Publicado por NewLinuxer 13/12/2005
[ Hits: 4.438 ]
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.
Editor de texto em Pascal/Lazarus
média dos numeros informados em posiçoes pares em um vetor
calcular o percentual de pessoas que sao maiores de idade
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
ASRock H310CM-HG4 vs Linux [RESOLVIDO] (18)
Microfone do meu headset não é recinhecido. Meu notebook é um Acer Asp... (12)