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

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

Program Fun08;
var 
 v_ant,v_atual:real;
 
procedure acrescimo(n1,n2:real); {"n1" equivale à v_ant e "n1" à v_atual}  
var
valor_final:real;
 Begin    
    valor_final:=(n2*100)/n1;
    valor_final := valor_final-100;    
    Writeln('Percentual de acrescimo: ',valor_final:0:2,'%');
 End;
 
{Main} 
 Begin
  Write('Valor Antigo do Produto: ');
  readln(v_ant);
  Write('Valor Atual do Produto : ');
  readln(v_atual);      
  acrescimo(v_ant,v_atual); {chama o procedimento e faz a passagem por parametros para o módulo}
  Writeln('            by Marcus Vinicius');      
 End.

Categories: Pascal , Programação