controle de notas de uma clase com vetor e registro
Publicado por NewLinuxer 14/12/2005
[ Hits: 5.312 ]
progrmama feito para armazenar os dados relativos a uma classe com 15 alunos, juntamnte com as notas obtidas em duas matérias, separadamente, no final mostre as notas parcias nas materias, as médias e uma média geral das duas matrizes para cada aluno.
Program registro06; Type registro = Record codigo:integer; nome:string[30]; disciplina:array [1..2] of string[10]; nota:array [1..2,1..4] of integer; soma:array [1..2] of integer; End; Var reg:array [1..15] of registro; contador1,contador2,contador3:integer; Begin ClrScr; For contador3 := 1 to 15 do Begin reg[contador3].soma[1]:=0; reg[contador3].soma[2]:=0; Write('Informe o código do aluno n. ',contador3,': '); readln(reg[contador3].codigo); Write('Informe o nome do aluno n. ',contador3,': '); readln(reg[contador3].nome); For contador1 := 1 to 2 do Begin Write('Informe a disciplina n. ',contador1,': '); readln(reg[contador3].disciplina[contador1]); For contador2 := 1 to 4 do Begin Write('Informe a nota n. ',contador2,' da disciplina ',reg[contador3].disciplina[contador1],': '); Readln(reg[contador3].nota[contador1,contador2]); reg[contador3].soma[contador1]:= reg[contador3].soma[contador1]+reg[contador3].nota[contador1,contador2]; End; Writeln; End; Writeln; Writeln; End; ClrScr; For contador3 := 1 to 15 do Begin Writeln('O código do aluno é n. ',contador3,': ',reg[contador3].codigo); Writeln('O nome do aluno é n. ',contador3,': ',reg[contador3].nome); For contador1 := 1 to 2 do Begin Writeln('As notas de ',reg[contador3].nome,' na disciplina ', reg[contador3].disciplina[contador1], ' foram:'); For contador2 :=1 to 4 do Writeln('Nota ',contador2,'= ', reg[contador3].nota[contador1,contador2]); Writeln('Com média: ',(reg[contador3].soma[contador1]/4):3:2); Writeln; End; Writeln('Com média geral de: ',(reg[contador3].soma[1]+reg[contador3].soma[2])/8:3:2); Writeln; Writeln; End; Readkey; End.
intercalar dois arrays (vetores)
Coleta de dados de alunos em Pascal
Calculadora Completa feita no Lazarus(Delphi 7 para Linux)
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
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
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba