Exercício 09 Funções e Procedimentos - Pascal

9) Elabore um programa contendo uma função que receba as três notas de um aluno como parâmetros e uma letra. Se a letra for A, a função deverá calcular a média aritmética das notas do aluno; se for P, deverá calcular a média ponderada, com pesos 5, 3 e 2. A média calculada deverá ser devolvida ao programa principal para, então, ser mostrada.

Program Fun09;
var 
 nota1,nota2,nota3:real;
 op:char;
 
function media(n1,n2,n3:real; opcao:char):real; 
var valor:real;
 Begin    
    if (opcao = 'a') or (opcao = 'A') then
        valor:=(n1+n2+n3)/3                 {Media Aritmetica}
    else if (opcao = 'p') or (opcao = 'P') then    
        valor:=( (n1*5)+(n2*3)+(n3*2) ) / (5+3+2);    {Media Ponderada}
    media:=valor;
 End;
 
{Main} 
 Begin
  Write('Nota 1: ');
  readln(nota1);
  Write('Nota 2: ');
  readln(nota2);
  Write('Nota 3: ');
  readln(nota3); 
  Writeln('Media');
  Writeln('A/a --- Aritmetica');
  Writeln('P/p --- Ponderada');
  Write('Opcao: ');
  readln(op); 
  Writeln('Media : ',media(nota1,nota2,nota3,op):0:2);  
  Writeln('            by Marcus Vinicius');      
 End.

Categories: Pascal , Programação