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

• Download mediaAlunos.txt.txt
• Enviar nova versão

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.

Criptografador(Conceito criptografia)Lazarus

Hello World!!!

encontrar o menor valor em um vetor

Cáculo de Fatorial, utilizando-se de Repeat - Until

Cronômetro Lazarus/Pascal

Nenhum coment�rio foi encontrado.