Media dos Alunos

Publicado por Perfil removido 26/03/2006

[ Hits: 5.018 ]

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

diferença entre o maior e o menor numero

média dos numeros informados em posiçoes pares em um vetor

calculo de vendas

Jogo Sudoku em Pascal

Calculadora Completa feita no Lazarus(Delphi 7 para Linux)


  

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