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

10) Altere o programa número 9 de forma que ele seja resolvido utilizando procedimento.

Program Fun10;
var 
 nota1,nota2,nota3:real;
 op:char;
 
procedure media(n1,n2,n3:real; opcao:char);
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}
    Writeln('Media : ',valor:0:2);
 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); 
  media(nota1,nota2,nota3,op);  
  Writeln('            by Marcus Vinicius');      
 End.

Categories: Pascal , Programação