Media dos Alunos

Publicado por Perfil removido 26/03/2006

[ Hits: 4.998 ]

Download mediaAlunos.txt.txt




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

  



Esconder código-fonte

//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.

Scripts recomendados

Tratar campos not null

armazenar estoque em uma matriz

Script Copa do Mundo

Eleições 2006

Calculadora Empresarial Lazarus


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts