controle de notas de um aluno com registro e array
Publicado por NewLinuxer 14/12/2005
[ Hits: 10.789 ]
progrmama feito para armazenar os dados relativos a um aluno, 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.
Program registro05; 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:registro; contador1,contador2:integer; Begin ClrScr; reg.soma[1]:=0; reg.soma[2]:=0; Write('Informe o código do aluno: '); readln(reg.codigo); Write('Informe o nome do aluno: '); readln(reg.nome); For contador1 := 1 to 2 do Begin Write('Informe a disciplina n. ',contador1,': '); readln(reg.disciplina[contador1]); For contador2 := 1 to 4 do Begin Write('Informe a nota n. ',contador2,' da disciplina ',reg.disciplina[contador1],': '); Readln(reg.nota[contador1,contador2]); reg.soma[contador1]:= reg.soma[contador1]+reg.nota[contador1,contador2]; End; Writeln; End; ClrScr; Writeln('O código do aluno é: ',reg.codigo); Writeln('O nome do aluno é: ',reg.nome); For contador1 := 1 to 2 do Begin Writeln('As notas de ',reg.nome,' na disciplina ', reg.disciplina[contador1], ' foram:'); For contador2 :=1 to 4 do Writeln('Nota ',contador2,'= ', reg.nota[contador1,contador2]); Writeln('Com média: ',(reg.soma[contador1]/4):3:2); Writeln; End; Writeln('Com média geral de: ',(reg.soma[1]+reg.soma[2])/8:3:2); Readkey; End.
Crivo de Eratóstenes Simples em Ada 95
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Nenhum comentário foi encontrado.
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
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (2)
Ubuntu — tentando iniciar o windows? (0)
[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