Media dos Alunos
Publicado por Perfil removido 26/03/2006
[ Hits: 4.904 ]
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.
validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
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 (1)
Criar um script para testar pen drive (5)
Problema com alias usando locate (4)
[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