Media dos Alunos
Publicado por Perfil removido 26/03/2006
[ Hits: 4.976 ]
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.
Coleta de dados de alunos em Pascal
Números primos (usando arrays)
Programa lê nome (básico) - Pascal para iniciantes
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Google Chrome não para de escrever no disco (4)
Notebook samsung 550xda não reconhece mais SSD (2)
Windows XP rodando no Linux (3)