Media dos Alunos
Publicado por Perfil removido 26/03/2006
[ Hits: 5.020 ]
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.
soma da diagonal principal de uma matriz
Achar o maior e o menor valor inserido pelo usuario
Calculadora utilizando until e case
Crivo de Eratóstenes Simples em Ada 95
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (3)
Queria saber se existe alguma forma de desistalar programa no ubuntu s... (3)
Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (0)