controle de notas de um aluno com registro e array
Publicado por NewLinuxer 14/12/2005
[ Hits: 10.966 ]
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.
Contador de números (Pascal) - efeito Matrix
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
calcular o percentual de pessoas que sao maiores de idade
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Máquinas Virtuais com IP estático acessando Internet no Virtualbox
Instalar o Microsoft Edge no Slackware 15
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
crontab executar em tempos (1)
Formatando cartão de memoria que nao formata[AJUDA] (9)
Programa duplicado no "Abrir com" e na barra de pesquisa do ... (3)