controle de notas de uma clase com vetor e registro
Publicado por NewLinuxer 14/12/2005
[ Hits: 5.556 ]
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.
calculo da somatoria da diagonal principal
validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
calculo de porcentagem em vetores
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Bora fazer um teste? mbti (12)
Linux Debian 11 Bullseye Reiniciando Sozinho (1)
Possível Migração de windows para linux ???? (pc da empresa) (2)