Media dos Alunos
Publicado por Perfil removido 26/03/2006
[ Hits: 5.331 ]
Este programa soma as notas de 4 provas e divide por 4, se a média for menor ou igual a 5 o aluno está reprovado se for maior ele está aprovado :) este é um bom exemplo para aprender o if e else, ahhhh e alem do mais ele tem alguns "efeitos especiais" (algumas cores hehe)
até mais galera
//Programa mediaAlunos // Este programa soma as notas de 4 provas e divide por 4, se a média for menor ou igual a 5 o aluno está reprovado // se for maior ele está aprovado :) // Desenvolvido por Alexandre Pina - alexandrehkk@gmail.com // Program mediaAlunos ; Var p1,p2,p3,p4: Integer; Media: Integer; Begin textcolor (yellow); writeln ( '.: Media dos Alunos :.'); textcolor (07); writeln ( '' ); writeln ( 'Digite a nota da primeira prova, p1'); read(p1); writeln ( 'Digite a nota da segunda prova, p2'); read(p2); writeln ( 'Digite a nota da terceira prova, p3'); read(p3); writeln ( 'Digite a nota da quarta prova, p4'); read(p4); media:=(p1+p2+p3+p4)div 4; If (media <=5) then Writeln ( 'Voce está de recuperação :( sua media foi ', media) else Writeln ( 'Parabens CDF, Você passou de ano :) sua média é ', media); readkey; End.
controle de notas de um aluno com registro e array
Nenhum comentário foi encontrado.
Como Ativar a Aceleração por GPU (ROCm) no Ollama para AMD Navi 10 (RX 5700 XT / 5600) no Gentoo
Como criar um make.conf no Gentoo (para iniciantes)
Como instalar o Open WebUI para Ollama no Gentoo (com systemd)
INSTALAR (e jogar) COUNTER STRIKE 1.6 (install cs 1.6) NO LINUX
Removendo o bloqueio por erros de senha no Gentoo (systemd)
Papel de Parede Animado no KDE Plasma 6 (Com dicas para Gentoo)
Homebrew: o gerenciador de pacotes que faltava para o Linux!
Removendo a trava de versão do Project Brutality para GZDoom/UZDoom
Acelere a compilação no Gentoo com distcc (guia para Systemd)
Teste de CHAT para o futuro ? (0)
Ajudante para criar dicas e artigos no VOL (29)
ATUALIZAÇÃO DO KERNEL LINUX (2)
[Matemática] o que seria algo mais poderoso do que uma função? [RESOLV... (5)









